Imports ADODB.CursorLocationEnum

Imports System.DBNull ''函数IsDBNull的来源 Class ADOAccess

Private mCnnDB As New ADODB.Connection() …

End Class

调用上面生成的组件方法如下：在Visual Basic2017中建立一项目，在窗口Form1中加入一AxMSFlexGrid网格命名为MsGrid1,布置如下

然后引用刚建立的Dll。方法是选择项目菜单的添加引用，选择项目页，按浏览找到其DLL文件确定后引用完成。在Form1中定义一ADOAccess对象，在Load事件中编写调用代码，分别测试其功能，代码如下：

Public Class Form1

Inherits System.Windows.Forms.Form Dim DB As New ADOAccess()

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim rec As New ADODB.Recordset() ''DB.ConnAccess(\''DB.ConnSQLServer(\''DB.ConnODBC(\

''DB.ConnOracle(\''rec = DB.OpenTable(\rec = DB.OpenTable(\DB.FillMsGrid(MSGrid1, rec) End Sub

说明：

1.你的机上要有Access数据库文件（e:\\test.mdb），MS Server数据库中有数据库test，doc_file 为test中的表，Oracle数据库中有表DEMO.customer

2. wj-1058为MS Server服务器名，wj-1059为Oracle服务器名，\分别为用户名及口令。

3. 一次仅连接一种数据库。

以上程序在Visual Studio2017中调试通过。

总结：上面方法介绍了刚面世不久的Visual Basic2017中有关数据库的开发，ADO在Visual Basic2017中的应用，连接几种最实用的数据库，且介绍了编写组件的方法。

本讲结束。