关于VB编程中对SQL的远程访问3

Question

请问能不能由VB程序的使用者输入IP，在程序中用变量接收，放在“Adodc1.ConnectionString ”里？具体代码怎么写？

Answer 1

可以，IP写入ini文件或txt文件，然后在程序中读取，使用者可以在ini文件或文本文件中修改数据。
      IP也可以写入文本框，然后从文本框读入。以下以IP写入文本框为例子：Private Sub Command1_Click()
   Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Password=dg;Persist Security Info=True;User ID=sa;Initial Catalog=pubs;Data Source=" & Trim(Text1)
   Adodc1.CommandType = adCmdText
   Adodc1.RecordSource = "select top 5 * from jobs"
   Adodc1.Refresh
   Set DataGrid1.DataSource = Adodc1
End SubPrivate Sub Form_Load()
   Text1 = "127.0.0.1"
End Sub

Answer 2

dim conn as new adodb.connection
With conn     
    If .State = adStateOpen Then .Close
    .ConnectionString = "driver=SQL Server;server=" & 计算机名或IP地址变量 & ";uid=" & 登录名变量 & ";pwd=" & 登录密码变量 & ";database=" & 数据库名变量 &""
    .CommandTimeout = 0
    .Open
End With