　　　　2. 在窗体上放置一个 ADO Data 控件和一个 DataGrid 控件。
　　　　3. 将 ADO Data 控件的ConnectionString 属性设置为 Northwind 的数据源。
　　　　4. 设置 ADO Data 控件的 RecordSource 属性。在“属性”窗口中，单击“记录源”并输入 Select ProductName, UnitPrice,(UnitPrice * .082) As Tax From Products。
　　　　5. 将 DataGrid 控件的 DataSource 属性设置为这个 ADO Data 控件。
　　　　6. 运行该工程。

　　　　与类模块一起使用 DataGrid 控件
　　　　如果想要访问以自定义格式或以 ODBC 驱动程序不直接支持的格式存放的数据，可以创建一个类来封装该数据。然后可以编写该类的自定义函数来检索这些数据。这样该类就变成了一种数据源，可以被任何数据使用者（如DataGrid 控件）使用。
　　　　在这个类模块的Initialize 事件中，首先通过声明一个作为 New　ADODB.Recordset的变量，来创建一个 ADODB recordset 对象。在创建了这个 recordset 对象后，再添加字段，每个数据源中的每个字段都要加入。然后使用合适的数据填充这个记录集。
　　　　注意也可以使用 OLEDB 示例提供者来创建一个数据源。关于 OLEDB示例提供者的详细信息，请参阅“创建带有数据提供方的部件”。
　　　　类模块有一个 GetDataMember 事件，只要当数据使用者（诸如 DataGrid 控件）需要数据时就产生该事件。在这个事件中，Data 参数被设置为在Initialize 事件中所创建的 recordset 对象。
　　　　如果要使用这个类模块，应创建一个具有一个 DataGrid 控件的窗体。在该窗体的 Load 事件的代码中，将该控件的 DataSource 属性设置为这个类。
　　　　注意数据类模块在设计时是不可用的。例如，如果使用 DataGrid 控件，则当用户在“属性”窗口中单击“数据源”时，所有可用的数据源都会出现在一个下拉列表中。但其中不会有这个数据类模块，它只能在代码中设置。

　　　　使用类模块创建一个数据源
　　　　下面的示例使用一个类模块来创建一个简单数据源。然后通过 DataSource属性将 DataGrid 控件绑定到该模块。
要创建一个用于DataGrid 的类
　　　　1. 创建一个新的标准 Exe 工程。
　　　　2. 给窗体添加一个 DataGrid 控件。如果DataGrid控件不在“工具箱”中，则在“工程”菜单中单击“部件”，
再单击“Microsoft DataGrid Control”，然后单击“确定”。
　　　　3. 在“工程”菜单中，单击“引用”。在“引用”对话框中，单击“MicrosoftActiveX Data Objects 2.0 Library”。
　　　　4. 在“工程”菜单中，单击“添加类模块”来给工程添加一个数据类模块。
　　　　5. 在“工程资源管理器”窗口中，单击并选定“类”图标，并按 F4 键显示“属性”窗口。
　　　　6. 在“属性”窗口中，将类的名称更改为NamesData。
　　　　7. 在“属性”窗口中，单击“DataSourceBehavior”并将该属性更改为vbDataSource。
　　　　8. 在该类模块的 Declarations 部分，创建一个 ADODB Recordset变量，如下所示：
　　　　Option Explicit
　　　　Private WithEvents rsNames As ADODB.RecordSet
　　　　使用 WithEvents 关键词来声明该变量，使用户可以对 RecordSet 对象的事件编程。
　　　　9. 在该类的 Initialize 事件中，添加下述代码：
　　　　Private Sub Class_Initialize()
　　　　　　' 将新的数据成员的名称添加到 DataMember 集合
　　　　　　' 这使其它对象可以看见这些可用的
　　　　　　DataMembersDataMembers.Add "Names"

　　　　　　Set rsNames = New ADODB.RecordSet　　　 ' 设置对象变量。
　　　　　　' 创建一个具有两个字段的 recordset，并打开该 recordset。
　　　　　　' 第一个记录具有一个整数的数据类型，第二个记录是一个最大可
　　　　　　' 达 256 个字符的字符串。CursorType 被设置为 OpenStatic
　　　　　　' —— 一个可更新的对一组记录的快照。LockType 被设置为
　　　　　　' LockOptimistic，以允许对该 recordset 进行更新。
　　　　　　With rsNames
　　　　　　　　.Fields.Append "ID", adInteger
　　　　　　　　.Fields.Append "Name", adBSTR, 255
　　　　　　　　.CursorType = adOpenStatic
　　　　　　　　.LockType = adLockOptimistic
　　　　　　　　.Open
　　　　　　End With

　　　　　　Dim i As Integer
　　　　　　For i = 1 to 10 　　' 添加十条记录。
　　　　　　　　rsNames.AddNew
　　　　　　　　rsNames!ID = i
　　　　　　　　rsNames!Name = "Name " & i
　　　　　　　　rsNames.Update
　　　　　　Next i
　　　　　　rsNames.MoveFirst ' 移到该记录集的开始。
　　　　End Sub
　　　　这部分代码首先创建 recordset 对象，然后给该对象添加两个字段。代码接着给 recordset 添加十条记录。
　　　　10. 在该类的 GetDataMember 事件中，添加下述代码：
　　　　Private Sub Class_GetDataMember(ByVal DataMember As String, _

上一页 [1] [2] [3] [4] [5] [6] [7] 下一页

上一篇:Visual Basic中DataCombo 和 DataList 控件的使用

下一篇:文件系统控件的使用

DataGrid 控件的使用相关文章：

·Vista系统使用技巧总结

·推荐：漂亮的手机上使用的墙纸图片分享下载

DataGrid 控件的使用相关软件：

·黑客视频教程 VMware虚拟机的安装和使用

·使用GPMC随心所欲管理组策略

·Adobe Photoshop CS 2 简体中文使用指南

·Microsoft Visio 2000 完全使用手册

·Auto CAD R14高级使用教程

·AUTOCAD 2000使用指南(PDF)

·Auto CAD R14高级使用教程

·虚拟光驱的使用方法（全）swf

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。
[打印本页] [关闭窗口] 转载请注明来源：http://www.viphot.com

	\| 帮助(？) \| 版权声明 \| 友情连接 \| 关于我们 \| 信息发布
Copyright 2007 www.viphot.com All Rights Reserved.	鄂ICP备05000083号Powered by:vipcn