Excel VBAでAccessのレコードを取得したい

前提

掲題の件についてご教示ください。
ExcelのVBAでAccessのDB内のレコードを取得するプログラムを作成しています。
Accessのファイル

テーブル名:testtable
フィールドは以下の3つです。
id,name,comment

実現したいこと

VBAの中で使用している変数(key)を含むレコードを取得したい。

発生している問題・エラーメッセージ

以下のSQL文を作成して実行しているのですが、以下のエラー文が表示され実行できません。

strSQL = "SELECT * FROM testtable WHERE name" & "=" & key & ""
※keyはVBAの変数です。

実行時エラー'2147217900(80040e14)'; クエリ式'name=変数の中身'の数値構文エラーです。

該当のソースコード

VBA

※変数関連 Dim adoCn As Object 'Accessへ接続用のオブジェクト Dim strSQL As String 'SQL文 Dim adoRs As Object 'ADOレコードセットオブジェクト Dim DBpath As String 'Accessファイルのフルパス DBpath = "ファイルのパス" Dim key As String Dim myArray As Variant 'Accessファイルへ接続する Set adoCn = CreateObject("ADODB.Connection") adoCn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBpath & "\" & strFileName & ";" 'オブジェクトの設定(取得用) Set adoRs = CreateObject("ADODB.Recordset") adoRs.CursorLocation = 3 ' クライアントサイドカーソルに変更 key = Cells(i, 2).Value'keyはセルのValueを入れています。 'SQLに問い合わせ strSQL = "SELECT name FROM testtable WHERE name" & "=" & key & "" ★ここでエラーが表示されます。 adoRs.Open strSQL, adoCn

よろしくお願いします。

コメントを投稿

0 コメント