vba代码根据ID将文件插入到表中

Question

我开发了将文件插入访问数据库表中的附件字段的代码。 该表被称为“报告”，附件字段被称为“Field1”。目前，我的代码将文件插入到“Reports”表中的第一条记录，我想要做的是根据它的ID向记录中添加附件，例如（将ID附加到Field1的ID = some value ）。这可能有人可以帮我解决这个问题吗？

Instantiate the parent recordset. 
Set rsfile = db.OpenRecordset("Reports") 


Do While Not rsfile.EOF 
If rsfile.Fields("ID").Value = 1 Then 
' Activate edit mode. 
rsfile.Edit 

' Instantiate the child recordset. 
Set rsReport = rsfile.Fields("Field1").Value 

'Add a new attachment. 
filePath = "C:\dbPDF\sitereport.pdf" 
rsReport.AddNew 
rsReport.Fields("FileData").LoadFromFile (filePath) 
rsReport.Update 

' Update the parent record 
rsfile.Update 

rsfile.MoveNext 
Loop 

Answer 1

你可以迭代思想的报告和更新，如果条件匹配，是应该与此类似：

rsfile = db.OpenRecordset("Reports") 

Do While Not rsfile.EOF 
If rsfile.Fields("ID").Value = 1 Then 
    'Activate edit mode. 
    rsfile.Edit 

    'Instantiate the child recordset. 
    Set rsReport = rsfile.Fields("Field1").Value 
    'Add a new attachment. 
    filePath = "C:\dbPDF\sitereport.pdf" 
    rsReport.AddNew 
    rsReport.Fields("FileData").LoadFromFile (filePath) 
    rsReport.Update 
    'Update the parent record 
    rsfile.Update 
End If 
'Next row 
rsfile.moveNext 
Loop