连接ACCESS数据库问题 - 编程论坛

#2

purana2007-10-15 10:05

1.变量请先定义后再使用.
2.你是否已添加ado引用.

#3

tonny07562007-10-15 10:07

测试的时候我做在一 BUTTON上的。请指教

#4

purana2007-10-15 10:08

以下是引用purana在2007-10-15 10:05:40的发言：
1.变量请先定义后再使用.
2.你是否已添加ado引用.

#5

千里冰封2007-10-15 10:10

哈哈,你终于发照片了

#6

tonny07562007-10-15 10:13

没有添加ADO，请赐教如何修改定义

Private Sub Command11_Click()
'连接数据

Dim conn As New ADODB.Connection
Dim RsQQ1 As New ADODB.Recordset
RsQQ1.CursorLocation = adUseClient

ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\test.mdb" & ";Persist Security Info=False"
conn.Open ConnectionString
RsQQ1.Open "select * from tb ", conn, adOpenKeyset, adLockOptimistic

Text1.Text = "符合查询条件共有"
Text2.Text = RsQQ1.RecordCount
Text3.Text = "条记录！"
Text4.Text = "学院共有" & RsQQ1.RecordCount & "栋楼房"

RsQQ1.Close
conn.Close
Set RsQQ1 = Nothing
Set conn = Nothing
End Sub

#7

purana2007-10-15 10:19

没有添加ADO?
那你没有米,你能吃饭不?