关于如何使用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两个语句不可缺少。

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18