![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
EXCELのSQL文で下記にてAccessのテーブルから取得中ですが
mySQL = "SELECT 流通システム.協力者, 流通システム.ファイルパス, 流通システム.出品者へ入金 FROM 流通システム " & _
"WHERE(((流通システム.入金日)>=#" & orderDate & "#) AND ((流通システム.入金日)<=#" & shipDate & "#));"
下記にすると動きません
mySQL = "SELECT 流通システム.協力者, 流通システム.ファイルパス, 流通システム.出品者へ入金 FROM 流通システム " & _
"WHERE(((流通システム.入金日)>=#" & orderDate & "#) AND ((流通システム.入金日)<=#" & shipDate & "#)) AND ((流通システム.協力者 =" & TextBox1 & ")) ;"
協力者を追加したいのですが上記じゃ駄目みたいです
1つ以上の必要なパラメータの値が設定されていません
と出ます
大分はまっていしまいくたくたです
分かる方、急ぎでおしえてください
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
mySQL = "SELECT 流通システム.協力者, 流通システム.ファイルパス, 流通システム.出品者へ入金 FROM 流通システム " & _
"WHERE(((流通システム.入金日)>=#" & orderDate & "#) AND ((流通システム.入金日)<=#" & shipDate & "#));"
上記でパラメータを要求されていないということは
関数で「orderDate」、「shipDate」をSQLに渡して
いるのだろうと思いますが、
mySQL = "SELECT 流通システム.協力者, 流通システム.ファイルパス, 流通システム.出品者へ入金 FROM 流通システム " & _
"WHERE(((流通システム.入金日)>=#" & orderDate & "#) AND ((流通システム.入金日)<=#" & shipDate & "#)) AND ((流通システム.協力者 =" & TextBox1 & ")) ;"
では、「TextBox1」はユーザーフォームに設定
されたテキストボックスであるならば、これは
VBAの中でパラメータを設定してSQL文に渡す
必要があります。
たとえば、ユーザーフォームにコマンドボタンと
テキストボックスを設定します。コマンドボタンの
クリック時のイベントで以下のようにします。
「orderDate」と「shipDate」はどのように
設定しているのかわからないので、VBAの中で
設定しておくことにします。
ADOを使っているのでコード表の参照設定でADOにチェックを
入れておいてください。以下のような感じです。
Microsoft ActiveX Data Objects xx Library
AccessファイルはExcelと同じディレクトリに
あるものとします。
Private Sub CommandButton1_Click()
Dim myCon As New ADODB.Connection
Dim myCmd As New ADODB.Command
Dim myRS As New Recordset
Dim FileName As String
Dim strSQL As String
Dim orderDate As Date
Dim shipDate As Date
Dim param As ADODB.Parameter
orderDate = "2011/01/01"
shipDate = "2011/01/31"
strSQL = "SELECT 流通システム.協力者, 流通システム.ファイルパス, 流通システム.出品者へ入金 FROM 流通システム " & _
"WHERE(((流通システム.入金日)>=#" & orderDate & "#) AND ((流通システム.入金日)<=#" & shipDate & "#)) AND ((流通システム.協力者 =" & TextBox1 & ")) ;"
FileName = ThisWorkbook.Path & "\sample.mdb"
myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileName
With myCmd
.ActiveConnection = myCon
.CommandText = strSQL
End With
'----パラメータの設定------
Set param = New ADODB.Parameter
Set param = myCmd.CreateParameter("協力者", adVarChar, adParamInput, 30)
myCmd.Parameters.Append param
myCmd.Parameters("協力者") = TextBox1
'----ここまで----複数ある場合は同じように設定します。
Set myRS = myCmd.Execute
Worksheets("Sheet1").Range("A1").CopyFromRecordset myRS
Set myCmd = Nothing
myRS.Close: Set myRS = Nothing
myCon.Close: Set myCon = Nothing
End Sub
No.1
- 回答日時:
"WHERE(((流通システム.入金日)>=#" & orderDate & "#) AND ((流通システム.入金日)<=#" & shipDate & "#)) AND ((流通システム.協力者 =""" & TextBox1 & """)) ;"
としてみてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Oracle sqlのwhere句で下記の条件にしたい場合どうなるでしょうか。 システム日付が開始日以上、終了日以 2 2022/03/25 21:22
- 電気工事士 太陽光発電の逆潮流について 2 2023/02/01 13:38
- 消費税 消費税還付を受けるための輸出免税の会計処理(仕訳)を教えてください 4 2022/07/14 12:48
- その他(データベース) c言語の問題です。これを踏まえてコーディングしたいのでおしえていただきたいです。 3 2023/08/03 09:27
- 銀行・ネットバンキング・信用金庫 暗証番号無しで出金 2 2023/03/20 10:44
- 工学 ヒートぽんぷ にて 2 2023/03/21 14:53
- MySQL 書籍の内容はまともでしょうか? 1 2023/01/22 03:07
- イヤホン・ヘッドホン・補聴器 イヤホンしながらバーコード決済を行うと、イヤホン側から決済音が流れて耳が痛いのですが、なぜスマホ本体 4 2023/07/13 09:57
- その他(趣味・アウトドア・車) 24vソーラー発電で12vと24vのインバーターを使うと 3 2023/05/12 20:32
- その他(セキュリティ) 役所など、情報系システムのセキュリティが弱くても業務システムに問題ないか 3 2022/11/02 16:38
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「データが反映されるのが遅い...
-
MQの疎通確認方法について
-
体系数学の「体系」という言葉...
-
布にテープを貼って上から紙を...
-
windows 11 へのアップグレード...
-
access・無変換を強制的に有効...
-
社会システム理論
-
ビル等に設置する自動調光&コ...
-
システム更新とシステム更改の...
-
「用件定義」とは?
-
USBが開きません、助けてくださ...
-
クライアントサーバシステム ...
-
YAMAHA AC-XG WDM XG Synth の...
-
電車でGO! PS2版とWindows版...
-
顔認証システムで、使う側が、...
-
WindowsUpdateの検証
-
WindowsのVERSIONを確認する方...
-
タブレットにナビゲーションバ...
-
来る3月6日実施のシステムメン...
-
システム連携?システム連係?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「データが反映されるのが遅い...
-
windows 11 へのアップグレード...
-
ページングシステム
-
身近で活用しているフィードバ...
-
タブレットにナビゲーションバ...
-
システム更新とシステム更改の...
-
あなたに回答して欲しい質問だ...
-
MSDE2000のデータベースバック...
-
Webシステムでないシステムの呼...
-
こんなシステムが欲しい
-
MQの疎通確認方法について
-
自作のwebアプリ(図書館管理シ...
-
縮退システムとは?
-
「用件定義」とは?
-
動的安定システムとは?
-
クライアントサーバシステム ...
-
「システマティック」「系統的...
-
体系数学の「体系」という言葉...
-
来る3月6日実施のシステムメン...
-
Chromeでページ内検索をして見...
おすすめ情報