vfp怎么连接数据库上的sqlserver数据库? odbc怎么设置?
我以前曾经努力学习过一段时间的vfp,后来好久没动过了
现在要研究一个vfp做的程序,准备花时间弄明白点
#define odbc_add_dsn 1 && Add data source
#define odbc_config_dsn 2 && Configure (edit) data source
#define odbc_remove_dsn 3 && Remove data source
declare integer SQLConfigDataSource in odbccp32 integer,integer,string, string
lnwindowhandle=0
lcodbcdriver='SQL Server'
lcodbcname='SharedData'
lcodbcdesc='Shared Data Source'
lcodbcserver='local'
lcodbcdatabase='fjdata'
lreturn=sqlconfigdatasource(lnwindowhandle, ;
odbc_config_dsn, lcodbcdriver, ;
'dsn=' + lcodbcname + chr(0) ;
+ 'Description=' + lcodbcdesc + chr(0) ;
+ 'Server=' + lcodbcserver + chr(0) ;
+ 'Database=' + lcodbcdatabase + chr(0))
if lreturn=0
lreturn=sqlconfigdatasource(lnwindowhandle, ;
odbc_add_dsn, lcodbcdriver, ;
'dsn=' + lcodbcname + chr(0) ;
+ 'Description=' + lcodbcdesc + chr(0) ;
+ 'Server=' + lcodbcserver + chr(0) ;
+ 'Database=' + lcodbcdatabase + chr(0))
if lreturn=0
messagebox('Unable To Create Necessary ODBC Connection Definition',16,'Vogue')
gdefserver=''
endif
endif
clear dlls