求助了!一个数据库的问题!
错误报告:实时错误-2147217865(80040e37)Microsoft Jet数据库引擎找不到输入表或查询“book”。确定它是否存在,以及他的名称和拼写是否正确
代码如下
Private Sub Form_Load()
Dim rs_find As New ADODB.Recordset
Dim sql As String
sql = "select * from Book Style"
rs_find.Open sql, conn, adOpenKeyset, adLockPessimistic(这行显示错误了)
rs_find.MoveFirst
If Not rs_find.EOF Then
Do While Not rs_find.EOF
Combo1.AddItem rs_find.Fields(0)
rs_find.MoveNext
Loop
Combo1.ListIndex = 0
End If
rs_find.Close
End Sub
因为之前数据库是中文的,sql = "select * from Book Style"以前是sql = "select * from 图书类别"我把数据库里的 图书类别”改成“Book Style”之后在程序里改了,就出错了……求教!谢谢了! --------------------编程问答-------------------- Book Style不能作为TABLE的NAME,表名中不允许有空格
建议把表名改为 Book_Style
--------------------编程问答-------------------- 修改为
sql = "select * from [Book Style]" --------------------编程问答-------------------- sql = "select * from [Book Style]"
命名表名时最好不要有空格,不要使用保留关键字,建议楼主修改表名
补充:VB , 数据库(包含打印,安装,报表)