VB怎么连接访问Access数据库

使用Visual Basic作为前端开发语言，与SQL Server接口有几种常用的方法，即：

①数据访问对象/Jet

②为ODBC API编程

③使用SQL Server的Visual Basic库(VBSQL)为DB库的API编程

④RDO 远程数据对象(RemoteData Objects)

⑤ADO 数据对象(Active Data Objects)

1、数据访问对象/Jet

VB支持Data Access Objects(DAOs)的子集。DAO的方法虽然不是性能最好的管理客户机—服务器之间的对话方式，但它的确有许多优点。DAO/Jet是为了实现从VB访问Access数据库而开发的程序接口对象。使用DAOs访问SQL Server的过程如下：应用程序准备好语句并送至Jet，Jet引擎(MASJT200DLL)优化查询，载入驱动程序管理器并与之通讯，驱动程序管理器(ODBCDLL)通过调用驱动器(SQLSRVRDLL)的函数，实现连接到数据源，翻译并向SQL Server提交SQL语句且返回结果。下面是一个用DAOs访问SQL Server的VB实例。

注释：Form Declarations

Dim mydb As Database

Dim mydynaset As Dynaset オ

Private Sub Form_Load()

Set mydb = OpenDatabase("", False, False, "ODBC; DSN=Myserver; WSID=LCL; DATABASE = sales")

Set mydynaset = mydb CreateDynaset("Selectfrom Customers") オ

End Sub ァ

上述例子是以非独占、非只读方式打开sales数据库，并检索Customers表中的所有字段。OpenDatabase函数的最后一个参数是ODBC连接字符串参数，它指明了Microsoft Access连接到SQL Server所需要知道的一些内容。其中“DSN”为数据源名，“WSID”为工作站名，“DATABASE”为所要访问的数据库名。

2、利用ODBC API编程

ODBC(Open Database Connectivity)的思想是访问异种数据库的一种可移植的方式。与数据资源对话的公用函数组装在一个称为驱动程序管理器(ODBCDLL)的动态连接中。应用程序调用驱动程序管理器中的函数，而驱动程序管理器反过来通过驱动器(SQLSRVRDLL)把它们送到服务器中。

下面的代码使用上面一些函数先登录到一个服务器数据库，并为随后的工作设置了语句句柄。

Global giHEnv As Long

Global giHDB As Long

Global giHStmt As Long

Dim myResult As integer

Dim myConnection As Srting

Dim myBuff As String256

Dim myBufflen As Integer

If SQLAllocEnv(giHEnv)<>SQL_SUCCESS Then

MsgBox"Allocation couldn注释：t happen!"

End If

If SQLAllocConnect(giHEnv,giHDB)<>SQL_SUCCESS Then

MsgBox "SQL Server couldn注释：t connect!"

End If

myConnection="DSN=myServer;UID=LCL;PWD=;APP=ODBCTest;WSID=LCL;DATABASE=sales"

myResult=SQLDriverConnect(giHDB,Test,form1hWnd,myConnectionlen(myConnection),myBuff,256,myBufflen,SQL_DRIVER_COMPLETE_REQUIED)

myResult=SQLAllocStmt(giHDS,giHStmt)

myResult=SQLFreeStmt(giHStmt,SQL_COLSE)

rsSQL="Select from Customers Where City = "Hunan""

myResult = SQLExecDirect(giHStmt,rsSQL,Len(rsSQL))

3、使用VBSQL对DB库API编程

DB库是SQL Server的本地API，SQL Server的Visual Basic库(VBSQL)为Visual Basic程序员提供API。从一定意义上说，VBSQL是连接Visual Basic程序到SQL Server的性能最好最直接的方式。VBSQL包含以下三个文件：

VBSQLVBX： 包含库函数，具有访问重要的消息和处理错误的能力

1、打开代码窗口，添加引用：Imports SystemDataSqlClient。

2、输入以下代码：

“Public conn1  As SqlConnection = New SqlConnection _

("server=192168179; Initial Catalog= student; User ID= panqe;PWD=shentai768@")”，vb就已经成功连接sql数据库了。

3、代码详解：声明关键字Public（因为是全局变量，所以用Public 来声明）。

4、连接参数。

5、如果SQL 数据库就在本机，则用以下代码连接：

("server=; Integrated Security=False;Initial Catalog= student; User ID= panqe;PWD=shentai768@")。

6：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。

