Provider=SQLOLEDB;DATA SOURCE=192.168.9.248\SQLEXPRESS;INITIAL CATALOG=PACKS;User ID=PACKS;Password=13977931;
Provider=IBMDA400;Data Source=192.168.1.239;User ID=;Password=;
Dim Cnn As New ADODB.Connection
Cnn.ConnectionString =
"Provider=IBMDA400;Data Source=192.168.1.239;User
ID=;Password=;"
Cnn.Open
If Cnn.State <> adStateOpen Then
Application.StatusBar = "Database Failure..."
Exit Sub
End If
常用数据库链接字符串
标签：