主题：数据源连接

我想实现在项目事件里设置的 SQL服务器名称、数据源、用户名、密码 为项目默认连接

求助，

 

BeforeConnectOuterDataSource事件代码

If e.Name = "数据源" Then
Dim CnNew As ADODB.Connection
CnNew.Provider = "sqloledb.1"
CnNew.Properties("data source").value = "192.168.1.100"    'SQL服务器名称
CnNew.Properties("initial catalog").value = "数据源"    '数据源

CnNew.Properties("user id").value = "admin"   ’用户名
CnNew.Properties("password").value = "123456789"     ‘密码

End If

 

谢谢！

 为什么不自己拼一个字符串出来呢，例如

 Provider=SQLOLEDB.1;Password=hailun.;Persist Security Info=True;User ID=sa;Initial Catalog=test;Data Source=FOXTABLE1-PC\SQLEXPRESS

 http://www.foxtable.com/help/topics/0682.htm

非常感谢lin_hailun

 

Dim IPAdress As System.Net.IPAddress
Dim HostName As String
HostName = System.Net.Dns.GetHostName '获得本机的机器名
IPAdress = System.Net.Dns.GetHostByName(HostName).AddressList.GetValue(0) '获得本机的IP
OutPut.Show( HostName )  '本机机器名 
OutPut.Show(IPAdress.ToString )  '本机的IP 

 
从上述获取的IP ，我想引用到以下红色的字段里。不知如何编写红色的字段的代码，求助

If e.Name = "数据库" Then
e.C

End If

 

 

补充上述未显示代码段

“Provider=SQLOLEDB.1;Password=hailun.;Persist Security Info=True;User ID=sa;Initial Catalog=test;Data Source=OutPut.Show(IPAdress.ToString )”

 

Dim IPAdress As System.Net.IPAddress
Dim HostName As String
HostName = System.Net.Dns.GetHostName '获得本机的机器名
IPAdress = System.Net.Dns.GetHostByName(HostName).AddressList.GetValue(0) '获得本机的IP
OutPut.Show( HostName ) '本机机器名
OutPut.Show(IPAdress.ToString ) '本机的IP

从上述获取的IP ，我想引用到以下红色的字段里。不知如何编写红色字段的代码，求助

 

“Provider=SQLOLEDB.1;Password=hailun.;Persist Security Info=True;User ID=sa;Initial Catalog=test;Data Source=OutPut.Show(IPAdress.ToString )”

 

上述段代码红色的字段如果为192.168.1.101是可以连接

 这样弄。

 “Provider=SQLOLEDB.1;Password=hailun.;Persist Security Info=True;User ID=sa;Initial Catalog=test;Data Source=" & IPAdress.ToString()

  http://www.foxtable.com/help/topics/1284.htm

非常感谢lin_hailun对我的帮助！

 

问题已解决