动态创建odbc数据源

[tangxiaosan001]

我现在想在vb的开始登陆的时候，通过输入服务器名称，然后自动创建一个wwww的数据源呢。数据库服务器是sql，数据库是bb吧。有源代码，更谢谢了。

[lihonggen0]

参考；
http://support.microsoft.com/default.aspx?scid=kb;EN-US;171146

[tangxiaosan001]

谢谢先，不过如果是远地动态建立数据原呢？比如我知道对方地ip：192.168.1.118
或者是主机名：pc1，那么改怎么做？解答之后立马揭帖！！

[LCAAA]

Dim nRet As Long
Dim sAttributes As String
nRet = SQLConfigDataSource(vbAPINull, ODBC_REMOVE_SYS_DSN, "SQL Server", "DSN=" & "ysgl")
sAttributes = "Server=" & servernametxt & Chr$(0)
sAttributes = sAttributes & "DESCRIPTION=" & "ysgl" & Chr$(0)
sAttributes = sAttributes & "DSN=" & "ysgl" & Chr$(0)
sAttributes = sAttributes & "DATABASE=" & "ysgl" & Chr$(0)
nRet = SQLConfigDataSource(vbAPINull, ODBC_ADD_SYS_DSN, "SQL Server", sAttributes)


servernametxt 为ip地址或是计算机名

[tangxiaosan001]

谢谢，搞定了啊。好了，不过帮我想想如何把一条记录同时发送到前台数据库和后台数据库呢？给思路也行，等我开贴子！！！

[online]

不过帮我想想如何把一条记录同时发送到前台数据库和后台数据库呢？给思路也行，等我开贴子！！！

使用insert into语句
建立两个conn,一个连接前台数据库，一个连接后台数据库