VB中DataGrid_控件的使用秘集

VB 中 DataGrid 控件的使用一得

建湖县艺术高级中学 夏成仁

如今，使用 VB 对小型数据库 ACCESS 编程已很普遍，在 VB 窗体中要表格

式显示库中的记录，首选的就是使用 DataGrid 控件，DataGrid 控件可以很好地

与 ACCESS 数据库结合，比较完美地输出记录，也可以与其它数据库结合（如

EXCEL、FOXPRO）调用 EXCEL 可实现表格的打印。DataGrid 控件的使用对

初上手的编程人员来说有一定的难度。下文是本人在使用这个控件过程中的一

点心得。

控件放置在窗体中适当的位置。程序启动后，控件图示并不在窗口中出现。

二、表的记录集（RS）形成

在窗口中使用 DataGrid 控件，就是要用这个控件显示一个数据库中某个表

的记录。一个数据库的某个表（EXCEL 工作薄的某个工作表）是保存在磁盘上

数据，首先是将需要的记录装入内存，装入内存的一个表的所有记录记录（或

表的部分记录）就形成一个记录集。这个记录集与表中的记录是对应的、互动

的。记录指针是一致的。如删除了这个记录集中的一个记录，也就删除了磁盘

中的一部数据。装入内存的目的主要是提高了操作的速度，内存中也许有多个

记录集，一个记录集必用一个记录集变量表示（如：RS），这样便于使用这个

记录集。

其实，要形成这样的记录集，有多种方法。ADO、DAO 等，对于初学者，

不一定要将这此方法一一学全、领会。他们之间是有一个的差别，特别在几十

万记录的大型数据库的使用中会有较大的速度上的差异（本人试过 4680003 条

记录的 ACCES 数据库）。要理解这此差别存在原因，确要分析不同连接的内

部本质。创建数据库连接过程也就是形成记录集的过程。

1） ADO 连接代码

Dim conn As ADODB.Connection

Dim rs As New ADODB.Recordset

定义连接变量与记录集变量，在 DataGrid 控件使用前的准备工作完成的前

提之下，这两个定义语句才能正常使用。因为，在工程中引用 Microsoft

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" +

App.Path & "\userlb.mdb "

conn.Open

rs.CursorLocation = adUseClient

rs.Open "select 姓名,学校 from usertt", conn, adOpenStatic, adLockOptimistic

其中：userlb.mdb 是需要打开的数据库文件名，usertt 是该数据库中的某一

个表名。“姓名,学校”是这个表中的两个字段名。"select 姓名,学校 from usertt"是

SQL，该语句是用来选择该表中部分字段及部分记录。 rs.CursorLocation =

adUseClient 也很重要，是显示方式的确定，许多新手正是由于缺少了该条语句 ，

结果是不报错, DataGrid 控件也不正常显示记录内容。 经过上述的准备后，记

程 ” 菜 单 中 的 “ 部 件 ” 选 项 ， 在 出 现 的 对 话 框 中 选 中 Microsoft Ado Date

Control6.0。这样在工具箱便有了 ADODC 控件，将该控件放置在窗体中，设置

这个控件的 ConnectionString、RecordSource 属性。并可建立起一个记录集。

建 立 了 上 述 的 记 录 集 ， 再 使 用 Set DataGrid1.DataSource =Adodc1 ， 自 然

DataGrid 控件便可显示该记录集中的记录。

3）非控件连接方法。

Dim ws As Workspace

Dim db As Database

Set ws = DBEngine.Workspaces(0)

Set db = ws.OpenDatabase(App.Path + "\table.mdb")

ttyy = "select * from 营业收入明细表 where trim(年)='" + v 年 + "' and trim(月)='"

+ v 月 + "' and trim(日)='" + v 日 + "' and trim(客户)='" + v 单 + "' and trim(型号)

='" + v 型 + "' order by 数值日期 ASC"

的圣约瑟研究实验室为其关系数据库管理系统 SYSTEM R 开发的一种查询语言，

学过 VF 软件的人都知道，在教材中有专门章节介绍 SQL 语言的使用方法。它

的功能十分强大，可以将单表或联接的多表建立一个查询，这个查询结果其实

也是一个二维数据表，那就是说这里的 SQL 查询语句的作用是，从数据库的一

"select 姓名,学校 from usertt"

"select name as 姓名,shool as 学校 from usertt order by 学号 ASC "

"select * from 营业收入明细表 where trim(年)='" + v 年 + "' and trim(月)='" + v

月 + "' and trim(日)='" + v 日 + "' and trim(客户)='" + v 单 + "' and trim(型号)='" +

v 型 + "' order by 数值日期 ASC"

SELECT 语句的使用方法如下：

语法如下：

[ORDER BY... ]

[WITH OWNERACCESS OPTION]

SELECT 更详细的阐述，请参考其他有关资料。

四、DataGrid 控件及记录集的属性与方法

1） DataGrid 控件的属性初始值有两种设置方法，一是利用该对象的属性面版

进行设置，这种设置与 VB 常用控件并无多大的差别，二是右击该控件，并

先选择“编辑”，再次右击并选择“属性”，在弹出的对话框中设置各个属性，

这里有许多属性在属性面版并不出现。

2） DataGrid 控件属性的重新设置。DataGrid 控件的属性比较多，逐一掌握并

不容易，一般情况下可初步掌握一些基本的属性或方法。

DataGrid1.Row = 1: DataGrid1.Col = 1: DataGrid1.Text = "123"

Me.DataGrid1.Columns(0).Width = 600 ‘调整某一列的列宽。

DataGrid 控件还有许多的属性，这里不再一一细述。

DataGrid 控件所显示的记录就是记录集（RS）的记录，因此使用记录集的

方法与属性亦可改变 DataGrid 控件的显示状态，如 rs.AbsolutePosition = 3 就是

将记录指针移到第三条记录上。使用 rs.AddNew、rs.fields(2).value 、rs.update

等属性或方法直接对记录集操作。

参考文献：Visual Basic for Windows 语言参考详解

Visual Foxpro 数据库实用程序设计

VB 中 DataGrid 控件的应用