红色部分,用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") '编号