DECLARE INTEGER SQLConfigDataSource IN odbccp32 INTEGER, INTEGER, STRING, STRING

　　lnWindowHandle=0

　　lcODBCDriver=‘SQL Server‘ &&DRIVER类型

　　lcODBCName=‘KSERP‘ &&数据源名字

　　lcODBCDesc=‘蝶恋企业资源计划‘ &&数据源描述

　　lcODBCServer=‘NT-SERVER‘ &&SQL SERVER名字

　　lcODBCDatabase=‘VFPSYS‘ &&要连接的数据库名字

　　**先试图修改已有的ODBC，如果不存在，返回0。

　　lreturn=SQLConfigDataSource(lnWindowHandle, 2, lcODBCDriver, ;

　　‘DSN=‘ + lcODBCName + CHR(0) ;

　　+ ‘Description=‘ + lcODBCDesc + CHR(0) ;

　　+ ‘Server=‘ + lcODBCServer + CHR(0) ;

　　+ ‘Database=‘ + lcODBCDatabase + CHR(0))

　　SQLSETPROP(0,‘DispLogin‘,3)

　　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,‘警告‘)

　　quit

　　return

　　ENDIF

　　ENDIF

　　gnConnhandle = SQLSTRINGCONNECT(‘driver=‘+lcODBCDriver+‘;server=‘+lcODBCServer+‘;uid=sa;pwd=;database=‘+lcODBCDatabase)

　　SQLSETPROP(0,‘DispLogin‘,3)

　　SQLSETPROP(0,"IdleTimeout",0)

　　IF gnConnhandle>0

　　* MESSAGEBOX(‘连接成功！‘)

　　ELSE

　　MESSAGEBOX(‘连接失败，请与系统管理员联系！‘,16,‘警告‘)

　　quit &&连接不成功则退出系统。

　　return

　　ENDIF