可以,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
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
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
With conn
If .State = adStateOpen Then .Close
.ConnectionString = "driver=SQL Server;server=" & 计算机名或IP地址变量 & ";uid=" & 登录名变量 & ";pwd=" & 登录密码变量 & ";database=" & 数据库名变量 &""
.CommandTimeout = 0
.Open
End With