Excel VBA質問箱 IV

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

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


33526 / 76734 ←次へ | 前へ→

【48425】Re:ExcelでAccessクエリ抽出
発言  ウッシ  - 07/4/17(火) 9:05 -

引用なし
パスワード
   ▼もとあし さん:
>neptune さん、
こんにちは。

>strSNTXT = Trim("'Worksheets(""Sheet1"").txtSNInput.Text'")
とすれば大丈夫だと思いますよ。
でも何故シート名を付けるのでしょうか?
neptune さんのレスのように単なる初期値みたいなものですよね?

今回のケースではパラメータを使う必要も無いと思います。
このマクロを実行する時点で、
「Worksheets("Sheet1").txtSNInput.Text」は入力されているのでしょうから
初めから、mySQL文にセットして抽出すればいいと思います。

>ウッシさんのにはCreateParameterメソッドが使用されていません。
>この場合、なくてもいいのなら、どんなときに必要となるのでしょうか。
というか、CreateParameterメソッドを使った書き方でうまく抽出出来なかったので
提示したコードにしました。

下記コードはエラーにはなりませんけど、なにも抽出出来ませんでした。

  Dim cn    As New ADODB.Connection
  Dim cmd   As New ADODB.Command
  Dim rs    As New ADODB.Recordset
  Dim param  As New ADODB.Parameter
  Dim mySQL  As String
  Dim strSNTXT As String
  Dim strmsg  As String

  strSNTXT = Trim("'Worksheets(""Sheet1"").txtSNInput.Text'")
  mySQL = "SELECT * FROM tbl1 WHERE fldA=" & strSNTXT
  cn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;" _
            & "Data Source=K:\db1.mdb"
  cn.Open
  Set cmd.ActiveConnection = cn

  With cmd
    .CommandText = mySQL
    .CommandType = adCmdText
    .Prepared = True
  End With

  Set param = cmd.CreateParameter("パラメータ", adVarChar, adParamInput, 20)
  cmd.Parameters.Append param
  strmsg = Trim("'" & Worksheets("Sheet1").txtSNInput.Text & "'")
  cmd.Parameters("パラメータ") = strmsg
  
  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

どこかおかしいでしょうか?

2 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 発言

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