Chinaunix首页 | 论坛 | 博客
  • 博客访问: 2055499
  • 博文数量: 454
  • 博客积分: 10921
  • 博客等级: 上将
  • 技术积分: 5396
  • 用 户 组: 普通用户
  • 注册时间: 2006-06-15 15:20
个人简介

伪IT男

文章分类

全部博文(454)

文章存档

2016年(2)

2013年(6)

2012年(17)

2011年(29)

2010年(24)

2009年(54)

2008年(53)

2007年(202)

2006年(67)

分类:

2008-06-12 20:23:54

vb ADO 连接数据库,并绑定datagrid控件

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

阅读(5027) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~