由于VB本身并不带有可以访问数据库的类,所以我们需要引用一个包含能访问数据库的类来使用数据库这里我们采用ADODB,相比DAO和能访问数据库的API来说,它比DAO更灵活,更强大;而比起API,它更简单易用,更适合初学者而Access数据库比起SQL,也相对简单了很多,且能够满足中小型应用程序的需要,所以我们在使用数据库时,选择了Access 就像使用文本文件来存储数据一样,我们需要先设计好数据结构,只不过在设计Access数据库的结构时,我们需要用到其它的程序来进行详细的规划建议采用的程序是office中的Access或VB自带的VISDATA 当数据库设计好了以后,我们可以开始数据库编程了 首先,我们需要引用ADO具体的方法是,在工程 -- 引用 中,找到Microsoft ActiveX Data Object Library,这里的是指的时ADO的版本号,一般来说,应用程序或ActiveX控件都具有向下兼容性,所以我们尽可能选择比较新的版本以确保程序在能识别旧版本Access的同时,也能识别较新版本的Access 然后我们需要在程序中创建一个对象就好比我们在窗体上添加一个FileBox才能看到文件名一样,只有创建了ADO对象,我们才能够访问数据库常用的对象有两个,Connection和Recordset 创建这两个对象的具体方法是: 1在引用后,使用New关键字,如 Private Conn As New ADODBConnection Private Reco As New ADODBRecordset 2在没引用时,用CreateObject创建对象: Dim Conn,Reco Set Conn = CreateObject(ADODBConnection) Set Reco = CreateObject(ADODBRecordset) 创建了对象之后,下一步我们要做的就是打开数据库了 先看下面的代码,可以成功的打开数据库 Connopen Provider=MicrosoftJetOLEDB40;Data Source=D:\Mainmdb 这句代码打开了D盘中的Mainmdb这个数据库 ConnectionOpen方法的第一个参数是连接代码,它将传递给系统的数据库引擎前半部分Provider=MicrosoftJetOLEDB40,它表示了数据库的类型不同的数据库可能会不同后半句Source=d:\mainmdb它表示了数据库所在的绝对路径 打开数据库之后,还要打开表假如数据库中有一个表,表名为Users,字段有两个,一个为用户名,一个为密码那么看以下代码 1想返回Users中,[用户名]为去年烟花的[密码] Recordsetopen Select 密码 From Users Where 用户名='去年烟花',Connection,1,1 之后我们就可以把用户输入的密码进行比较,看是否允许登录 If Recordseteof and Recordsetbof then Msgbox 用户不存在!,16 Else If PassWord =Recordset(密码)value then msgbox 登录成功!,64 Else msgbox 密码错误!,32 End If End If RecordsetClose 2假设Admin已经成功登录系统,我们想把所有的用户名和密码都显示出来 Recordsetopen Select From Users,Connection,1,1 这时,表已经被打开,我们就用以下代码把它显示出来 Do whlie Not Recordseteof Print 用户名: & Recordset(用户名)value & 密码: & Recordset(密码)value RecordsetMoveNext Loop RecordsetClose 由以上代码示例可以看出,打开表时,可以只打开其中的一个字段,也可以打开所有第一个参数是SQL语句 Select [字段名] From 表名 [Where 条件] 这里的条件可以省略且字段名也可以用来代替所有字段 需要注意的是,如果你用(1)中的方法打开,那么(2)后面显示的代码就不能再用在(1)中因为(1)里并没有打开[用户名]字段,所以这一句Recordset(密码)就没有值存在,还有可能出错 后面的条件,可以用=、>、 32(这里假设[ID]为数字型) 这是打开的部分第二个很重要的部分就是查询记录 数据库它并不是把所有记录全部放到一个变量中备用的而是以当前记录的形式来返回一个值所以我们想从中找到有用的信息,就必须要对信息进行定位/筛选 定位: 移动到下一条 RecordsetMoveNext 移动到上一条 RecordsetMovePrevious 移动到最后一条 RecordsetMoveLast 移动到第一条 RecordsetMoveFrist 移动到某一条 RecordsetMove Number 筛选: RecordsetFind 条件 如:[用方法(2)打开表之后] Private Sub Command1_Click() RecordsetFind 用户名= & text1text If RecordsetEof True Then Msgbox 该用户的密码是: & Recordset(密码)value,64 Else Msgbox 未找到该用户的资料!,16 End If End Sub MoveNext 只有当Eof不为True时,才可用,否则发生错误而MovePrevious刚是Bof不为True时 而只要Eof 和 Bof中有一个不为真时,也就是说只要有一条记录时,它就可以使用 Find 方法中的条件和Open时的第一个参数中的条件表述方法是完全一致的当在已打开的记录集中,找不到该记录时,Eof为True找到则当前的值就是符合条件的记录 第三个部分就是添加/修改记录 修改记录很简单,先按以上的方法找到相关记录之后,给记录赋值就可以了 比如:[(修改密码)按方法(1)打开表之后] Recordset(密码)value = 123456 RecordsetUpdata 需要注意的就是,在修改完成后,要调用Updata方法,这样修改才能生效 而添加记录则可以用以下代码来实现: Recordsetaddnew Recordset(用户名)value = Admin Recordset(密码)value = Admin RecordsetUpdata 这里,先要调用Addnew方法,增加一条新记录,然后对这个新记录中的各字段赋值,最后再调用Updata方法 到这里就差不多了,最后说一下上面提到的几个方法 RecordsetOpen SQL语句,数据源,游标类型,打开方法 SQL语句不用说了,就是Select那啥的,目的就是按要求从表中返回数据 数据源就是一个打开之后的Connection对象 填1就可以了 打开方法对应了几个常数,具体哪几个可以从对象浏览器里看。 对应数值的意义: 1 只读 2 独占 3 可写 4 自已可写,别人可读。 Connectionopen 连接代码,服务器用户名,密码。

