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可根據自己實際的數據庫路徑進行修改。

您可能感興趣的文章:

在VB中遍歷文件并用正則表達式完成復制及vb實現重命名、拷貝文件夾的方法
這篇文章主要介紹了在VB中遍歷文件并用正則表達式完成復制及vb實現重命名、拷貝文件夾的方法,需要的朋友可以參考下
2018-12-12
使用WMI得到計算機的信息
WMI是一項行業(yè)推薦規(guī)范，旨在為訪問企業(yè)環(huán)境中的管理信息而開發(fā)一種標準化技術。該信息包括系統(tǒng)內存的狀態(tài)、當前安裝的客戶應用程序清單，以及有關客戶端狀態(tài)的其他數據
2019-04-04
VB實現的《QQ美女找茬游戲》作弊器實例
這篇文章主要介紹了VB實現的《QQ美女找茬游戲》作弊器,以一個完整實例形式分析了VB實現《QQ美女找茬游戲》作弊器的相關技巧,需要的朋友可以參考下
2015-06-06
淺談如何使用vb.net從數據庫中提取數據
這篇文章主要介紹了淺談如何使用vb.net從數據庫中提取數據，使用VB提取數據，是先查找，做成數組，再顯示到數據里，如果感興趣可以了解一下
2020-07-07
VB鍵盤鼠標無動作調用程序的嘗試
這篇文章主要介紹了VB鍵盤鼠標無動作調用程序的嘗試，記錄下整個思路和過程，有需要的小伙伴可以參考下。
2015-06-06
分享如何在VB中調用VC編寫的DLL
一般來說，VB和VC共同編程有3種方式：一種是VC生成DLL，在VB中調用DLL；一種是VC生成ActiveX控件(.ocx)，在VB中插入；還有一種是在VC中生成ActiveX Automation服務器，在VB中調用
2013-04-04
VB關機惡搞小程序
本文給大家匯總了一些使用VB實現的關機惡搞小程序，大家娛樂一下就行了，千萬別做壞事哦
2015-09-09
VB簡單實現防止文件被改寫
這篇文章主要介紹了VB簡單實現防止文件被改寫的方法，十分的簡單實用，有需要的小伙伴可以參考下。
2015-06-06
VBA中連接SQLSERVER數據庫例子
這篇文章主要介紹了VBA中連接SQLSERVER數據庫例子,VBA是指Visual Basic for Applications,是Visual Basic的一種宏語言,需要的朋友可以參考下
2014-07-07
VB語言使用ADO連接、操作SQLServer數據庫教程
這篇文章主要介紹了VB語言使用ADO連接、操作SQLServer數據庫教程,本文講解詳細、代碼中有大量注釋,是非常好的一篇教程,需要的朋友可以參考下
2014-08-08