AEEESS求助大师

冷酷的云

Private Sub 组合框_AfterUpdate()
Dim 数据流 As New ADODB.Stream
Dim 记录集 As New ADODB.Recordset
记录集.Open "select * from 表1 where id=" & Me!组合框.Column(0), CurrentProject.Connection, , 3
数据流.Type = adTypeBinary

数据流.Open
数据流.Position = 0
数据流.Write 记录集!照片
路径 = "c:\" & Me!组合框 & ".JPG"
数据流.SaveToFile 路径, adSaveCreate0verWrite
记录集.Close
Me!图像2.Picture = 路径
End Sub
数据流.SaveToFile 路径, adSaveCreate0verWrite，这句运行不了
附件上传不了，请大师帮忙看下哪出问题了

zpy2

附件可以压缩后上传，如果太大，可以试试网盘
https://filetransfer.io/

Yalishanda30

const adSaveCreateOverWrite=2

大灰狼1976

adSaveCreate0verWrite
我复制的代码内容，里面的Over开头的O，实际上写成为数字0

Yalishanda30

大灰狼1976 发表于 2024-9-18 14:18
adSaveCreate0verWrite
我复制的代码内容，里面的Over开头的O，实际上写成为数字0

眼尖

冷酷的云

已解决，谢谢各位大师指点

zzyglgl

学习到了，谢谢！