人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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’を使用してください。とエラーがでます。

●質問者: topo
●カテゴリ:コンピュータ
✍キーワード:access application as DELETE Microsoft
○ 状態 :終了
└ 回答数 : 4/4件

▽最新の回答へ

1 ● paffpaff
●10ポイント

http://homepage1.nifty.com/tsware/study/vol9/vbanote_16.htm

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となっていないか)

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

◎質問者からの返答

ありがとうございます。

テーブルの中身は

--test--

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

09012345678 0001

09012345679 0002

------

です。

SELECT * FROM test

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

-----

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

FROM 句の構文エラーです。

------

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


2 ● oojiji
●10ポイント

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

はてな

URLはダミーです。

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

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

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

Dim rs1 As New ADODB.Recordset

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

rs1.Close

◎質問者からの返答

実行時エラー’438’

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

となってしまいます。


3 ● paffpaff
●40ポイント

http://www.skullysoft.com/tips/access.shtml

404 not found

再度すみません

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

この adCmdTableDirect

のように

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

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

お試しください

◎質問者からの返答

ありがとうございます。

adCmdTableDirect

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

助かりました。


4 ● s_hosokawa
●10ポイント

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

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

URLはダミーです。

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

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

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

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

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