通过API动态建立odbc

在odbccp32中声明整数SQLConfigDataSource INTEGER，INTEGER，STRING，STRING

lnWindowHandle=0

Lbcdriver =' SQL server'&&驱动程序类型

Lbcname =' kserp'&数据源名称

LCODDesc = '蝶恋企业资源计划' &数据源描述

lbc server = ' nt-server ' & & SQL server名称

LCODatabase = ' 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，“显示”，3)

如果return = 0&&不存在，添加一个新的ODBC

lreturn = SQLConfigDataSource(lnWindowHandle，1，lcODBCDriver，；

DSN = '+lcODBCName+CHR(0)；

+' Description = '+lcODBCDesc+CHR(0)；

+' Server = '+lcODBCServer+CHR(0)；

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

Ireturn = 0&&失败

Messagebox('添加ODBC数据源失败，请联系系统管理员！，16，“警告”)

放弃

返回

结束条件

结束条件

gnConnhandle = SQLSTRINGCONNECT(' driver = '+lcODBCDriver+'；server = '+lcODBCServer+'；uid = sapwd =；database='+lcODBCDatabase)

SQLSETPROP(0，“显示”，3)

SQLSETPROP(0，" IdleTimeout "，0)

如果gnConnhandle>0

* messagebox('连接成功！')

其他

Messagebox('连接失败，请联系系统管理员！，16，“警告”)

如果退出&&连接不成功，则退出系统。

返回

ENDIF