以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  数据源连接  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=24712)
--  作者：wilson
--  发布时间：2012/10/21 11:35:00
--  数据源连接

我想实现在项目事件里设置的 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

 

谢谢！
--  作者：lin_hailun
--  发布时间：2012/10/22 9:26:00
--  
 为什么不自己拼一个字符串出来呢，例如

 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
--  作者：wilson
--  发布时间：2012/10/22 12:19:00
--  

非常感谢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

 

 
--  作者：wilson
--  发布时间：2012/10/22 12:28:00
--  

补充上述未显示代码段

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

 
--  作者：wilson
--  发布时间：2012/10/22 12:35:00
--  

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是可以连接
--  作者：lin_hailun
--  发布时间：2012/10/22 14:36:00
--  
 这样弄。

 “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
--  作者：wilson
--  发布时间：2012/10/22 15:15:00
--  

非常感谢lin_hailun对我的帮助！

 

问题已解决