クエリーが実行出来なくて困っています。

下記の単純なクエリー(SQL)が実行できないです。

Dim db As Database
Dim tb As Recordset

Set db = OpenDatabase("フルパス")
Set tb = db.OpenRecordset("a", dbOpenTable)
strsql = " SELECT * FROM a "
db.Execute strsql

単純なこれだけです。
環境はエクセル2000です。データーベースはつかんで、オープンは出来てます。
DAOの3.6を参照設定もしてあります。
考えられる事はあとはなんでしょうか?

実行すると実行時エラー3065が出てしまいます。

回答の条件
  • 1人50回まで
  • 登録:
  • 終了:2008/06/24 11:09:58
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

ベストアンサー

id:ycyc No.1

回答回数37ベストアンサー獲得回数6

ポイント100pt

3065の意味は「選択クエリーは実行できません」では?

Execute メソッドは、アクション クエリーに対してのみ有効ですので、select(選択クエリー)は使えません

(アクションクエリーには、追加クエリー、削除クエリー、テーブル作成クエリー、および更新クエリーがあります。)

> Set tb = db.OpenRecordset("a", dbOpenTable)

ができているのであれば、

tb.MoveFirst

Do Until tb.EOF

 Debug.Print tb!カラム名

 tb.MoveNext

Loop

tb.Close

みたいな感じで、結果セットが取れると思います。

id:iwasakitetsurin

私の勘違いでした。

解決しました

2008/06/24 11:09:38

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

回答リクエストを送信したユーザーはいません