以下是引用tlliqi在2016-12-19 15:49:56的发言:
http://biancheng.dnbcw.info/sql/59485.html
*!* vfp建立ODBC数据源
*!* 作者:tianxia_xiangyu 和数据库相关
*!* 动态数据源
DECLARE INTEGER SQLConfigDataSource IN odbccp32 INTEGER, INTEGER, STRING, STRING
lnWindowHandle=0
lcODBCDriver='SQL Server'
&&DRIVER类型
lcODBCName='Server'
&&数据源名字
lcODBCDesc='Shared Data Source' &&数据源描述
lcODBCServer=lcPCName
&&SQL SERVER名字
lcODBCDatabase='Test'
&&要连接的数据库名字
**先试图修改已有的ODBC,如果不存在,返回0。
lreturn=SQLConfigDataSource(lnWindowHandle, 2, lcODBCDriver, ;
'DSN=' + lcODBCName + CHR(0) ;
+ 'Description=' + lcODBCDesc + CHR(0) ;
+ 'Server=' + lcODBCServer + CHR(0) ;
+ 'Database=' + lcODBCDatabase + CHR(0))
IF lreturn=0 &&不存在.添加新的ODBC
lreturn=SQLConfigDataSource(lnWindowHandle, 1, lcODBCDriver, 'DSN=';
+ lcODBCName + CHR(0) ;
+ 'Description=' + lcODBCDesc + CHR(0) ;
+ 'Server=' + lcODBCServer + CHR(0) ;
+ 'Database=' + lcODBCDatabase + CHR(0))
IF lreturn=0
&&失败
MessageBox('添加ODBC数据源失败',16,'BUFFER')
ENDIF
ENDIF