以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]标准表达式中数据类型不匹配  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187919)

--  作者:2425004926
--  发布时间:2023/8/21 10:56:00
--  [求助]标准表达式中数据类型不匹配
红色部分,用sql server 数据库没有问题,用Access数据库出错,提示 标准表达式中数据类型不匹配
老师提示一下,谢谢!

Dim cmd As New SQLCommand
cmd.ConnectionName = Vars("CurrentProjectConnection")
Dim f1 As String = "Creator,TimeCreation,Possessor,ComName,ComNumber"
Dim f2 As String = "?, ?, ?, ?, ?"
cmd.CommandText = "Insert   Into   UserCom (" & f1 & ") Values(" & f2 & ")"
cmd.Parameters.Add("@Creator", Vars("UserName")) \'创建者
cmd.Parameters.Add("@TimeCreation", Date.now) \'创建时间
cmd.Parameters.Add("@Possessor", Vars("UserName")) \'所有者
cmd.Parameters.Add("@ComName", "单位名称") \'所有者
cmd.Parameters.Add("@ComNumber", "DW00001234") \'编号

--  作者:有点蓝
--  发布时间:2023/8/21 10:59:00
--  
Access不支持毫秒,需要格式化一下

cmd.Parameters.Add("@TimeCreation", format(Date.now,"yyyy-MM-dd HH:mm:ss")) \'创建时间

--  作者:2425004926
--  发布时间:2023/8/21 11:19:00
--  
OK! 谢谢老师!