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

來源：本站原創(chuàng)|時(shí)間：2020-01-10|欄目：vb|點(diǎn)擊：次

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

具體實(shí)現(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

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

上一篇：VB語言使用ADO連接、操作SQLServer數(shù)據(jù)庫教程

欄目：vb

下一篇：VB實(shí)現(xiàn)的倒計(jì)時(shí)類代碼詳解

本文標(biāo)題：VB6實(shí)現(xiàn)連接Access數(shù)據(jù)庫的ADODB代碼實(shí)現(xiàn)方法

本文地址：http://m.jygsgssxh.com/a1/vb/7216.html

更多vb

雷火电竞-中国电竞赛事及体育赛事平台

vb

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

您可能感興趣的文章

閱讀排行

本欄相關(guān)

隨機(jī)閱讀