vb6.0 [Microsoft][ODBC Microsoft Access 驱动程序] WHERE 子句语法错误

Question

Private Sub Command1_Click()
If Combo1.Text = "库存图书" Then
Call Form_Load
Combo1.ListIndex = 1
SQL = "select * from jhk where "
rs.Open SQL, conn
Do While Not rs.EOF
If Not IsDate(rs!hrrq) Then
Bmh$ = rs!Bmh
For i = 1 To MSFlexGrid1.Rows - 1
If Trim(MSFlexGrid1.TextMatrix(i, 1)) = Trim(Bmh$) Then
MSFlexGrid1.RemoveItem i
Exit For
End If
Next
End If
rs.MoveNext
Loop
rs.Close
哪儿错了？

Answer 1

这句出错 SQL = "select * from jhk where "
原因 where 后面没跟条件，，如果没条件就把where 去掉

Answer 2

您好，这样的情况建议您可以升级到最新版本试一下，或是联系一下官网客服比较好。