我的连接sql server的程序如下:
Dim strCnn As String
Dim t As ADODB.RecordsetSet t = New ADODB.Recordset
strCnn = "driver={SQL SERVER};server=(local);database=international;persist security info=true;uid=sa;Pwd=asaa;"
t.Open "select * from H06_02", strCnn, , , adCmdText执行时,总报错:"实时错误'-2147217843(80040e4d)' [microsoft][odbc sql server driver][sql server]用户'sa'登陆失败。原因:未与信任sql server 连接相关联。" 可是,如果写成这样就不会报错:
Dim strCnn As String
Dim t As ADODB.RecordsetSet t = New ADODB.Recordset
strCnn = "driver={SQL SERVER};server=(local);database=international;persist security info=false;"
t.Open "select * from H06_02", strCnn, , , adCmdText
我的用户名和密码都没有错.请问大家到底是哪里写错了?谢谢!
Dim strCnn As String
Dim t As ADODB.RecordsetSet t = New ADODB.Recordset
strCnn = "driver={SQL SERVER};server=(local);database=international;persist security info=true;uid=sa;Pwd=asaa;"
t.Open "select * from H06_02", strCnn, , , adCmdText执行时,总报错:"实时错误'-2147217843(80040e4d)' [microsoft][odbc sql server driver][sql server]用户'sa'登陆失败。原因:未与信任sql server 连接相关联。" 可是,如果写成这样就不会报错:
Dim strCnn As String
Dim t As ADODB.RecordsetSet t = New ADODB.Recordset
strCnn = "driver={SQL SERVER};server=(local);database=international;persist security info=false;"
t.Open "select * from H06_02", strCnn, , , adCmdText
我的用户名和密码都没有错.请问大家到底是哪里写错了?谢谢!
定义
Public cn As ADODB.Connection实例化
set cn =new ADODB.Connection打开数据库连接
cn.ConnectionTimeout = 30
cn.Provider = "sqloledb"
cn.Properties("Data Source").Value = strServerName
cn.Properties("Initial Catalog").Value = strDatabaseName
cn.Properties("User ID").Value = strUserName
cn.Properties("Password").Value = strPassword cn.Open