在Access前端与SQL Server数据库中处理GUID：将已有GUID存入UNIQUEIDENTIFIER字段报错排查

你遇到的错误-2147217887 (80040e21)本质是数据类型不匹配：你把处理后的GUID字符串直接赋值给了SQL Server的UNIQUEIDENTIFIER字段，而ADODB Recordset需要的是原生的GUID变体类型，不是字符串格式的GUID。

问题根源分析 #

你的代码里做了多余的字符串转换：

GUID = Me!GUID.Value  ' 这里已经拿到了原生的GUID变体类型
GUID = StringFromGUID(Me.GUID.Value)  ' 转成了带格式的字符串"{guid {xxxx-xxxx...}}"
GUID = Replace(GUID, "{guid {", "")  ' 手动清理格式
GUID = Replace(GUID, "}}", "")  ' 最终得到纯字符串GUID

虽然最终的字符串格式看起来正确，但ADODB无法自动将这个字符串映射到UNIQUEIDENTIFIER字段类型，导致赋值失败。

解决方案：直接使用原生GUID值 #

既然Me!GUID本身就是SQL Server生成的UNIQUEIDENTIFIER类型，你完全不需要做任何字符串转换，直接赋值即可：

strCnxn = "Provider=sqloledb;" & _ 
"Data Source=MYSERVER;" & _ 
"Initial Catalog=MYDATABASE;" & _ 
"Integrated Security=SSPI;"
Set cn = CreateObject("ADODB.Connection") 
cn.Open strCnxn 

sql = "AttachmentsFileStream"
Set rs = CreateObject("ADODB.Recordset") 
rs.Open sql, strCnxn, 1, 3  ' adOpenKeyset + adLockOptimistic

' 直接使用原生GUID值，无需转换
rs.AddNew 
rs!FileName = FileName 
rs!FileSourceID = Me!GUID.Value  ' 这里直接赋值原生GUID
rs!HideFile = False 
rs.Update 

' 正确的资源清理
rs.Close
Set rs = Nothing
Set cn = Nothing

备选方案：若必须处理字符串格式 #

如果因为某些原因你只能拿到字符串格式的GUID，需要用VBA的GUIDFromString函数将字符串转回原生GUID类型再赋值：

Dim guidStr As String
guidStr = "39A0483A-AE4C-44B5-94C3-00267185B81E" ' 你的字符串GUID
rs!FileSourceID = GUIDFromString(guidStr)

额外注意点 #

• 你原代码最后一行rs = Nothing是错误的，对象必须用Set rs = Nothing来释放，否则会导致内存泄漏。
• 建议在操作完Recordset后调用rs.Close，再释放对象，养成良好的资源清理习惯。

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