[求助]一段代码的错误，请高手指教

darknesseye

Private Sub query()

Dim h  As QueryDef      

Dim sq As String

Set h = CurrentDb.CreateQueryDef("dddd")

sq="select * form 表1"

h.Execute sq

end sub

为什么运行时光标定在 h.Execute sq 这一行。并提示“数据类型转换错误”

[此贴子已经被作者于2004-11-23 22:18:48编辑过]

NeilChen

为什么不直接用docmd.runsql sq

darknesseye

Private Sub sss()Dim h As QueryDef

Dim i As StringSet h = CurrentDb.CreateQueryDef("dddd")sq = "select A from 表1"DoCmd.RunSQL sq

End Sub还是无法运行，提示需要SQL语句作参数，如果把 sq  改为 "sq" 则提示无效的SQL语句。

hi-wzj

"select * form 表1" 不是一个操作查询。Execute 命令是运行操作查询。