实时错误 “3011”：Microsoft Jet数据库引擎找不到对象
编号：QA000273
建立日期: 1998年12月28日 最后修改日期：1999年11月9日
所属类别：
王鹏凯:
本人最近在学习过程中遇到了这样一问题：
子程序如下：
Private Sub cj_Click()
Dim cj, a As String, pe As Database, re As Recordset
Set pe = OpenDatabase("c:\vb\peixun.mdb")
cj = InputBox("请输入您想查询单位的名称：")
a = "SELECT *FROM 状况 WHERE 单位=cj"
*** Set re = pe.OpenRecordset(a, dbOpenTable)
Form5.Show
Set Form5.Data1.Recordset = re
End Sub
运行到以上子程序时，报有如下错误，程序停留在***处：
实时错误 “3011”：Microsoft Jet数据库引擎找不到对象“SELECT *FROM 状况
WHERE 单位=cj'”。请确定对象是否存在，以及名称和路径是否正确。（符合查询条件的记录是一定存在的，且名称和路径也没输错）请教上面程序错在何处？该如何修改？
回答:
你的Select语句有错误。我想你的“单位”字段是字符型，正确的语句应该是：
a = "SELECT * FROM 状况 WHERE 单位='" +cj +"'"
此问题由李海回答。
| |
|
|
| |
|
|
