如何在Access中将变量放入SQL代码

问题描述

抱歉，我的问题很愚蠢。 我在Access（VBA）中编程，试图将一个名为machine的变量发送到sql代码中，然后将其插入到表中。但是我不知道该怎么做。到目前为止，这是我的代码：

Private Sub Machinetoevoegen_Click()
        Dim sql As String
        Dim Machine As String
        Machine = Machine_keuze
        sql = "INSERT INTO Machines ([Machine]) VALUES(Machine)"
        DoCmd.Runsql sql
    End Sub

如果有人可以帮助我，那就太好了。

解决方法

创建一个查询，并在其中传递Machine作为参数。

例如：

PARAMETERS [prmMachine] Text (255);
INSERT INTO Machines ([Machine])
SELECT [prmMachine] AS _Machine;

然后，在VBA中调用查询：

With CurrentDb().QueryDefs("YourQueryName")
    .Parameters("[prmMachine]").Value = Machine_keuze 
    .Execute dbFailOnError
End With

,

尝试以下。

Private Sub MachineToevoegen_Click()

    Dim SQL As String
    Dim Machine As String

    Machine = "Machine_keuze"
    SQL = "INSERT INTO Machines ([Machine]) VALUES('" & Machine & "')"
    DoCmd.RunSQL SQL

End Sub