UC知道请高手帮忙，我初学vb，写了个连接数据库access的程序，连不上
来源：百度知道 编辑：UC知道 时间：2024/06/18 17:47:43
运行后，出现“实时错误‘3709’：连接无法用于执行此操作。在此上下文中它可能已被关闭或无效。程序如下：另外，数据库已建好，谢谢各位
Private Sub Command1_Click()
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\VB-temple\vb-acess\mybase.mdb;Persist Security Info=False"
Set rs = New ADODB.Recordset
rs.Open "select * from score"
End Sub
Private Sub Command1_Click()
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\VB-temple\vb-acess\mybase.mdb;Persist Security Info=False"
Set rs = New ADODB.Recordset
rs.Open "select * from score"
End Sub
改为
rs.Open "select * from score", cnn
rs.Open "select * from score",这个score是什么？是数据表吗？改成mybase试试，另外你的数据库和adodb测试连接成功了吗？
rs.Open "select * from score", Cnn, adOpenStatic, adLockOptimistic