|
|
使用ADODB.Connection连接数据库，驱动类型版本为：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
这里建立了一个名为“数据库”的NewADODB.Connection对象，
用此对象增连接数据库，在连接成功后，弹出消息框告之连接结果，
大多数情况下，VB与Access2003之前版本的数据库连接，基本都这样。
测试数据库请放在VB同级目录下，Data.mdb可根据自己实际的数据库路径进行修改。
|
