五月婷婷激情五月,九九热在线视频免费观看,传媒天美果冻aaaaa

VB6實現(xiàn)連接Access數(shù)據(jù)庫的ADODB代碼實現(xiàn)方法

2021-10-11 15:39VB教程網(wǎng) VB

這篇文章主要介紹了VB6實現(xiàn)連接Access數(shù)據(jù)庫的ADODB代碼實現(xiàn)方法,對于初學(xué)者掌握VB鏈接access數(shù)據(jù)庫有著很好的借鑒價值,需要的朋友可以參考下

本文實例講述了使用ADODB.Connection連接access數(shù)據(jù)庫的方法，驅(qū)動類型版本為：Microsoft.Jet.OLEDB.4.0。在VB的數(shù)據(jù)庫操作中，連接數(shù)據(jù)庫是第一步，也是最基本的，本文所述的這個例子，對于初學(xué)者學(xué)習(xí)如何在VB中連接Access數(shù)據(jù)庫有著很好的借鑒參考價值。

具體實現(xiàn)代碼如下：

				?

									VERSION 5.00

									Begin VB.Form 操作數(shù)據(jù)庫 

									  Caption     =  "VB操作數(shù)據(jù)庫"

									  ClientHeight  =  3645

									  ClientLeft   =  4905

									  ClientTop    =  4260

									  ClientWidth   =  5895

									  LinkTopic    =  "Form1"

									  ScaleHeight   =  3645

									  ScaleWidth   =  5895

									End

									Attribute VB_Name = "操作數(shù)據(jù)庫"

									Attribute VB_GlobalNameSpace = False

									Attribute VB_Creatable = False

									Attribute VB_PredeclaredId = True

									Attribute VB_Exposed = False

									Option Explicit

									Private Sub Form_Load()

									Dim 數(shù)據(jù)庫 As Object

									Set 數(shù)據(jù)庫 = New ADODB.Connection

									Call 數(shù)據(jù)庫.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb;") '連接數(shù)據(jù)庫

									If ((數(shù)據(jù)庫.State) = (adStateOpen)) Then

									  MsgBox ("連接成功！")

									Else

									  MsgBox ("連接失敗！")

									End If

									數(shù)據(jù)庫.Close

									Set 數(shù)據(jù)庫 = Nothing

									End Sub

這個實例建立了一個名為“數(shù)據(jù)庫”的New ADODB.Connection對象，用此對象增連接數(shù)據(jù)庫，在連接成功后，彈出消息框告之連接結(jié)果，在大多數(shù)情況下，VB與Access2003之前版本的數(shù)據(jù)庫連接，基本都這樣。測試數(shù)據(jù)庫請放在VB同級目錄下，Data.mdb可根據(jù)自己實際的數(shù)據(jù)庫路徑進行修改。