UC知道vb ado连接access问题
来源：百度知道 编辑：UC知道 时间：2024/09/23 10:26:23
Dim con As Connection
Dim rs As Recordset
Private Sub Command1_Click()
Set con = New Connection
Set rs = New Recordset
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db1.mdb"
string1 = "select * from tb1"
con.Open
rs.Open string1, con, 1, 3
Set Text1.DataSource = rs
Text1.DataField = "时间"
End Sub
con.open 对象打开时,不允许操作.
我用的是office2003.
引用了microsoft ActiveX Data objects 2.8 Library
Dim rs As Recordset
Private Sub Command1_Click()
Set con = New Connection
Set rs = New Recordset
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db1.mdb"
string1 = "select * from tb1"
con.Open
rs.Open string1, con, 1, 3
Set Text1.DataSource = rs
Text1.DataField = "时间"
End Sub
con.open 对象打开时,不允许操作.
我用的是office2003.
引用了microsoft ActiveX Data objects 2.8 Library
可能是你的数据库已经处于打开状态或没有正常关闭，请先关闭再试。
将rs.open string1,con,1,3改成rs.open string1,con,4,2
在代码里要加上
set rs=nothing
set con=nothing
释放所占资源
添加ADO对象时创建数据连接连接成功后，在看看Access数据库的权限，设置为所有用户都可访问，另外这与操作系统的安全设置有关（以前碰到过这问题，好久没用，你试试看。）