程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> Visual Basic語言 >> VB綜合教程 >> VB6完成銜接Access數據庫的ADODB代碼完成辦法

VB6完成銜接Access數據庫的ADODB代碼完成辦法

編輯:VB綜合教程

VB6完成銜接Access數據庫的ADODB代碼完成辦法。本站提示廣大學習愛好者:(VB6完成銜接Access數據庫的ADODB代碼完成辦法)文章只能為提供參考,不一定能成為您想要的結果。以下是VB6完成銜接Access數據庫的ADODB代碼完成辦法正文


本文實例講述了運用ADODB.Connection銜接access數據庫的辦法,驅動類型版本為:Microsoft.Jet.OLEDB.4.0。在VB的數據庫操作中,銜接數據庫是第一步,也是最根本的,本文所述的這個例子,關於初學者學習如何在VB中銜接Access數據庫有著很好的自創參考價值。

詳細完成代碼如下:

VERSION 5.00
Begin VB.Form 操作數據庫 
  Caption     =  "VB操作數據庫"
  ClientHeight  =  3645
  ClientLeft   =  4905
  ClientTop    =  4260
  ClientWidth   =  5895
  LinkTopic    =  "Form1"
  ScaleHeight   =  3645
  ScaleWidth   =  5895
End
Attribute VB_Name = "操作數據庫"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
Dim 數據庫 As Object
Set 數據庫 = New ADODB.Connection
Call 數據庫.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb;") '銜接數據庫
If ((數據庫.State) = (adStateOpen)) Then
  MsgBox ("銜接成功!")
Else
  MsgBox ("銜接失敗!")
End If
數據庫.Close
Set 數據庫 = Nothing
End Sub

這個實例樹立了一個名為“數據庫”的New ADODB.Connection對象,用此對象增銜接數據庫,在銜接成功後,彈出音訊框告之銜接後果,在大少數狀況下,VB與Access2003之前版本的數據庫銜接,根本都這樣。測試數據庫請放在VB同級目錄下,Data.mdb可依據自己實踐的數據庫途徑停止修正。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved