好房网

网站首页 互联网 > 正文

vb连接access数据库代码(VB怎么联接访问Access数据库)

2022-05-25 12:27:38 互联网 来源:
导读 相信目前很多小伙伴对于VB怎么联接访问Access数据库都比较感兴趣,那么小编今天在网上也是收集了一些与VB怎么联接访问Access数据库相关的信

相信目前很多小伙伴对于VB怎么联接访问Access数据库都比较感兴趣,那么小编今天在网上也是收集了一些与VB怎么联接访问Access数据库相关的信息来分享给大家,希望能够帮助到大家哦。

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

①数据访问对象/Jet

②为ODBC API编程

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

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

⑤ADO 数据对象(Active Data Objects)

数据访问对象/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

MsgBoxAllocation 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: 包含库函数,具有访问重要的消息和处理错误的能力。

本文到此结束,希望对大家有所帮助。


版权说明: 本文由用户上传,如有侵权请联系删除!


标签: