VB6实现连接Access数据库的ADODB代码实现方法
<p>本文实例讲述了使用ADODB.Connection连接access数据库的方法，驱动类型版本为：Microsoft.Jet.OLEDB.4.0。在VB的数据库操作中，连接数据库是第一步，也是最基本的，本文所述的这个例子，对于初学者学习如何在VB中连接Access数据库有着很好的借鉴参考价值。</p><p>具体实现代码如下：</p>
<div class="jb51code">
<pre class="brush:vb;">
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</pre>
</div>
<p>这个实例建立了一个名为“数据库”的New ADODB.Connection对象，用此对象增连接数据库，在连接成功后，弹出消息框告之连接结果，在大多数情况下，VB与Access2003之前版本的数据库连接，基本都这样。测试数据库请放在VB同级目录下，Data.mdb可根据自己实际的数据库路径进行修改。</p>
<div class="art_xg">
<b>您可能感兴趣的文章:</b><ul><li>ASP编程入门进阶（二十）：ADO组件之分页程序</li><li>php adodb连接不同数据库</li><li>php adodb分页实现代码</li><li>win7 iis7.5 乱码 和 解析不了ASP的ADO连接数据库 的解决方法</li><li>ADO.NET 连接数据库字符串小结(Oracle、SqlServer、Access、ODBC)</li><li>c++连接mysql数据库的两种方法(ADO连接和mysql api连接)</li><li>VB语言使用ADO连接、操作SQLServer数据库教程</li><li>C#使用ADO.Net部件来访问Access数据库的方法</li><li>VC基于ADO技术访问数据库的方法</li><li>ADO存取数据库时如何分页显示</li></ul>
</div>
</div>
<!--endmain-->
頁:
[1]