VB怎么连接访问Access数据库
发布网友
发布时间：2022-04-21 21:30
共2个回答
懂视网
时间：2022-04-08 02:06
三种
使用ADO对象。通过编写代码訪问数据库
Connection 对象
ODBC数据源
使用ADO Data 控件高速创建数据库连接
有三种连接方法
Data Link文件
使用ODBC数据源名称
使用连接字符串
使用数据环境设计器创建数据库连接
首先加入环境引用。
然后找到数据源进行连接
不管是哪一种连接，都是先有一个路径，通向要连接的数据源。和数据源建立关系，在连接。就好比从北京到上海，能够做汽车，能够做火车，还能够做飞机。汽车走快速。火车走铁路。飞机走航线，过程不一样。但结果是一样的。都是到达上海目的地。
在操作这三种连接方式的时候，会发现有反复的操作。
Data 控件连接中，ODBC数据源的连接和使用字符串的连接 与直接使用ODBC数据源连接中，不同是。直接使用ODBC数据源设置好路径后。再用connection对象连接就可以；Data控件则不用Connection 对象，有控件，设置好路径了。就直接连到啦。
数据环境设计器和ADO 对象，都用到了connection连接。不同的是，数据环境设计器中，connection连接途径是和data控件中字符串的连接步骤一致。
总结不同：ADO对象连接须要编写代码，其它的不用编写代码。
以下具体介绍每一种连接方法的具体步骤：
1，使用ADO connection对象
首先，要建立ADO引用，定义connection这个类，然后实例化对象。
代码完毕例如以下：
Dim objCn As New Connection, objRs As New Recordset objCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" & "Data Source=" & App.Path & "实例01.mdb" objCn.Open
2。使用ODBC数据源
首先。打开电脑上的ODBC数据源。建立关系。
过程例如以下：
1）。打开电脑上的ODBC数据源
例如以下图所看到的：
2）点击加入
3）命名
4）和数据库源建立关系
5）用代码实现连接
dim objCn As Connection Set objCn = New Connection objCn.Open "DSN=实例2DSN"
3，ADO Data 控件创建连接
1）右击data控件，选择ADODC属性
2）从三种连接资源中选择一种。
使用data Link 文件：直接点击浏览，找到包括连接字符串的.udl文件就可以
使用ODBC数据源连接，单击新建
选择用户数据库。之后的操作跟2中步骤一样。
使用连接字符串：单击生成
測试连接
4。使用数据环境设计器创建数据库连接
加入引用
右击创建连接。在右击想要连接的属性，之后的操作跟data控件中使用字符串中的操作一致。
详细解释VB连接access几种方法数据库
标签：
热心网友
时间：2022-04-07 23:14
使用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引擎(MASJT200.DLL)优化查询，载入驱动程序管理器并与之通讯，驱动程序管理器(ODBC.DLL)通过调用驱动器(SQLSRVR.DLL)的函数，实现连接到数据源，翻译并向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("Select*from Customers") オ
End Sub ァ
上述例子是以非独占、非只读方式打开sales数据库，并检索Customers表中的所有字段。OpenDatabase函数的最后一个参数是ODBC连接字符串参数，它指明了Microsoft Access连接到SQL Server所需要知道的一些内容。其中“DSN”为数据源名，“WSID”为工作站名，“DATABASE”为所要访问的数据库名。
2、利用ODBC API编程
ODBC(Open Database Connectivity)的思想是访问异种数据库的一种可移植的方式。与数据资源对话的公用函数组装在一个称为驱动程序管理器(ODBC.DLL)的动态连接中。应用程序调用驱动程序管理器中的函数，而驱动程序管理器反过来通过驱动器(SQLSRVR.DLL)把它们送到服务器中。
下面的代码使用上面一些函数先登录到一个服务器数据库，并为随后的工作设置了语句句柄。
Global giHEnv As Long
Global giHDB As Long
Global giHStmt As Long
Dim myResult As integer
Dim myConnection As Srting
Dim myBuff As String*256
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,form1.hWnd,myConnection.len(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包含以下三个文件：
VBSQL.VBX： 包含库函数，具有访问重要的消息和处理错误的能力
