VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 关于如何使用ADO连接数据库
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:13497, 日期:2001-10-24
关于如何使用ADO连接数据库


作者: muwenyi 


     我是一名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        注释:有四种可选择的类型
  .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两个语句不可缺少。