用VB如何用控件连接access数据库

在工程中有个控件“command1”，按下“command1”后能连接到一个指定的access数据库d:\TEMP.MDB。

要求按下“command1”键后能连接，并提示连接成功。否则提示连接失败。

一个窗体，一个按钮，引用Microsoft ActiveX Data Obkects 2.5Library

复制一下代码即可

private sub form_load()

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim str As String

ConnectString = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=“d:\TEMP.MDB”“
Set cnn = New ADODB.Connection
cnn.Open ConnectString

msgbox"链接成功",vbokonly

end sub

用 DATA控件!

首先 引用 部件

Microsoft ActiveX Data Obkects 2.5Library

然后在 COMMAND1下写代码

Dim conn As New ADODB.Connection Dim cnn As New ADODB.Recordset

conn.CursorLocation = adUseClient

conn.ConnectionString = "这里填写UDL中的内容"

conn.Open

On Error GoTo s

msgbox"连接成功"

s:

msgbox"连接失败"

exit sub

end sub

UDL的使用方法

首先建立一个 文本文件

打开 另存为 ***.udl 类型为所有文件

打开 ***.udl 选择提供程序

选JET 4.0 OLE DB PROVIDER

下一步

输入数据库名称 后面 点选 连接数据库

测试连接 确定

右键 ***.udl 打开方式 记事本

复制P以后的内容到 上面~ 我下课了没时间了。。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息