作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

   我是一名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两个语句不可缺少。

相关软件：