vb中连接数据库出错

来源：百度知道编辑：UC知道时间：2024/05/04 03:30:03

Private Sub Command1_Click()
'Form1.Label1.Caption = rs.Fields("title")
Dim name As String
'name = rs.Fields("texta")
name = rs!Title
MsgBox (name)
End Sub

Private Sub Form_Load()
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Set con = New Connection
Set rs = New Recordset
con.connectionstring = "provider=microsoft.jet.oledb.3.51;" & _
"data source = D:\调查系统\db1.mdb"
con.commandtimeout = 30
con.open
rs.open "select * from search ", con, adopenkeyset, adlockpessimistic

End Sub

con.connectionstring = "provider=microsoft.jet.oledb.3.51;" & _
"data source = D:\调查系统\db1.mdb"
con.commandtimeout = 30
con.open
上面这些全都换成下面这一句

con.open“Provider=Microsoft.jet.oledb.4.0;data source= D:\调查系统\db1.mdb”

vb中连接数据库出错 Dreamweaver MX2004中连接数据库时出错如何在VB中连接access数据库 vb 连接sql数据库中recordset问题 vb中连接数据库的问题在VB中连接ACCESS数据库错误 VB中连接ACCESS数据库出现问题在VB数据库编程中连接ACESS数据库的语句 VB数据库怎么连接数据库连接数据库出错