選択クエリを開けない

質問

お尋ねします。
ＯＳはＸＰ、ＡＣＣＥＳＳ２００２でＤＢ作成中です。

ＡＤＯで選択クエリを開きたいのですが、エラーが出てうまくいきません。

Dim cnc As New ADODB.Connection
Dim rst As New ADODB.Recordset
Set cnc = CurrentProject.Connection

stSQL = "Q_残高計算"
rst.Open stSQL, cnc

・・・・・・・・・・・・・・・・・・・・・・・

上記のコードで、”Q_残高計算”という選択クエリを開きたいのですが、実行すると、
「実行時エラー'2147217900(80040e14)':
ＳＱＬステートメントが正しくありません。'DELETE'、'INSERT'、'PROCEDURE'、'SELECT'、または'UPDATE'を使用してください。」
というエラーメッセージが出てしまいます。

どこがまずいのでしょうか？
よろしくお願いします。

回答No.4

sakko99 · ベストアンサー

> パラメータの指定は「開始日」「終了日」「仕入先」の３つが必要なのでしょうか。
その通りです。
・「クエリ」-「パラメータ」でその３つを定義
・SQL条件で上記パラメータを参照
・ADOからパラメータ値を指定して実行

お礼

ありがとうございました。おかげさまでパラメータクエリの考え方がなんとか理解できました。またよろしくお願いします。

回答No.3

sakko99

「Q_残高計算」はパラメータを使用していますか？
外部パラメータを必要とするクエリの場合は、それを指定する必要があります。
例）
cmd.CommandText = "Q_残高計算"
cmd.Parameters.Append cmd.CreateParameter("param", adVarChar, adParamInput, 4, "TEST")
Set rst = cmd.Execute

お礼

回答ありがとうございます。
ご指摘のとおりパラメータクエリです。
フォームから
・「開始日」と「終了日」を入力
・「仕入先」をコンボボックスで選択
して仕入先別の取引台帳を表示させたいのです。

ＳＱＬは次の通りです。

SELECT Sum([数量]*[単価]*1.05) AS 仕入計, Sum([支払金額]) AS 支払計
FROM (T_外部取引 LEFT JOIN T_物品マスター ON T_外部取引.物品ＩＤ = T_物品マスター.物品ID) INNER JOIN T_業者繰越残高 ON T_外部取引.仕入先ID = T_業者繰越残高.仕入先ID
WHERE (((T_外部取引.仕入先ID)="04") AND ((T_外部取引.納品日) Between [Forms]![F_台帳表示]![開始日]and [Forms]![F_台帳表示]![開始日])) OR (((T_外部取引.仕入先ID)="04") AND ((T_外部取引.支払日) Between [Forms]![F_台帳表示]![開始日]and [Forms]![F_台帳表示]![開始日]));

おわかりのように、取引テーブル（T_外部取引） と物品テーブル（T_物品マスター）、繰越テーブル（T_業者繰越残高）の３つのテーブルを結合し、仕入先IDと指定した期間をもとに仕入・払出取引を抽出し、それぞれの合計を求めるものです。

パラメータの指定は「開始日」「終了日」「仕入先」の３つが必要なのでしょうか。

回答No.2

sakko99

これではだめですか？
------------------------------------
Dim cnc As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cmd As New ADODB.Command
Set cnc = CurrentProject.Connection
cmd.ActiveConnection = cnc
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "Q_残高計算"
Set rs = cmd.Execute

お礼

やってみましたが、下記エラーが出ました。
「実行時エラー　'-2147217904 (80040e10)':
パラメータが少なすぎます。１を指定してください。」
どういう意味なのでしょうか。
アドバイスをいただけますか。

補足

早速のご回答ありがとうございます。いま出張中なのでＤＢアクセスができません。月曜日にやってみます。

回答No.1

bin-chan

オブジェクトとしてのクエリ「Q_残高計算」を開くことはできるのですか？

できないならば、そこからデバッグですね。

できるのならば、コピー＆ペーストで半角英数文字のみでクエリ名を作成してみるとＶＢＡで開けますか？

お礼

すべて英文字の「zan」という名前にしてやってみましたが、下記エラーメッセージが出てデバッグ画面になります。
「実行時エラー　'-2147217904 (80040e10)':
パラメータが少なすぎます。１を指定してください。」
どうすればいいのか、アドバイスを頂けないでしょうか。

補足

早速のご回答ありがとうございます。出張中なのでＤＢアクセスができません。月曜日にやってみます。