Visual Basicを使用してAccessデータベースにファイルを埋め込む方法

コンテンツ

説明書
どうやって

Visual Basicを使用してファイルをMicrosoft Access 2007データベースに添付できます。 Access 2007では、添付ファイルと呼ばれる新しいデータ型が提供されています。これを使用して、Wordファイルやデジタル画像など、あらゆる種類の文書をデータベースに格納できます。 Access 2007はファイルを自動的に圧縮するので、データベースのサイズを気にする必要はありません。単一のレコードで複数の添付ファイルを処理することもできます。

説明書

Visual Basicを使用してAccessデータベースにファイルを添付する （2進数 - Fotolia.comからのdrxによるコンピューターサイエンス画像）

Microsoft Access 2007を起動し、 "Table 1"という名前のテーブルを作成します。「ファイル」という名前のフィールドを追加し、「データタイプ」を「添付ファイル」に設定します。 [データベースツール]をクリックし、[マクロ]パネルの[Visual Basic]を選択します。 "attachThis.File.txt"という名前のテキストファイルを "C："に作成します。
"Sub addAttachments（）"と入力して新しいサブを作成し、その中に次の変数を宣言します。 "Dim db As DAO.Database Dim rst As DAO.Recordset Dim rstChld As DAO.Recordset2 Dim fldAttach As DAO.Field2"
「Table 1」に新しいレコードを追加するために、「Set db = CurrentDb Set rst = db.OpenRecordset（ "Table1"）rst.AddNew」を入力します。
子レジストリ変数を設定するには、「Set rstChld = rst.Fields（ "Attachments"）。Value」と入力します。新しいフィールドを追加してバイナリデータを格納するフィールドを設定するには、 "rstChld.AddNew Set fldAttach = rstChld.Fields（" DataFile "）"と入力します。
"fldAttach.LoadFromFile" C： attachThis.file "rstChld.Update"と入力して追加するファイルをロードし、レジストリを更新します。
レコードセットを閉じそして最初のレコードセットを更新するために、「rstChld.Close rst.Update」を入力します。必要に応じて、「rst.Close」と入力してレコードセットを閉じ、最後の行に「End Sub」と入力します。