VB初心者友の会 - データベース掲示板過去ログ

> こんにちは。昨日はお世話になりました。
> たびたびで申し訳ないのですが、教えて頂けないでしょうか。
> 今パラメータのあるクエリの実行を試みています。
> tmpStDateは日付型で、データベースのDateも日付型です。
> 
> Set ws = DBEngine.Workspaces(0)
> Set db = ws.OpenDatabase(tmpStrDataBase)
> mySQL = "SELECT Date,Data1 FROM Test WHERE [Date]=[PARAM1}"
> Set qd = tmpdb.CreateQueryDef("Test", mySQL)　　'・・・Ａ
> Set qd = tmpdb.QueryDefs("FrmDataBaseAccess")
> qd.Parameters("PARAM1").Value = tmpStDate
> Set rs = tmpqd.OpenRecordset
> db.QueryDefs.Delete "Test"
> 
> Ａの行でクエリ式の構文エラー　演算子がありません。
> と表示されます。
> Dateフィールドの日付がtmpStDateの日のレコードがrsに入るつもりでいたのですが、
> うまく動きません。
> SQL構文で何か勘違いをしていると思うのですが、原因がわかりません。
> たびたびで申し訳ありませんが、よろしくお願いします。
> 
> 環境：
> WinXP VB6.0 SP5 Access2000

SELECT Date,Data1 FROM Test WHERE [Date]=[PARAM1}
最後の}はなんですか、それが原因では
後[は必要なんでしょうか
SELECT Date,Data1 FROM Test WHERE Date=PARAM1
↑これか
SELECT Date,Data1 FROM Test WHERE [Date]=[PARAM1]
って感じでしょうかねｗ

関係なかったらすまそm(_　_)m
削除1234

> Set ws = DBEngine.Workspaces(0)
> Set db = ws.OpenDatabase(tmpStrDataBase)
> mySQL = "SELECT Date,Data1 FROM Test WHERE [Date]=[PARAM1}"
> Set qd = tmpdb.CreateQueryDef("Test", mySQL)　　'・・・Ａ
> Set qd = tmpdb.QueryDefs("FrmDataBaseAccess")
> qd.Parameters("PARAM1").Value = tmpStDate
> Set rs = tmpqd.OpenRecordset
> db.QueryDefs.Delete "Test"
そのままのソースのでしょうか？変数宣言はともかくとし、
括弧も対になっていないので構文エラーになりますし、
いきなりtmpXXなんていうのもいくつか使用していますし。

>Ａの行でクエリ式の構文エラー　演算子がありません。
こういうエラーが出た場合にまずすることは、その時点で発行しようとしている
SQLを見てください。そして、そのSQLをAccess側で実行してみましょう。

匿名さん、おのちんさん御返答ありがとうございます。
tmpXX等とついてるとこを御指摘頂きました。
実はこのソース自体Function扱いにしてまして、ws,db等のデータベース関係の変数を受け渡してまして、その辺がダメだったようです。
Accessで試してみれば・・というアドバイスを頂き初心に帰ろうとFunctionにせずにやってみたところうまく出来てしまいました。
勉強中のくせにややこしくやろうとしたミスですね・・反省してます。
取り合えずうまくいきましたので、アドバイス頂いた方本当にありがとうございました。

> > Set ws = DBEngine.Workspaces(0)
> > Set db = ws.OpenDatabase(tmpStrDataBase)
> > mySQL = "SELECT Date,Data1 FROM Test WHERE [Date]=[PARAM1}"
> > Set qd = tmpdb.CreateQueryDef("Test", mySQL)　　'・・・Ａ
> > Set qd = tmpdb.QueryDefs("FrmDataBaseAccess")
> > qd.Parameters("PARAM1").Value = tmpStDate
> > Set rs = tmpqd.OpenRecordset
> > db.QueryDefs.Delete "Test"
> そのままのソースのでしょうか？変数宣言はともかくとし、
> 括弧も対になっていないので構文エラーになりますし、
> いきなりtmpXXなんていうのもいくつか使用していますし。
> 
> >Ａの行でクエリ式の構文エラー　演算子がありません。
> こういうエラーが出た場合にまずすることは、その時点で発行しようとしている
> SQLを見てください。そして、そのSQLをAccess側で実行してみましょう。