VBAでファイルをデータベースに格納する方法

2年 ago
結衣, 春花
1 minute

データベースにファイルを保存するには、VBAを使用して次の手順を実行できます。

  1. データベースに接続する。最初に、VBAコード内でデータベースとの接続を確立する必要があります。 ADODBオブジェクトを使用してデータベースに接続できます。 たとえば、Microsoft Accessデータベースを使用している場合は、次のコードを使用して接続できます。
Dim conn As Object
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"
  1. ファイルの内容を読み取る：次に、ファイルの内容を読み取ってバイナリデータとして保存する必要があります。ファイルシステムオブジェクトを使用してファイルの内容を読み取ることができます。たとえば、テキストファイルを読み取る場合は、次のコードを使用できます。
Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
Dim file As Object
Set file = fs.OpenTextFile("C:\path\to\your\file.txt", 1)
Dim fileContent As String
fileContent = file.ReadAll
file.Close
  1. ファイルの内容をデータベースに保存する：ファイルの内容を読み取ったら、データベースに保存できます。SQL ステートメントを実行するには ADODB オブジェクトの Execute メソッドを使用し、SQL ステートメントにファイルの内容をパラメータとして渡します。たとえば、「files」という名前で「fileContent」というフィールドを含むテーブルがある場合は、次のコードを使用してファイルの内容をデータベースに保存できます。
Dim sql As String
sql = "INSERT INTO files (fileContent) VALUES (?)"
Dim cmd As Object
Set cmd = CreateObject("ADODB.Command")
With cmd
.ActiveConnection = conn
.CommandText = sql
.Parameters.Append .CreateParameter("fileContentParam", 204, 1, Len(fileContent), fileContent)
.Execute
End With
  1. 最後にデータベースとの接続を閉じます：操作後はデータベースの接続を閉じます。ADODBオブジェクトのCloseメソッドを使って、接続を閉じることができます。
conn.Close

データベースにファイルを登録する基本的な手順 です。使用するデータベースの種類とテーブルの構造によって適宜修正してください。

bannerAds