VB6实现连接Access数据库的ADODB代码实现方法_vb教程-查字典教程网
VB6实现连接Access数据库的ADODB代码实现方法
VB6实现连接Access数据库的ADODB代码实现方法
发布时间:2016-12-28 来源:查字典编辑
摘要:本文实例讲述了使用ADODB.Connection连接access数据库的方法,驱动类型版本为:Microsoft.Jet.OLEDB.4....

本文实例讲述了使用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可根据自己实际的数据库路径进行修改。

相关阅读
推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
  • 大家都在看
  • 小编推荐
  • 猜你喜欢
  • 最新vb学习
    热门vb学习
    编程开发子分类