通过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
0条评论