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

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

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

Option Explicit

Private 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 '有四种可选择的类型,在编程过程中使用SQL SERVER的存储过程是很好的方法

.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两个语句不可缺少。