服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|Java教程|ASP教程|编程技术|正则表达式|C/C++|IOS|C#|Swift|Android|VB|R语言|JavaScript|易语言|vb.net|

服务器之家 - 编程语言 - VB - VB6实现连接Access数据库的ADODB代码实现方法

VB6实现连接Access数据库的ADODB代码实现方法

2021-10-11 15:39VB教程网 VB

这篇文章主要介绍了VB6实现连接Access数据库的ADODB代码实现方法,对于初学者掌握VB链接access数据库有着很好的借鉴价值,需要的朋友可以参考下

本文实例讲述了使用ADODB.Connection连接access数据库的方法,驱动类型版本为:Microsoft.Jet.OLEDB.4.0。在VB的数据库操作中,连接数据库是第一步,也是最基本的,本文所述的这个例子,对于初学者学习如何在VB中连接Access数据库有着很好的借鉴参考价值。

具体实现代码如下:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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可根据自己实际的数据库路径进行修改。

延伸 · 阅读

精彩推荐