vba代码中的SQL插入语法错误

Question

有人能帮我正确格式化这个字符串，以便在执行按钮命令时执行我的 SQL 代码吗？我是 Visual Basic 的新手，不确定我在哪里搞砸了这部分，或者我什至可以在查询中包含访问控件。

这是我尝试执行的代码：

Private Sub new_record_btn_Click()
Dim conn As ADODB.Connection
Dim sSQL As String

Set conn = CurrentProject.Connection

RunCommand acCmdSaveRecord

sSQL = "INSERT INTO tblHydro( [Mine ID], [Facility], [Status], [Commodity], [Is   Mine Currently Below Water Table (3/10/07)?] ) SELECT tblMine.MineID, tblMine.MineName, tblMine.Status, tblMineAcreage.CommodityType, tblPermits.GWImpact FROM (tblMine INNER JOIN tblPermits ON tblMine.MineID = tblPermits.MineID) INNER JOIN tblMineAcreage ON (tblPermits.PermitID = tblMineAcreage.PermitID) AND (tblMine.MineID = tblMineAcreage.MineID) WHERE 'Forms!frmHydroNEW.MineID' = tblHydro.[Mine ID]"
conn.Execute sSQL
frmHydroSub.Requery
End Sub

我从上面得到一个语法错误

我不确定这是否是解决这个问题的正确方法...... :(

非常感谢任何帮助，谢谢

Answer 1

你最好使用：

Set db = CurrentDB
db.Execute sSQL

所以

sSQL = "INSERT INTO tblHydro ( [Mine ID], [Facility], [Status], " _
& "[Commodity], [Is   Mine Currently Below Water Table (3/10/07)?] ) " _
& "SELECT tblMine.MineID, tblMine.MineName, tblMine.Status, " _
& "tblMineAcreage.CommodityType, tblPermits.GWImpact " _
& "FROM (tblMine INNER JOIN tblPermits ON tblMine.MineID = tblPermits.MineID) " _
& "INNER JOIN tblMineAcreage ON (tblPermits.PermitID = tblMineAcreage.PermitID) " _
& "AND (tblMine.MineID = tblMineAcreage.MineID) " _
& "WHERE tblHydro.[Mine ID]=" &  Forms!frmHydroNEW.MineID

''Or possibly Me.MineID, depending on where the code is running

db.Execute sSQL

不过[Is Mine Currently Below Water Table (3/10/07)?]是个很奇怪的字段名，如果是参数的话，就需要多下功夫了。

在 VBA 中不能以这种方式引用表单，它必须在引号之外，因此返回一个值，而不是对表单的引用。另请注意，表单必须是打开的。