vfp建立ODBC数据源

*!*动态数据源 

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 &&