国产精品久久久久久久久久东京,亚洲视频免费播放,少妇人妻精品一区二区三区视频,日韩一级品

好房網(wǎng)

網(wǎng)站首頁 互聯(lián)網(wǎng) > 正文

vb連接access數(shù)據(jù)庫代碼（VB怎么聯(lián)接訪問Access數(shù)據(jù)庫）

2022-05-25 12:27:38 互聯(lián)網(wǎng) 來源：
導讀 相信目前很多小伙伴對于VB怎么聯(lián)接訪問Access數(shù)據(jù)庫都比較感興趣，那么小編今天在網(wǎng)上也是收集了一些與VB怎么聯(lián)接訪問Access數(shù)據(jù)庫相關(guān)的信

相信目前很多小伙伴對于VB怎么聯(lián)接訪問Access數(shù)據(jù)庫都比較感興趣，那么小編今天在網(wǎng)上也是收集了一些與VB怎么聯(lián)接訪問Access數(shù)據(jù)庫相關(guān)的信息來分享給大家，希望能夠幫助到大家哦。

使用Visual Basic作為前端開發(fā)語言，與SQL Server接口有幾種常用的方法，即：

①數(shù)據(jù)訪問對象/Jet

②為ODBC API編程

③使用SQL Server的Visual Basic庫(VBSQL)為DB庫的API編程

④RDO 遠程數(shù)據(jù)對象(RemoteData Objects)

⑤ADO 數(shù)據(jù)對象(Active Data Objects)

數(shù)據(jù)訪問對象/Jet

VB支持Data Access Objects(DAOs)的子集。

DAO的方法雖然不是性能最好的管理客戶機—服務(wù)器之間的對話方式，但它的確有許多優(yōu)點。

DAO/Jet是為了實現(xiàn)從VB訪問Access數(shù)據(jù)庫而開發(fā)的程序接口對象。

使用DAOs訪問SQL Server的過程如下：應(yīng)用程序準備好語句并送至Jet，Jet引擎(MASJT200.DLL)優(yōu)化查詢，載入驅(qū)動程序管理器并與之通訊，驅(qū)動程序管理器(ODBC.DLL)通過調(diào)用驅(qū)動器(SQLSRVR.DLL)的函數(shù)，實現(xiàn)連接到數(shù)據(jù)源，翻譯并向SQL Server提交SQL語句且返回結(jié)果。

下面是一個用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數(shù)據(jù)庫，并檢索Customers表中的所有字段。

OpenDatabase函數(shù)的最后一個參數(shù)是ODBC連接字符串參數(shù)，它指明了Microsoft Access連接到SQL Server所需要知道的一些內(nèi)容。

其中“DSN”為數(shù)據(jù)源名，“WSID”為工作站名，“DATABASE”為所要訪問的數(shù)據(jù)庫名。



2、利用ODBC API編程

ODBC(Open Database Connectivity)的思想是訪問異種數(shù)據(jù)庫的一種可移植的方式。

與數(shù)據(jù)資源對話的公用函數(shù)組裝在一個稱為驅(qū)動程序管理器(ODBC.DLL)的動態(tài)連接中。

應(yīng)用程序調(diào)用驅(qū)動程序管理器中的函數(shù)，而驅(qū)動程序管理器反過來通過驅(qū)動器(SQLSRVR.DLL)把它們送到服務(wù)器中。



下面的代碼使用上面一些函數(shù)先登錄到一個服務(wù)器數(shù)據(jù)庫，并為隨后的工作設(shè)置了語句句柄。



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： 包含庫函數(shù)，具有訪問重要的消息和處理錯誤的能力。

本文到此結(jié)束，希望對大家有所幫助。

版權(quán)說明： 本文由用戶上傳，如有侵權(quán)請聯(lián)系刪除！

標簽：

最新文章：