标题: 调试出错--类型不匹配 [打印本页] 作者: aping 时间: 2008-5-24 15:59 标题: 调试出错--类型不匹配 Private Sub 命令0_Click()
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase("d:\My Documents\Access\123.mdb")
Set rs = db.OpenRecordset("select * from 台帐") '调试出错类型不匹配???
If rs.RecordCount > 0 Then
MsgBox "数据库能够导出!"
Else
MsgBox "数据库为空,不能导出!"
End If
DoCmd.Close
End Sub
想了一天了,谢谢哪位高手指点一下!我编的程序就差这一口气了!
我的目的是要判断一个表是否为空表.作者: zhouyunliang 时间: 2008-5-24 17:33
Dim db As dao.Database
Dim rs As dao.Recordset作者: chenwm1973 时间: 2008-5-24 18:38
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset作者: t小宝 时间: 2008-5-24 21:05
楼主使用了DAO,应该象2楼的声明作者: aping 时间: 2008-5-24 21:18
非常感谢，问题已解决。