错误报告:实时错误-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”之后在程序里改了,就出错了……求教!谢谢了!