搜寻许久未能找到动态建立Informix的odbc连接文章，有建SQL　Server的样例，按其方法一试虽建起了连接名，但连接不成功，实在没有办法解决了，后来通过对注册表信息的比对才发现其中默认参数中带有备注信息，使其参数失效了，以下代码中“ConnectionString”直接赋值部分为会造成出错的默认值，强行赋值后测试通过。此问题困扰了半天时间，现在终于解决，爽之有余，与大家分享。

　　*通过API动态建立odbc
　　DECLARE INTEGER SQLConfigDataSource IN odbccp32 INTEGER, INTEGER, STRING, STRING
　　lnWindowHandle=0
　　lcODBCDriver='Informix-CLI 2.5 (32 bit)' &&DRIVER类型
　　lcODBCName='zzsj' &&数据源名字
　　lcODBCDesc='总账数据库' &&数据源描述
　　lcODBCServer='Informix' &&SSERVER名字
　　lcODBCDatabase='mis2' &&要连接的数据库名字
　　lcSERV='zz_service' &&service
　　lcSRVR='ccbzz_fj' &&server
　　lcHost='11.12.13.45'

　　lcUID='123456'&&password

　　lcProtocol='onsoctcp'
　　lcReadOnly='No'
　　lcServerType='Informix 7.2'

　　ConnectionString ='DSN=' + lcODBCName + CHR(0) ;
　　+ 'Description=' + lcODBCDesc + CHR(0) ;
　　+ 'DB=' + lcODBCServer + CHR(0) ;
　　+ 'Host=' + lcHost + CHR(0) ;
　　+ 'SERV=' + lcSERV + CHR(0) ;
　　+ 'SRVR=' + lcSRVR + CHR(0) ;
　　+ 'UID=' + lcUID + CHR(0) ;
　　+ 'CursorBehavior=0' + CHR(0) ;
　　+ 'EnableScrollableCursors=0' + CHR(0) ;
　　+ 'GetDBListFromInformix=1' + CHR(0) ;
　　+ 'YieldProc=1' + CHR(0) ;
　　+ 'Protocol=' + lcProtocol + CHR(0) ;
　　+ 'Database=' + lcODBCDatabase + CHR(0)

　　**先试图修改已有的ODBC，如果不存在，返回0。
　　lreturn=SQLConfigDataSource(lnWindowHandle, 2, lcODBCDriver, ConnectionString)
　　SQLSETPROP(0,'DispLogin',3)&&关闭登录窗
　　IF lreturn=0 &&不存在，则添加新的ODBC
　　lreturn=SQLConfigDataSource(lnWindowHandle, 1, lcODBCDriver, ConnectionString)
　　IF lreturn=0 &&失败
　　MessageBox('添加ODBC数据源失败，请与系统管理员联系！',16,'警告')
　　return
　　ENDIF
　　ENDIf

　　相关链接：

　　2008年下半年全国计算机等级考试报名信息汇总

　　更多信息请访问：计算机等级考试站　计算机等级考试在线题库　计算机等级考试论坛