我的连接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
我的用户名和密码都没有错.请问大家到底是哪里写错了?谢谢!

解决方案 »

  1.   

    strCnn="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=asaa;Initial Catalog=international;Data Source=(local)"
      

  2.   

    数据库连接
    定义
    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
      

  3.   

    在SQL中将验证方式改为:“混合”试试
      

  4.   

    安装sql的时候你的用户名和密码要符合你的系统的用户名和密码,不妨把你的系统的密码和用户名改为安装sql时的密码和用户名1