Microsoft Access Club Access超初心者対象Forum Access初級者対象Forum Access VBA Tips Forum DAO、ADO、SQL Forum

     

リストへもどる

投稿記事の一括表示

タイトル選択クエリをオープンしたい
記事No42910
投稿日: 2018/04/03(Tue) 12:08
投稿者ka
OS:Win 7
Access Version:2013

選択クエリをオープンしたいと思います。下記はHatenaさんのサイトにあったコードになります。

Option Explicit

Const FilePath = "C:\Test\Test.accdb"
Const TableName = "Table1"

Const adOpenKeyset = 1
Const adLockOptimistic = 3
Dim cnC, rsC

Set cnC = CreateObject("adodb.connection")
Set rsC = CreateObject("adodb.recordset")

cnC.Open "Driver={Microsoft Access Driver (*.mdb, *.accdb)};" _
& "DBQ=" & FilePath & ";"
rsC.Open TableName, cnC, adOpenKeyset, adLockOptimistic
MsgBox rsC(0)
rsC.Close: cnC.Close
Set rsC = Nothing: Set cnC = Nothing

TableNameに選択クエリを指定して、rSC.Open TableNameを実行すると
SQLステートメントが正しくありません。DELETE,INSERT...を使用してください。
というエラーメッセージが表示されます。選択クエリをオープンしてMsgBoxに
選択クエリの値を表示したいのですが、どうしたらいいかご教授お願いいたします。

タイトルRe: 選択クエリをオープンしたい
記事No42914
投稿日: 2018/04/03(Tue) 17:08
投稿者hatena
> 選択クエリをオープンしたいと思います。下記はHatenaさんのサイトにあったコードになります。

下記のサイトのコードのようですね。

64bitOS、32bitOffice環境でのWSH(VBS)でAccessデータベースに接続する - hatena chips
https://hatenachips.blog.fc2.com/blog-entry-421.html


これは、VBAのコードではなくVBS のコードです。

VBSでやりたいのですか。

また、提示のコードは、サイトのコードそのままですが、
実際のコードもまったく同じですか。

- 以下のフォームから自分の投稿記事を修正・削除することができます -
処理 記事No パスワード

ページの先頭へ 前ページへ戻る