vb 提示SELECT 子句中包含一个保留字,拼写错误或丢失的参数

Question

Private Sub FormSizes()
Adodc1.ConnectionString = DataConnectString 'Adodc1连接
Adodc1.CommandType = adCmdText '设置记录源
Adodc1.RecordSource = "select * from 产品配件 order by 编号"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
i = Adodc1.Recordset.RecordCount - 1
If (i Mod 2 = 0) Then
Me.Frame1.Height = 600 + (500 * (i / 2)) + 600
Me.Height = 2000 + 800 + (500 * (i / 2))
Else
Me.Frame1.Height = 600 + (500 * ((i + 1) / 2)) + 600
Me.Height = 2000 + 800 + (500 * ((i + 1) / 2))
End If
Else
Me.Height = 12000
Me.Frame1.Height = 600
End If
End Sub

Answer 1

应该是SQL语句中有些字段名是ACCESS数据库的关键字了，把觉得像关键字的用[]括起来，如：
select [a.type],[a.class] from [member] a
SELECT TOP 4(Article.*),Member.M_Name
FROM Article INNER JOIN MemberInfo ON Article.A_AdderId=Member.M_Id
WHERE Article.A_TypeId = @ty ORDER BY Article.A_AddDate DESC
改为：
SELECT TOP 4(Article.*),Member.M_Name
FROM Article INNER JOIN MemberInfo Member ON Article.A_AdderId=Member.M_Id
WHERE Article.A_TypeId = @ty ORDER BY Article.A_AddDate DESC

Answer 2

猜测是调用时机不对或者是属性值超出了有效界限引起的

你调试的时候看看 2000 + 800 + (500 * ((i + 1) / 2))运算后的值是多少

再看下调用堆栈，确认调用的时机是合理的，

Private Sub FormSizes()是你自己写的过程吧？原版应该是Private Sub Form_Resize(),把你布置界面的代码放到这个过程中就可以了 ^_^

希望能帮到你……

追问

还是没找出来！

Answer 3

如果怎么检查都没发现哪有错时，我的经验就是把那个语句删除，在重新打一遍

Answer 4

Adodc1.RecordSource = "select * from [产品配件] order by [编号]"

追问

还是不行，我调试过程中发现错误发生在
Me.Height = 2000 + 800 + (500 * (i / 2))或
Me.Height = 2000 + 800 + (500 * ((i + 1) / 2))
这两句上，我猜测是不是Me这个关键字的原因。但是我把Me改成实际的窗体名称，还是提示这个错误！

追答

SELECT 子句中包含一个保留字,拼写错误或丢失的参数
这个错误只可能发生在SQL命令中
请确认数据库中是否有“产品配件”这个表名，以及这个表中有没有“编号”这个字段，如果没有（或者有错字、多音字等），就会提示上述错误信息。

Answer 5

VB提示出错，指示哪一句错误，应该停留在哪一句上！
你确定该数据表的名称为：产品配件，并且有字段：编号