Visual Basic.NET中使用ADO访问数据库

　　以上代码编好后放在所定义的类中.下面的省略号代表上面的函数和过程。可直接生成为DLL组件。方法是在.NET编辑环境下选择生成菜单中按生成就生成了DLL文件。然后，你可以直接调用该组件了。

　　Imports ADODB.Connection
Imports ADODB.Recordset
Imports ADODB.CursorLocationEnum
Imports System.DBNull '函数IsDBNull的来源
Class ADOAccess
Private mCnnDB As New ADODB.Connection()
…
End Class

　　调用上面生成的组件方法如下：在Visual Basic.NET中建立一项目，在窗口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("e:\test.mdb")
'DB.ConnSQLServer("wj-1058", "test")
'DB.ConnODBC("testODBC")
'DB.ConnOracle("wj-1059", "system", "manager")
'rec = DB.OpenTable("DEMO.customer")
rec = DB.OpenTable("doc_file")
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服务器名，"system", "manager"分别为用户名及口令。

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

　　以上程序在Visual Studio.NET中调试通过。　

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