创建 MyDataSource 类

在前面的主题中，我们创建了实现一个 OLE DB Simple Provider 的类。在该步骤中我们将创建另一个类，该类将从 MyOSPObject 类提供数据给其它的对象。

注意 该主题是帮助您创建示例数据源部件系列主题的一部分。创建数据源是第一部分。

要创建 MyDataSource 类，请按照以下步骤执行：

1. 在“工程资源管理器”中，选择 MyDataComponent 工程。
   
   
2. 从“工程”菜单中选择“添加类模块”，然后从“添加类模块”对话框中选择“添加类模块”。
   
   
3. 选择“属性”窗口，并对新的类模块设置下面的属性：

   属性	设置值
   (Name)	MyDataSource
   DataSourceBehavior	2-vbOLEDBProvider

   
   
4. 在“对象窗口”框中，选择“类”。在“过程”框中，选择 GetDataMember 事件。添加下面的代码到 Class_GetDataMember 事件过程：

   Private Sub Class_GetDataMember(DataMember As String, Data As Object)
   '声明 MyOSPObject 类的一个实例
   Dim MyOSP As New MyOSPObject
   
   '确保 DataMember 是有效的
   If DataMember = "" Then
    Err.Raise (E_FAIL)
   End If
   
   '设置 FilePath 属性
   MyOSP.FilePath = DataMember
   
   '调用 LoadData 方法充填该类
   MyOSP.LoadData
   
   '设置 MyDataSource 的数据为 MyOSPObject 的数据
   Set Data = MyOSP
   End Sub
   

5. 从“文件”菜单中选择“保存工程组”保存您的更改。当提示输入该 Class 模块的一个文件名时，选择缺省值（MyDataSource.cls）。

可能您已经注意到，这个类比 MyOSPObject 类简单得多。事实上，如果您回过头来将它和 GetDataMember 事件比较，您将看到它本质上做的是同样的工作。这里的主要差别是我们使用了一个我们自己创建的类，而不是预先存在的 ADODB 类。

在下一步骤中，我们将转换先前创建的窗体来使用新的数据源对象，并测试它来查看其结果。

步骤

该主题是帮助您创建示例 ActiveX 数据源系列主题的一部分。.