高考问答thatll:vb与此sql连接要做那些准备工作?
来源：百度文库 编辑：高考问答 时间：2024/05/06 07:25:26
在工程中设置ADO引用后
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=;Initial Catalog=Northwind;Data Source=microsof-3313df"
conn.Open
rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM orders , conn, 1, 1"
Set DataGrid1.DataSource = rs
rs.Close
conn.Close
Set conn = Nothing
Set rs = Nothing
End Sub
运行后弹出内容为"用户SA登录失败.原因未与SQL建立信任相关连接"窗口.
什么原因?
非常谢谢LYD963的解答,根据你的指点,本人重装SQLserver2000,采用双身份验证模式,终于解决了问题.
再次表示对LYD963表示感谢,以后还请多指教.
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=;Initial Catalog=Northwind;Data Source=microsof-3313df"
conn.Open
rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM orders , conn, 1, 1"
Set DataGrid1.DataSource = rs
rs.Close
conn.Close
Set conn = Nothing
Set rs = Nothing
End Sub
运行后弹出内容为"用户SA登录失败.原因未与SQL建立信任相关连接"窗口.
什么原因?
非常谢谢LYD963的解答,根据你的指点,本人重装SQLserver2000,采用双身份验证模式,终于解决了问题.
再次表示对LYD963表示感谢,以后还请多指教.