VB.NET中访问数据方法大全

来源：作者：51dotnet.com 出处：巧巧读书 2007-10-05 进入讨论组

　　固本人利用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 数据库名　　
　　Public Sub ConnAccess(ByVal DBName As String)
　　Dim strDB As String
　　mCnnDB.CursorLocation = adUseClient
　　mCnnDB.Provider = "Microsoft.Jet.OLEDB.4.0"
　　mCnnDB.Open(DBName, "Admin")
　　End Sub　

　　ODBC是一种广泛使用的连接多种数据库的方法，有万能钥匙之功效，但它需要通过ODBC先建立一个DNS，这里不作详细说明.有了DNS就可访问所连接的数据库。访问ODBC时先指明提供者，提供者只能为Microsoft 命名的MSDASQL,然后通过连接字符串指定数据源，用户名和密码，在下面的ConnectionString中指定，最后用open打开。由于ODBC分有用户名和无用户名两者，我们必须分别实现，借助类的函数名重载功能，我们编写两个同名的过程，完整的代码如下：　

　　'作用: 连接ODBC数据库(不需指定用户和密码 )
　　'参数：dsnName为ODBC名
　　Public Sub ConnODBC(ByVal dsnName As String)
　　mCnnDB.Provider = "MSDASQL"
　　mCnnDB.ConnectionString = "Data Source='" & dsnName & "'"
　　mCnnDB.Open()
　　End Sub
　　'作用: 连接ODBC数据库(需指定用户和密码 )
　　'参数：dsnName ODBC名,UserID 用户名，UserPwd 用户密码
　　Public Sub ConnODBC(ByVal dsnName As String, ByVal UserID As String, ByVal UserPwd As String) mCnnDB.Provider = "MSDASQL"
　　mCnnDB.ConnectionString = "Data Source='" & dsnName & "'User ID='" & UserID & "';" & _
　　"Password='" & UserPwd & "
　　mCnnDB.Open()
　　End Sub专题:http://www.qqread.com/vbdotnet/i254803.html