如何解决如何在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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。