连接字符串是:
Dim objCn As New '定义并实例化联接对象
With objCn '建立数据库联接
.Provider = "MSDASQL"
.ConnectionString = "User ID=sa;PWD=sa;Data Source=学籍管理"
.Open
End With
请问怎么改?
Dim objCn As New '定义并实例化联接对象
With objCn '建立数据库联接
.Provider = "MSDASQL"
.ConnectionString = "User ID=sa;PWD=sa;Data Source=学籍管理"
.Open
End With
请问怎么改?
With conn
If .State = adStateOpen Then .Close
.ConnectionString = "driver=SQL Server;server=计算机名或IP地址;uid=sa;pwd=sa;database=数据库名"
.CommandTimeout = 120
.Open
End With