admin 管理员组文章数量: 887031
2023年12月22日发(作者:c语言函数用法大全)
百度文库 - 让每个人平等地提升自我!
VB中DataGrid 控件的使用一得
建湖县艺术高级中学 夏成仁
如今,使用VB对小型数据库ACCESS编程已很普遍,在VB窗体中要表格式显示库中的记录,首选的就是使用DataGrid 控件,DataGrid 控件可以很好地与ACCESS数据库结合,比较完美地输出记录,也可以与其它数据库结合(如EXCEL、FOXPRO)调用EXCEL可实现表格的打印。DataGrid 控件的使用对初上手的编程人员来说有一定的难度。下文是本人在使用这个控件过程中的一点心得。
一、DataGrid 控件使用前的准备
DataGrid 控件不是VB常用控件,正常新建的VB工程的工具箱中并不具有该控件,要使用该控件可进行如下操作,选择 “工程” 菜单中的“部件”菜单项,在出现的对话框中选中Microsoft Dategrid Control6.0。按“确定”按钮。在工具箱中便可添加了DataGrid 控件。另外还需要在工程中引用Microsoft ActiveX
Date Objects2.0 Library,(菜单“工程” 引用)。经过以上两步骤后,编程人员可以将该控件放置在窗体中适当的位置。程序启动后,控件图示并不在窗口中出现。
二、 表的记录集(RS)形成
在窗口中使用DataGrid 控件,就是要用这个控件显示一个数据库中某个表的记录。一个数据库的某个表(EXCEL工作薄的某个工作表)是保存在磁盘上数据,首先是将需要的记录装入内存,装入内存的一个表的所有记录记录(或表的部分记录)就形成一个记录集。这个记录集与表中的记录是对应的、互动的。记录指针是一致的。如删除了这个记录集中的一个记录,也就删除了磁盘中的一部数据。装入内存的目的主要是提高了操作的速度,内存中也许有多个记录集,一个记录集必用一个记录集变量表示(如:RS),这样便于使用这个记录集。
DataGrid 控件表面上显示数据库中某个表中的记录,在编程中,DataGrid 控件实际是显示一个记录集的内容,因此使用DataGrid 控件的重点是记录集的形成,一旦形成了记录集(RS)后,使用语句Set urce = RS,便可使DataGrid 控件显示出RS记录集中的记录了。这个语句实现了对DataGrid
控件的绑定。
1
百度文库 - 让每个人平等地提升自我!
其实,要形成这样的记录集,有多种方法。ADO、DAO等,对于初学者,不一定要将这此方法一一学全、领会。他们之间是有一个的差别,特别在几十万记录的大型数据库的使用中会有较大的速度上的差异(本人试过4680003条记录的ACCES数据库)。要理解这此差别存在原因,确要分析不同连接的内部本质。创建数据库连接过程也就是形成记录集的过程。
1)ADO连接代码
Dim conn As tion
Dim rs As New set
定义连接变量与记录集变量,在DataGrid 控件使用前的准备工作完成的前提之下,这两个定义语句才能正常使用。因为,在工程中引用Microsoft ActiveX
Date Objects2.0 Library方可有tion与set类型。
Set conn = New tion
Set rs = New set
该两语句与上面两定义语句相应。建立新的对象,准备打开数据库与形成记录集。以下是建立记录集的核心语句。
tionString = "Provider=.4.0;Data Source=" +
& " "
Location = adUseClient
"select 姓名,学校 from usertt", conn, adOpenStatic, adLockOptimistic
其中:是需要打开的数据库文件名,usertt是该数据库中的某一个表名。“姓名,学校”是这个表中的两个字段名。"select 姓名,学校 from usertt"是SQL,该语句是用来选择该表中部分字段及部分记录。Location =
adUseClient也很重要,是显示方式的确定,许多新手正是由于缺少了该条语句,结果是不报错, DataGrid 控件也不正常显示记录内容。 经过上述的准备后,记录集RS已经建立。使用Set urce = rs语句,便可将这个记录集的记录显示在DataGrid 控件中。
2)使用ADODC控件的连接方法
ADODC控件并不是常用的控件,正常情况下在工具箱中不出现,选择“工2
百度文库 - 让每个人平等地提升自我!
程”菜单中的“部件”选项,在出现的对话框中选中Microsoft Ado Date Control6.0。这样在工具箱便有了ADODC控件,将该控件放置在窗体中,设置这个控件的ConnectionString、RecordSource属性。并可建立起一个记录集。
tionString = "Provider=.4.0;Data
Source=D: ;Persist Security Info=False"
Source = "select 姓名,学校 from usertt"
建立了上述的记录集,再使用Set urce =Adodc1,自然DataGrid
控件便可显示该记录集中的记录。
3)非控件连接方法。
Dim ws As Workspace
Dim db As Database
Set ws = aces(0)
Set db = tabase( + "")
ttyy = "select * from 营业收入明细表 where trim(年)='" + v年 + "' and
trim(月)='" + v月 + "' and trim(日)='" + v日 + "' and trim(客户)='" + v单 + "'
and trim(型号)='" + v型 + "' order by 数值日期 ASC"
Set rs = cordset(ttyy)
综上所述:无论哪种方法创建数据库的连接与建立记录,无非是指明被连接的数据库名,选择所需要的表名,表中记录与字段的选择。表中的记录与字段的筛选需要使用SQL语句。
三、SQL语句在创建记录集中的使用
SQL全称是“结构化查询语言(Structured Query Language)”,最早的是IBM的圣约瑟研究实验室为其关系数据库管理系统SYSTEM R开发的一种查询语言,学过VF软件的人都知道,在教材中有专门章节介绍SQL语言的使用方法。它的功能十分强大,可以将单表或联接的多表建立一个查询,这个查询结果其实也是一个二维数据表,那就是说这里的SQL查询语句的作用是,从数据库的一个或多个表中筛选出符合条件的记录,形成一个新虚拟表。这个虚拟表就作为记3
百度文库 - 让每个人平等地提升自我!
录集使用。如下列语句:
"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语句的使用方法如下:
语法如下:
SELECT [关键字] { * | 表名称.* | [表名称.]字段名称1 [AS 别名1] [,
[表名称.] 字段名称2 [AS 别名2] [, ...]]}
FROM 表运算式 [, ...] [IN 外部表]
[ ]
[ ]
[ ]
[ ]
[WITH OWNERACCESS OPTION]
SELECT更详细的阐述,请参考其他有关资料。
四、DataGrid 控件及记录集的属性与方法
1)DataGrid 控件的属性初始值有两种设置方法,一是利用该对象的属性面版进行设置,这种设置与VB常用控件并无多大的差别,二是右击该控件,并先选择“编辑”,再次右击并选择“属性”,在弹出的对话框中设置各个属性,这里有许多属性在属性面版并不出现。
2)DataGrid 控件属性的重新设置。DataGrid 控件的属性比较多,逐一掌握并不容易,一般情况下可初步掌握一些基本的属性或方法。
4
百度文库 - 让每个人平等地提升自我!
ddNew = True ‘允许增加新记录
pdate = True ‘允许更改记录内容
h ‘刷新DataGrid 控件内容
owSizing = True
‘返回当前单元格中的内容
s(8).NumberFormat = "0.00"
= 1: = 1: = "123"
s(0).Width = 600 ‘调整某一列的列宽。
DataGrid 控件还有许多的属性,这里不再一一细述。
DataGrid 控件所显示的记录就是记录集(RS)的记录,因此使用记录集的方法与属性亦可改变DataGrid 控件的显示状态,如tePosition = 3就是将记录指针移到第三条记录上。使用、(2).value 、等属性或方法直接对记录集操作。
参考文献:Visual Basic for Windows 语言参考详解
Visual Foxpro 数据库实用程序设计
5
版权声明:本文标题:vb中datagrid控件的使用一得 内容由网友自发贡献,该文观点仅代表作者本人, 转载请联系作者并注明出处:http://www.freenas.com.cn/jishu/1703244770h443848.html, 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,一经查实,本站将立刻删除。
发表评论