通过API动态建立odbc

　　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

　　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

视频学习

① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件，版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源：我考网"，违者本网将依法追究责任；

② 本网部分稿件来源于网络，任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益，应该及时向我考网书面反馈，并提供身份证明、权属证明及详细侵权情况证明，我考网在收到上述法律文件后，将会尽快移除被控侵权内容。