sql server数据库 : Set CN = New ADODB.Connection With CN .ConnectionString = "uid=sa;pwd=;driver={SQL Server};server=IP地址;database=库名 .ConnectionTimeout = 30 .Open End With access数据库: dim ac_tmp as new adodb.connection dim ar_tmp as new adodb.recordsetwith ac_tmp If .State = adStateOpen Then .Close .ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\test.mdb;Mode=ReadWrite;Persist Security Info=False" .Open end with
建议用ado对象。
Set CN = New ADODB.Connection
With CN
.ConnectionString = "uid=sa;pwd=;driver={SQL Server};server=IP地址;database=库名
.ConnectionTimeout = 30
.Open
End With
access数据库:
dim ac_tmp as new adodb.connection
dim ar_tmp as new adodb.recordsetwith ac_tmp
If .State = adStateOpen Then .Close
.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\test.mdb;Mode=ReadWrite;Persist Security Info=False"
.Open
end with