ExcelからSQLを使ってデータを抽出する

解決

---

過去ログを参照してExcelから特定のデータを抜き出す方法を試してみたのですが、うまくいきません。今やろうとしているのはIDと名前という列があって、ユーザが入力したID(String型)からそれに合ったデータを抜き出そうというものです。しかし実行すると、パラメータが少なすぎます。１を指定してくださいと出ます。VB6,Windows XPを使っています。知っている方いましたらどうかよろしくお願いします。
Private Sub cmdHDRYES_Click()
    Dim ws  As DAO.Workspace
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strXLSName As String
    Dim strSQL As String
    Dim searchNum As String

    strXLSName = App.Path & "\Book1.xls"
    
    searchNum = 12'仮に12としました

    
    Set ws = DBEngine.Workspaces(0)
    Set db = ws.OpenDatabase(strXLSName, False, False, "EXCEL 8.0;HDR=YES;")
    
    'strSQL = "Select * From [Sheet1$] "
    strSQL = "SELECT * FROM [Sheet1$] WHERE [ID] = searchNum"
    Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)

編集 削除

---

私はＤＡＯではなく、ＡＤＯでやってますが・・・
因みに、ＳＱＬ文のところおかしいです。

strSQL = "SELECT * FROM [Sheet1$] WHERE [ID] = searchNum"

ただしくは・・・
strSQL = "SELECT * FROM [Sheet1$] WHERE [ID] = " & CStr(searchNum)

では？

以上。

編集 削除

---

訂正・・・

strSQL = "SELECT * FROM [Sheet1$] WHERE [ID] = searchNum"

の、searchNum って、String宣言だったので・・・

searchNum = "12"
strSQL = "SELECT * FROM [Sheet1$] WHERE [ID] = " & searchNum

で正しい・・・

以上。

編集 削除

---

ありがとうございましたとても助かりました。これで丸１日悩んでいたんですが、本当に初歩的なエラーですみませんでした。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。