VFP动态建立Informix的odbc连接

找了半天也找不到动态建立Informix的odbc连接文章。有一个SQL Server的示例。虽然按照它的方法建立了连接名，但是连接不成功，实在没有办法解决。后来通过对比注册表信息，发现默认参数含有备注，导致参数无效。在下面的代码中，“ConnectionString”的直接赋值部分是将导致错误的默认值。强制赋值后，测试通过。这个问题困扰了半天，现在终于解决了。我想要与你分享它。

*通过API动态建立odbc
在odbccp32中声明integer sqlconfigdatasource integer，integer，string，String
LN window handle = 0
LCODBCDriver = ' Informix-CLI 2.5(32 bit)' & driver type
lcODBCName = ' zzsj ' & & data source name
lco desc = '总账数据库' & & data source description
LCODBCServer = ' Informix ' & & amp

lcUID = ' 123456 ' & &密码

LC protocol = ' onsoctcp '
LC readonly = ' No '
LC server type = ' Informix 7.2 '

ConnectionString = ' DSN = '+lcODBCName+CHR(0)；
+' Description = '+lcODBCDesc+CHR(0)；
+' DB = '+lcODBCServer+CHR(0)；
+' Host = '+l Host+CHR(0)；
+' SERV = '+LC serv+CHR(0)；
+' SRVR = '+LCS rvr+CHR(0)；
+' UID = '+lcUID+CHR(0)；
+' cursor behavior = 0 '+CHR(0)；
+' EnableScrollableCursors = 0 '+CHR(0)；
+' getdblistfrominformamix = 1 '+CHR(0)；
+' yield proc = 1 '+CHR(0)；
+' Protocol = '+LC Protocol+CHR(0)；
+' Database = '+lcODBCDatabase+CHR(0)

* *首先尝试修改已有的ODBC，如果不存在，返回0。
lreturn = SQLConfigDataSource(lnWindowHandle，2，lcODBCDriver，ConnectionString)
SQL setprop(0，' DispLogin '，3)&&如果lreturn=0 &&不存在，则关闭登录窗口
，然后添加新的ODBC
l return = SQLConfigDataSource(LN Window Handle，1，LCODBC Driver，ConnectionString)
如果l return = 0&& fail
。，16，' warning ')
return
endif
endif