如何解决INSERT INTO语句出现问题,是新访问的
我被投入工作中的项目,并且试图通过它奋斗。我正在尝试将记录从表单写入表。我想从两个组合框中选择一个,然后将选择内容和时间发送到表格中。
这就是我所拥有的
Private Sub cmdClockin_Click()
Dim StrSQL As String
Dim Cin As Date
Dim Ein As String
Dim Jin As String
Cin = Now()
Ein = Me.ComboEmp
Jin = Me.comboJob
StrSQL = "INSERT INTO Records (proStart,proEmployee,proJob) VALUES ('" & Cin & "','" & Ein & "','" & Jin & "');"
DoCmd.SetWarnings False
DoCmd.RunSQL StrSQL
DoCmd.SetWarnings True
End Sub
我没有收到任何错误,但是没有任何内容写入表中。
我一直在搜索其他网站,由于某种原因,我无法弄清楚自己在做什么错。任何帮助都将很棒
谢谢, 克里斯
解决方法
直接插入 Now ,考虑 Ein 或 Jin 是否为数字(因此不加引号),并检查SQL:
StrSQL = "INSERT INTO Records (proStart,proEmployee,proJob) VALUES (Now(),'" & Ein & "','" & Jin & "');"
MsgBox StrSQL
,
第一个建议将表名从Records
更改为其他名称。您需要使用井号time
将Date/Time
限定为#
,而不是使用日期数据类型的单引号(')。检查下面
StrSQL = "INSERT INTO Records (proStart,proJob) VALUES (#" & Cin & "#,'" & Jin & "');"
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。