Microsoft Access 2002 VBAの質問です。カレントデータベースで「test」とうテーブルを作成し、レコードを1件ずつ読み込もうと思い下記のVBAを作ったのですが、テーブルのオープンでエラーがでます。解決方法を教えてください。-----------------------------------Public Sub test_001()Dim cn As ADODB.ConnectionDim rs1 As ADODB.RecordsetSet cn = Application.CurrentProject.ConnectionSet rs1 = New ADODB.Recordsetrs1.Open ”test”, cn, adOpenStatic, adLockReadOnlyrs1.closecn.closeEnd Sub-----------------------------------実行時エラー’-2147217900(80040e14)’:SQLステートメントが正しくありません。’DELETE’、’INSERT’、’PROCEDURE’、’SELECT’、または’UPDATE’を使用してください。とエラーがでます。

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2003/11/04 14:44:20
  • 終了:--

回答(4件)

id:paffpaff No.1

paffpaff回答回数430ベストアンサー獲得回数122003/11/04 15:24:50

ポイント10pt

URLはダミーです

やってみましたができました

テーブル:test

t1(数値) t2(文字)

1    いちばん 

2    2番

ソース======

Option Compare Database

Public Sub test_001()

Dim cn As ADODB.Connection

Dim rs1 As ADODB.Recordset

Set cn = Application.CurrentProject.Connection

Set rs1 = New ADODB.Recordset

rs1.Open ”test”, cn, adOpenStatic, adLockReadOnly

MsgBox ”OpenOK!----” & rs1!t2

rs1.Close

cn.Close

End Sub

==========

SQLを要求されるなら

テーブル名のかわりに

SELECT * FROM test

ではどうでしょうか

または、テーブルにデータが入っていますか?

(EOF、BOFとなっていないか)

解決になりませんでしたらすみません

id:topo

ありがとうございます。

テーブルの中身は

--test--

telno(テキスト型) 会員番号(テキスト型)

09012345678 0001

09012345679 0002

------

です。

SELECT * FROM test

を使ったら下記のエラーが出ました。

-----

実行時エラー’-2147217900(80040e14)’:

FROM 句の構文エラーです。

------

何がおかしいんですかね?

2003/11/04 16:43:48
id:oojiji No.2

oojiji回答回数38ベストアンサー獲得回数02003/11/04 15:27:47

ポイント10pt

URLはダミーです。

コネクションが設定されていません。データベースを指定して、接続する必要があります。

この場合、Access内で使用するので、コネクションはアプリが自動的に設定するものを使います。

以下の様にやってみてください。

Dim rs1 As New ADODB.Recordset

rs1.Open ”test”, CurrentProject.Connection, adOpenStatic, adLockReadOnly

rs1.Close

id:topo

実行時エラー’438’

オブジェクトは、このプロパティまたはメソッドをサポートしていません。

となってしまいます。

2003/11/04 16:48:53
id:paffpaff No.3

paffpaff回答回数430ベストアンサー獲得回数122003/11/04 15:28:25

ポイント40pt

再度すみません

RS.Open ”得意先マスター”, CNN, adOpenDynamic, adLockOptimistic, adCmdTableDirect

この adCmdTableDirect

のように

「指定したのはテーブルだよ」というパラメタが必要なのかもしれません

デフォルトはSQLだと思うので。

お試しください

id:topo

ありがとうございます。

adCmdTableDirect

追加したらできました。デフォルトはSQLなのですね。

助かりました。

2003/11/04 16:52:11
id:s_hosokawa No.4

s_hosokawa回答回数16ベストアンサー獲得回数12003/11/04 15:34:36

ポイント10pt

http://www.hatena.ne.jp/1067924660#

Microsoft Access 2002 VBAの質問です。カレントデータベースで「test」とうテーブルを作成し、レコードを1件ずつ読み込もうと思い下記のVBAを作ったのですが、テーブ.. - 人力検索はてな

URLはダミーです。

そんなエラーになるはずないですよねえ?

SQLステートメント自体ないのだから。

可能性としては、testが何らかの間違いでクエリになっている??

とにかくソースを一行づづ実行してみることだと思います。

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

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

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

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

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません