Office中国论坛/Access中国论坛

标题: +急盼回复：使用"INSERT INTO ( )VALUES( )"的用法 [打印本页]

作者: cookyliang 时间: 2009-6-26 18:14
标题: +急盼回复：使用"INSERT INTO ( )VALUES( )"的用法
本帖最后由 cookyliang 于 2009-6-26 22:37 编辑

各位前辈：
最近我在做一个采购申报流程，在使用INSERT INTO ..(...)VALUES( ...)、UPDATE ( )SET ...WHERE...追加和更新记录的时候出现了问题：
如以下语句，当加入了[流水号](自动编号类型)、[申请日期](日期/时间类型)的字段和变量后，均出现“运行时错误：13，类别不匹配”的错误提示。
估计是这两个变量在引用时缺少了什么，恳请各位前辈给予指点和纠正。
感谢+急盼回复!!

Private Sub cmd申报_Click()
Dim R1, R2 As QueryDef
Dim sql As String
      sql = "INSERT INTO TA001单据录入信息(流水号, 采购单No, 申请人员ID, 申请日期)" + "VALUES(""" + txt流水号 + """" + ",""" + No + """" + ",""" + txt申请人员ID + """" + ",""" + txt申请日期 + """" + ") "
      Set R1 = CurrentDb.QueryDefs("Q001单据录入信息")
      R1.sql = sql
      R1.Execute
      Set R2 = CurrentDb.QueryDefs("Q200单据状态更新")
      R2.sql = "UPDATE TA200日记账营运物资采购 SET 单据完成状态=""已申报"" , 单据可行操作=""待审批""  WHERE 流水号 =" + """" + txt流水号 + """"
      R2.Execute
End Sub

作者: cookyliang 时间: 2009-6-26 18:15
急盼~~

作者: tz-chf 时间: 2009-6-26 19:45
你都没弄明白语法

作者: ACMAIN_CHM 时间: 2009-6-26 20:12

建议楼主先学习再动手编程。在没有学会如何调试程序之前，不要用手开发。

作者: cookyliang 时间: 2009-6-26 22:27
O...

作者: jackysu78 时间: 2009-6-26 22:37
为了减少烦恼，建议用查询向导来处理，再慢慢进阶

作者: cookyliang 时间: 2009-6-26 22:37
流水号, 采购单No, 申请人员ID是数字型，申请日期是日期型。
小菜鸟也估计是这里用错了，请问应该怎么修改呢？

作者: cookyliang 时间: 2009-6-27 09:56
汇报一下
修改并运行成功：
Private Sub cmd申报_Click()
Dim R1, R2 As QueryDef
Dim sql As String

      sql = "INSERT INTO TA001单据申报信息(流水号, 采购单No, 申请人员ID, 申请日期, 修改日期, 修改时间)VALUES('" & txt流水号 & " ','" & No & " ','" & txt申请人员ID & " ','" & txt申请日期 & " ','" & txt修改日期 & " ','" & txt修改时间 & " ') "
      Set R1 = CurrentDb.QueryDefs("Q001单据申报信息")
      R1.sql = sql
      R1.Execute
      Set R2 = CurrentDb.QueryDefs("Q200单据状态更新")       'R2所应用的更新查询文件名称
      R2.sql = "UPDATE TA200日记账营运物资采购 SET 单据完成状态='已申报' , 单据可行操作='待审批'  WHERE 流水号 =Cstr('" & txt流水号 & "')"
      R2.Execute
End Sub

作者: cookyliang 时间: 2009-6-27 09:57
感谢前辈们关注!
小菜鸟会继续边跌边学边用的

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)