1

アクセス データベース テーブルの添付ファイル フィールドにファイルを挿入するコードを開発しました。テーブルは「Reports」と呼ばれ、添付フィールドは「Field1」と呼ばれます。現時点で、私のコードはテーブル「Reports」の最初のレコードにファイルを挿入します。ID に基づいてレコードに添付ファイルを追加したいと考えています。 ）。これは誰でも私を助けることができますか？

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
4

1 に答える 1

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
于 2013-03-05T10:58:02.087 に答える