大香蕉综合在线观看视频-日本在线观看免费福利-欧美激情一级欧美精品性-综合激情丁香久久狠狠

好房網(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ù)庫相關的信

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

使用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的方法雖然不是性能最好的管理客戶機—服務器之間的對話方式,但它的確有許多優(yōu)點。

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

使用DAOs訪問SQL Server的過程如下:應用程序準備好語句并送至Jet,Jet引擎(MASJT200.DLL)優(yōu)化查詢,載入驅(qū)動程序管理器并與之通訊,驅(qū)動程序管理器(ODBC.DLL)通過調(diào)用驅(qū)動器(SQLSRVR.DLL)的函數(shù),實現(xiàn)連接到數(shù)據(jù)源,翻譯并向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數(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)連接中。

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



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



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ù),具有訪問重要的消息和處理錯誤的能力。

本文到此結束,希望對大家有所幫助。


版權說明: 本文由用戶上傳,如有侵權請聯(lián)系刪除!


標簽:

最新文章:

免费性欧美重口味黄色| 国产精品熟女乱色一区二区| 91久久精品国产一区蜜臀| 在线观看视频日韩成人| 日本婷婷色大香蕉视频在线观看| 人人妻在人人看人人澡| 国产精品亚洲综合天堂夜夜| 亚洲高清亚洲欧美一区二区| 欧美午夜一级特黄大片| 亚洲欧洲在线一区二区三区| 国产精品亚洲一区二区| 国产高清三级视频在线观看| 久热香蕉精品视频在线播放| 麻豆剧果冻传媒一二三区| 丰满人妻熟妇乱又伦精另类视频| 亚洲精品高清国产一线久久| 欧美野外在线刺激在线观看| 国产精品熟女在线视频| 国产亚洲欧美日韩精品一区| 91亚洲国产—区=区a| 亚洲熟女熟妇乱色一区| 久久免费精品拍拍一区二区| 亚洲天堂一区在线播放| 日韩欧美第一页在线观看| 亚洲熟妇熟女久久精品| 日韩黄色大片免费在线| 国产剧情欧美日韩中文在线| 欧美日韩三区在线观看| 国产精品亚洲二区三区| 日韩在线中文字幕不卡| 久久热在线免费视频精品| 视频一区二区黄色线观看| 日韩中文字幕欧美亚洲| 麻豆看片麻豆免费视频| 91亚洲国产日韩在线| 国产精品一区二区香蕉视频 | 在线观看视频日韩精品| 日本人妻的诱惑在线观看| 国产免费人成视频尤物| 麻豆视传媒短视频在线看| 免费在线观看激情小视频|