Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


33560 / 76738 ←次へ | 前へ→

【48394】ExcelでAccessクエリ抽出
質問  もとあし  - 07/4/16(月) 10:46 -

引用なし
パスワード
   いつもお世話になっています。
調べたり、試したのですが、分からないので質問させてください。

ADOでAccess(97)に接続して、エクセルシート上のテキストボックスの値をもとに
パラメータークエリを実行する、という方法を行おうとしています。
ですが、SQL句へどのように記述すればいいのか、分かりません。

下記のコードは、もともとはあるサイトで、クエリにパラメータークエリの為に
MsgBoxで代用するというものでした。

自分で少し、代えてみたのですが、次のエラーがでます。
「クエリ式'fldBBB=Worksheets("Sheet1").txtSNInput.Text'の'.'、'!'、または
'()'の使い方が正しくありません。」

他にも書き方を変えてみたりしたのですが、いずれにおいてもエラーがでます。
何が悪いのか、教えてください。

よろしくお願いします。

Sub ADO_Find()

Dim cn As ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As ADODB.Recordset
Dim param As ADODB.Parameter
Dim mySQL As String
Dim strcriteria As String
Dim strback As String


strSNTXT = "Worksheets(""Sheet1"").txtSNInput.Text"
strSN = Worksheets("Sheet1").txtSNInput.Text

mySQL = "SELECT * FROM tbl1 WHERE fldA =" & strSNTXT

Set cn = New ADODB.Connection
cn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;" _
            & "Data Source=K:xxx\db1.mdb"
cn.Open

Set cmd.ActiveConnection = cn

With cmd
  .CommandText = mySQL
  .CommandType = adCmdText
  .Prepared = True
End With
  
Set param = New ADODB.Parameter

Set param = cmd.CreateParameter("fldA", adVarChar, adParamInput, 20)
cmd.Parameters.Append param
strback = Trim(strSN)
cmd.Parameters("fldA") = strback

Set rs = New ADODB.Recordset
Set rs = cmd.Execute        ← ここでエラーがでます。

Do Until rs.EOF
  Debug.Print rs!fldA, rs!fldB, rs!fldC
  rs.MoveNext
Loop

Set cmd = Nothing
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing

End Sub

0 hits

【48394】ExcelでAccessクエリ抽出 もとあし 07/4/16(月) 10:46 質問
【48396】Re:ExcelでAccessクエリ抽出 neptune 07/4/16(月) 11:50 回答
【48397】Re:ExcelでAccessクエリ抽出 ウッシ 07/4/16(月) 11:51 発言
【48403】Re:ExcelでAccessクエリ抽出 もとあし 07/4/16(月) 14:19 お礼
【48425】Re:ExcelでAccessクエリ抽出 ウッシ 07/4/17(火) 9:05 発言
【48428】Re:ExcelでAccessクエリ抽出 neptune 07/4/17(火) 11:45 発言
【48431】Re:ExcelでAccessクエリ抽出 もとあし 07/4/17(火) 12:07 お礼
【48532】Re:ExcelでAccessクエリ抽出 neptune 07/4/20(金) 22:43 発言
【48417】Re:ExcelでAccessクエリ抽出 neptune 07/4/16(月) 22:48 発言

33560 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free