关于如何使用ADO连接数据库

　　关于如何使用ADO连接数据库

作者: muwenyi　

     我是一名VB初学者，曾经为这个问题很苦恼，现在终于写了出来，我一样初学者一起进步吧！

我使用ADO连接数据库，通过绑定datagrid控件来显示数据库中符合条件的内容。

Option Explicit

** Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim Cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
Dim strConnect As String
Set cn = New ADODB.Connection
strConnect = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=database;Data Source=servername"  注释：指定连接字符串
cn.ConnectionString = strConnect
cn.Open
With Cmd
  .ActiveConnection = cn
  .CommandType = adCmdStoredProc        注释：有四种可选择的类型
  .CommandText = "SP_Get_Name"           注释：存储过程名称
  .Parameters.Refresh
  .Parameters("@dt").Value = date()           注释：存储过程中参数的值(存储过程中只有一个参数)
End With

With rs
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockReadOnly
.Open Cmd
End With
Set DataGrid1.DataSource = rs

End Sub

要在DataGrid控件中显示数据CursorLocation = adUseClient和Set DataGrid1.DataSource = rs两个语句不可缺少。