![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
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ランキング
-
windows 11 へのアップグレード...
-
Chromeでページ内検索をして見...
-
EXCELのSQL文
-
タブレットにナビゲーションバ...
-
「データが反映されるのが遅い...
-
システムに格納できるシークレ...
-
ハンディターミナルを導入した...
-
大学の情報課の職員ですがつら...
-
別のシステムのデータを引っ張...
-
システム連携?システム連係?
-
「管理」「運用」「保守」の意...
-
iPhoneのシステムデータ、3日前...
-
5分ごとのデータ取得
-
Null同士の結合
-
SELECTでn行目から最後もしくは...
-
システムインテグレーションと...
-
IMPORT処理速度
-
m/n冗長システムの計算解き方に...
-
保守契約情報を管理できるソフ...
-
サーバーの監視オペレーターは...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「データが反映されるのが遅い...
-
ページングシステム
-
windows 11 へのアップグレード...
-
タブレットにナビゲーションバ...
-
MQの疎通確認方法について
-
身近で活用しているフィードバ...
-
「システマティック」「系統的...
-
システム更新とシステム更改の...
-
こんなシステムが欲しい
-
来る3月6日実施のシステムメン...
-
access・無変換を強制的に有効...
-
縮退システムとは?
-
高度情報通信社会
-
パルス発信式電力量計について
-
Docomoには追跡システムみたい...
-
マリンバ カスタネットは今?
-
クライアントサーバシステム ...
-
Chromeでページ内検索をして見...
-
アクティブディメンションバト...
-
高速道路のサービスエリアで
おすすめ情報