VBA向Firebird插入数据报错：Timestamp类型日期处理求助

你的插入操作失败的核心原因是直接拼接Now生成的日期字符串格式不匹配Firebird的timestamp要求，同时字符串拼接的写法还存在SQL注入风险和字段值含特殊字符时的报错问题。以下是两种可行的解决方案，优先推荐参数化查询：

方法一：使用参数化查询（推荐） #

参数化查询可以自动处理数据类型匹配，避免格式错误和SQL注入，是最安全可靠的方式：

' 假设cmd已初始化并关联Firebird连接
cmd.CommandText = "INSERT INTO MOVPROD (CONSECUTIVO,FECHA,PRODUCTO,TIENDA,CAJA,USUARIO,VENDEDOR,TIPOMOV,REFERENCIA,CANTIDAD) " & _
                  "VALUES ( ?, ?, ?, ?, ?, '000', 'NA', '01', ?, ? )"

' 添加参数，注意参数类型需与Firebird表字段对应
cmd.Parameters.Append cmd.CreateParameter("Consecutivo", adVarChar, adParamInput, 50, vDB(i, 1)) ' 根据CONSECUTIVO实际类型调整（如adInteger）
cmd.Parameters.Append cmd.CreateParameter("Fecha", adDBTimeStamp, adParamInput, , Now) ' 直接传入日期时间类型，无需转字符串
cmd.Parameters.Append cmd.CreateParameter("Producto", adVarChar, adParamInput, 50, vDB(i, 2))
cmd.Parameters.Append cmd.CreateParameter("Tienda", adVarChar, adParamInput, 50, vDB(i, 3))
cmd.Parameters.Append cmd.CreateParameter("Caja", adVarChar, adParamInput, 50, vDB(i, 3))
cmd.Parameters.Append cmd.CreateParameter("Referencia", adVarChar, adParamInput, 50, vDB(i, 4))
cmd.Parameters.Append cmd.CreateParameter("Cantidad", adInteger, adParamInput, , vDB(i, 5)) ' 根据CANTIDAD实际类型调整

' 执行插入
cmd.Execute

注意事项： #

• 参数类型需与Firebird表字段严格对应：比如adDBTimeStamp对应timestamp类型，adVarChar对应VARCHAR，adInteger对应INTEGER等，可根据你的表结构修改参数类型和长度。
• 确保已引用ADO库（VBA编辑器→工具→引用→勾选"Microsoft ActiveX Data Objects x.x Library"）。

方法二：格式化日期为Firebird兼容字符串（不推荐，仅作备选） #

如果坚持使用字符串拼接，需将VBA的日期时间格式转换为Firebird认可的'YYYY-MM-DD HH:MM:SS'格式：

Dim firebirdTs As String
' 强制转换为Firebird兼容的timestamp字符串格式
firebirdTs = Format(Now, "yyyy-mm-dd hh:mm:ss")

cmd.CommandText = "INSERT INTO MOVPROD (CONSECUTIVO,FECHA,PRODUCTO,TIENDA,CAJA,USUARIO,VENDEDOR,TIPOMOV,REFERENCIA,CANTIDAD) " & _
                  "VALUES ( '" & vDB(i, 1) & "','" & firebirdTs & "','" & vDB(i, 2) & "','" & vDB(i, 3) & "','" & vDB(i, 3) & "','000','NA','01','" & vDB(i, 4) & "','" & vDB(i, 5) & "')"

cmd.Execute

缺点： #

• 若字段值包含单引号（如产品名称含'），会直接导致SQL语法错误。
• 存在SQL注入风险，若vDB中的数据不可信，可能被恶意利用。

额外检查项 #

1. 确认Firebird连接字符串配置正确，驱动（ODBC/OLEDB）已正确安装并启用。
2. 当前数据库用户拥有MOVPROD表的INSERT权限。

内容的提问来源于stack exchange，提问作者DIEGO ALDAY