1、打开代码窗口，添加引用：Imports SystemDataSqlClient。

2、输入以下代码：

“Public conn1  As SqlConnection = New SqlConnection _

("server=192168179; Initial Catalog= student; User ID= panqe;PWD=shentai768@")”，vb就已经成功连接sql数据库了。

3、代码详解：声明关键字Public（因为是全局变量，所以用Public 来声明）。

4、连接参数。

5、如果SQL 数据库就在本机，则用以下代码连接：

("server=; Integrated Security=False;Initial Catalog= student; User ID= panqe;PWD=shentai768@")。

6：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。

1、 用The SQL Server NET Data Provider连接数据库

The SQL Server NET Data Provider是利用SqlConnection类来连接SQL Server70或更高版本的数据库，

SqlConnection类位于名称空间SystemDataSqlClient下。

连接代码：

Dim sqlConnection1 As SqlClientSqlConnection

Dim strConnect As String=”data source=服务器名;initial catalog=数据库名;user id=sa;password=;”

sqlConnection1=New SystemDataSqlClientSqlConnection(strConnect)

sqlConnection1open ‘打开数据库

sqlConnection1close ‘关闭连接，释放资源

2、 用The OLE DB NET Data Provider连接数据库

上面已经说过，利用The OLE DB NET Data Provider可以访问Access、Oracle和SQL Server等种数据

库，那么，它是怎样访问这些数据库的呢？The OLE DB NET Data Provider是通过位于名称空间Sy

stemDataOleDb类库下的OleDbConnection类来连接这三种不同类型的数据库的。下面举例说明:

1)连接SQL Server数据库

Dim oleDbConnection1 As OleDbOleDbConnection

Dim strConnect As Sting=”Provider=SQLOLEDB;Persist Security Info=False;Data Source=服务器名;Initial Catalog=数据库名;User ID=sa;Password=;”

oleDbConnection1=New SystemDataOleDbOleDbConnection(strConnect)

2)连接Access数据库

假设要连接的Access数据库名为“Examplemdb”，存放在d:\Data\目录下。

Dim oleDbConnection1 As OleDbOleDbConnection

Dim strConnect As Sting=”Provider=MicrosoftJetOLEDB40;Data Source=d:\Data\ Examplemdb”

oleDbConnection1= New SystemDataOleDbOleDbConnection(strConnect)

3)连接Oracle数据库

Dim oleDbConnection1 As OleDbOleDbConnection

Dim strConnect As Sting=”Provider=MSDAORA;Data Source=服务器名;User ID=用户ID;Password=密码;”

oleDbConnection1= New SystemDataOleDbOleDbConnection(strConnect)

3、 用The ODBC NET Data Provider连接数据库

The ODBC NET Data Provider连接数据库是通过OdbcConnection类来实现的，这个类位于名称空间

MicrosoftDataOdbc下，而名称空间MicrosoftDataOdbc是封装在MicrosoftDataOdbcdll文件下的。

由于篇幅有限，这里就只介绍连接Sql Server和Oracle数据库的方法，其他数据库的连接方法基本类

似，我就不再多讲了。

1)连接Sql Server数据库

Dim odbcDbConnetion1 As MicrosoftDataOdbcConnection

Dim strConnect As Sting=”Driver={SQL Server};Server=服务器名;Uid=sa;pwd=;Database= 数据库名;”

odbcDbConnetion1=New MicrosoftDataOdbcConnection(strConnect)

2)连接Oracle数据库

Dim odbcDbConnetion1 As MicrosoftDataOdbcConnection

Dim strConnect As Sting=”Driver={Microsoft ODBC for Oracle};Server=服务器名;Uid=sa;pwd=;”

odbcDbConnetion1=New MicrosoftDataOdbcConnection(strConnect)

四、总结

通过本文的介绍，读者基本掌握了在Visual BasicNET中用ADONET和ODBCNET连接各种数据库的方法

。以上三种驱动针对不同的数据库，它们的性能方面也有很大的不同：The SQL Server NET Data Provider

的效率最高；The OLE DB NET Data Provider的效率比较底；The ODBC NET Data Provider的效率最慢。

具体连接哪一种数据库选用哪一种数据驱动要从工作效率方面来考虑。

以上回答你满意么？

以上就是关于VB怎么连接访问Access数据库全部的内容，包括:VB怎么连接访问Access数据库、vb怎么连接sql、VB如何连接ACCESS数据库等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！