Visual Basic.NET中访问数据的方法

　　Visual Basic.NET是微软对Visual Basic语言进行的升级版本。它是一种完全面向对象的编程语言。微软对其进行了很大的改进。ADO在Visual Basic.NET中不再直接支持。访问数据有了新的变化，比以前复杂多了。签于大家比较熟悉ADO，且ADO的确简单、方便、适用。固本人利用ADO编写的访问目前市面上最广泛使用的数据库。现在接合Visual Basic.NET强大的类开发功能，本人把ADO访问数据的方法编成组件，完全封装起来，以方便大家的使用。方法如下：

　　启动Visual Studio.NET。在新建项目中选择Visual Basic项目，在模板中选择类库，在名称中输入类库名称如DataAccess.确定后，则进入类库开发环境中，把Class1换名为ADOAccess。

　　在项目菜单中加入引用，选择COM页，找到 Microsoft ActionX Data Object 20 Library 或更高版本确定。COM是Microsoft为了区分现在的.net，兼容以前的开发方式而设置的，凡是.net之前的组成件都可在COM页中可找到。（Microsoft ActionX Data Object 20 Library是Microsoft提供的ADO组件。它极大地方便了数据库的访问，是开发数据库有关软件的最实用的工具之一）

　　在类名上面写上Imports ADODB.Connection Imports ADODB.Recordset ,Imports ADODB.CursorLocationEnum, Imports System.DBNull 4条引用语句，这里分别是引用ADO，ADO的宏定义,空值函数的来源。

　　在类中定义一局部连接对象变量。 Private mCnnDB As New ADODB.Connection()

然后定义连接Access数据库的过程. Access 数据库是Microsoft开发的本地数据库,用adUseClient指定。它通过Microsoft.Jet.OLEDB数据访问方式访问数据库，Microsoft.Jet.OLEDB又有多种版本，其中4.0是最高版本，它能访问ACCESS 2000，所以这里的数据提供者指定为Microsoft.Jet.OLEDB.4.0。指定了本地数据库和提供者后，就可打开一个数据库了，用open方法实现。完整的代码如下：

　　'作用: 连接Access数据库

　　'参数: DBName 数据库名

　　'作用: 连接ODBC数据库(不需指定用户和密码 )

　　'参数：dsnName为ODBC名

　　'作用: 连接ODBC数据库(需指定用户和密码 )

　　'参数：dsnName ODBC名,UserID 用户名，UserPwd 用户密码

　　'作用: 连接SQL Server数据库

　　'参数：ServerName 服务器名,DBName 数据库名

　　'作用: 连接SQL Server数据库

　　'参数：ServerName 服务器名,DBName 数据库名,UserID 用户名，UserPwd 用户密码

　　'作用: 连接Oracle数据库

　　'参数：ServerName 服务器名,DBName 数据库名,UserID 用户名，UserPwd 用户密码

　　'作用:连接表

　　'参数：TableName表名

　　'返回：记录集

　　'作用:连接多表

　　'参数：strSQL

　　'返回：记录集

'作用：用记录集的数据填充网格

'参数：MSGrid 网格对象，rec 记录集对象

　　'作用：取记录集的记录数

　　'参数：rec 记录集对象

　　'返回：记录集的记录数

　　Public Function RecordCount()Function RecordCount(ByVal rec As ADODB.Recordset) As Integer

　　Public Class Form1Class Form1

　　Inherits System.Windows.Forms.Form

　　Dim DB As New ADOAccess()

　　Private Sub Form1_Load()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中的应用，连接几种最实用的数据库，且介绍了编写组件的方法。利用该知识极大地方便了软件开发者访问数据的能力，提高了开发效率。