如何使用api函数SQLConfigDatasource建立sybase ase数据源

xpssgslf

免费乐捐，感谢支持

我有一个vfp8编写的工具需要连接局域网内不同IP的10个sybase数据库，我自己的电脑已经手动设置好了10个DSN数据源，但是如果我要在让其他电脑运行这个工具，就需要重新为新电脑设置10个DSN数据源，太麻烦了～

我想能不能用SQLConfigDatasource函数，来动态设置sybase ase的DSN数据源？这样我的工具拷贝到任一台电脑都可以自动生成需要的DSN数据源，不用一个一个去设置～ 呵呵，想偷懒！

关于SQLConfigDatasource函数的使用，在网络上搜索了不少文章，找到在vfp下建立系统DSN的代码，我改改后可以建立sybase的系统DSN：（代码如下）

Declare Integer SQLConfigDataSource In odbccp32 Integer,Integer,String,String
lnWindowHandle=0
lcodbcdriver='sybase ase odbc driver'
lcodbcname='sharedata'
lcodbcdesc='share data source'
lcodbcserver=192.168.1.1,5000'
lcodbcdatabase='lnj'

lreturn=SQLConfigDataSource(lnWindowHandle, 4, lcODBCDriver, ;
  'DSN=' + lcODBCName + Chr(0) ;
  + 'Description=' + lcODBCDesc + Chr(0) ;
  + 'Server=' + lcODBCServer + Chr(0) ;
  + 'Database=' + lcODBCDatabase + Chr(0))

If lreturn=0 &&失败
  Messagebox('添加ODBC数据源失败，请与系统管理员联系！',16,'警告')
Else
  Messagebox('添加ODBC数据源成功！',64,'警告')
Endif

运行上述代码，提示“添加ODBC数据源成功！”而且名称为‘sharedata’数据源也建立了，

但是问题在于建立的数据源‘sharedata’，其中的network address选项是空的，Server参数并没有把值“192.168.1.1,5000”正确正确地写入DSN配置项中（如附件图）；我需要建立的是连接到远程sybase服务器的DSN，没有输入ip和端口，就无法连接到sybase服务器。

假设我的sybase服务器的ip和端口是：192.168.1.1，5000

写入ip地址和port的参数代码要怎么写，才可以实现正确设置数据源？？

多谢了～

xpssgslf

到注册表找到了缺少的参数，问题解决！

ehxz

恭喜！！