vba - 如何将 GUID 分配给 VBA 中的 DAO 参数
问题描述
我有一段代码可以归结为
dim stmt as dao.queryDef
dim parId as dao.parameter
set stmt = currentDB().createQueryDef("", _
"parameters id guid, ...; insert into tab (id, ... ) values ([id], ...)")
我用
create table tab (
id guid,
...
)
和
alter table tab add constraint tab_pk primary key (id)
稍后,我想将 GUID 分配给parId
:
parId.value = GuidFromString("{936DA01F-9ABD-4D9D-80C7-02AF85C822A8}")
此分配导致运行时错误 3421 : Data type conversion error
。
如何将 GUID 分配给dao.parameter
变量?
更新示例
这是一个更新的示例,它使用了longbinary
在我的环境中不起作用的参数:执行时会导致运行时错误 3001(无效参数)stmt.execute
。
option explicit
sub main() ' {
dim db as dao.database
set db = application.currentDB
' db.execute("drop table tab")
createTable db
insertValues db
end sub ' }
sub createTable(db as dao.database) ' {
db.execute( _
"create table tab ( " & _
" id guid, " & _
" txt char(60) " & _
")")
db.execute("alter table tab add constraint tab_pk primary key (id)")
end sub ' }
sub insertValues(db as dao.database) ' {
dim stmt as dao.queryDef
set stmt = db.createQueryDef("", _
"parameters " & _
" id longbinary, " & _
" txt char(60); " & _
"insert into tab values ([id], [txt]) ")
dim parId as dao.parameter
dim parTxt as dao.parameter
set parId = stmt.parameters("id" )
set parTxt = stmt.parameters("txt")
parId.value = GuidFromString("{936DA01F-9ABD-4D9D-80C7-02AF85C822A8}")
parTxt.value = "Hello world."
stmt.execute ' Access throws Runtime Error 3001 (Invalid argument)
end sub ' }
解决方案
GUID 类型是一种不能作为参数的特殊类型。
相反,使用LONGBINARY
将 GUID 作为二进制数据传递给查询:
set stmt = currentDB().createQueryDef("", _
"parameters id LONGBINARY, ...; insert into tab (id, ... ) values ([id], ...)")
针对新的 MCVE:
主要错误是VARCHAR
声明。以下修改工作:
Sub insertValues(db As dao.Database) ' {
Dim stmt As dao.QueryDef
Set stmt = db.CreateQueryDef("", _
"parameters " & _
" idparam LONGBINARY ;" & _
"insert into tab(ID) values ([idparam]) ")
Dim parId As dao.Parameter
Dim parTxt As dao.Parameter
Set parId = stmt.Parameters("idparam")
'Set parTxt = stmt.Parameters("txtparam")
stmt.Parameters!idparam.Value = GUIDFromString("{936DA01F-9ABD-4D9D-80C7-02AF85C822A8}")
'stmt.Parameters!txtparam.Value = "Hello world."
stmt.Execute 'no errors
End Sub ' }
和
Sub insertValues(db As dao.Database) ' {
Dim stmt As dao.QueryDef
Set stmt = db.CreateQueryDef("", _
"parameters " & _
" idparam BINARY, txtparam CHAR(60) ;" & _
"insert into tab values ([idparam], txtparam) ")
Dim parId As dao.Parameter
Dim parTxt As dao.Parameter
Set parId = stmt.Parameters("idparam")
Set parTxt = stmt.Parameters("txtparam")
stmt.Parameters!idparam.Value = GUIDFromString("{936DA01F-9ABD-4D9D-80C7-02AF85C822A8}")
stmt.Parameters!txtparam.Value = "Hello world."
stmt.Execute 'no errors
End Sub ' }
推荐阅读
- c# - 无法加载文件或程序集“Microsoft.Xrm.Client”
- javascript - 使用 React 和 Mongoose 从 Javascript .filter() 中选择随机项目
- sql - 如何找到日期最接近另一个日期的值
- azure - ADODB 连接到 Azure WebApp 中的 DBF
- xcode - 如何使用数组填充标题文本
- html - 卡片高度响应每个屏幕
- arrays - 是否可以在 Powershell 中将字节数组转换为 8 位有符号整数数组?
- node.js - MERN 遵循什么类型的架构/设计模式?
- spring-boot - 什么会导致 Cloud Run 实例在持续加载的情况下无法重复使用?
- r - 使用 purrr 的“pluck”选择列表项并绘制