怎么用ADO控件联连SQL的数据库？我试了很多次都没有成功，请指点!谢谢。

Question

ADO控件与SQL数据库怎么来实现连接。我试不出来。请详细介绍一种最简单的方法。谢谢。

Answer 1

Option ExplicitPrivate Rs As New ADODB.Recordset
Private Conn As New ADODB.ConnectionPrivate Sub Form_Load()
 Dim strConn As String
 
 ' 连接数据库的字符串
 ’连接字符用个adodc控件去生成
 strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=Localhost"
 
 ' 使用客户端数据游标
 Conn.CursorLocation = adUseClient Conn.Open strConn
 
 ' 如果RecordSet的状态不是关闭状态,则关闭Recordset
 If Rs.State <> adStateClosed Then Rs.Close
 
 ' Recordser打开表People
 Rs.Open "Select * from People", Conn, adOpenKeyset, adLockOptimistic
 
 ' 报告出 一共多少笔数据,测试是否存在数据
 ' MsgBox Rs.RecordCount
 
 ' 绑定进DataGrid
 Set DataGrid1.DataSource = Rs
 
End Sub