VBSでADOを使ってaccessのテーブルに接続

解決済

質問者：SOQRFGFKD
質問日時：2012/10/16 20:43
回答数：3件

VBSでADOを使ってaccessのテーブルに接続する方法は？

Sub ADO_test()

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= " & "D:\【Access】サンプル.mdb"
rs.Open "テーブル1", cn, adOpenKeyset, adLockOptimistic

MsgBox "test成功です"

rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing

End Sub

をACCESSVBAで実行すると成功しますが
全く同じコードをメモ帳に貼り付けてtest.vbsで保存し、ダブルクリックすると、

行：３
文字：１１
エラー：ステートメントの末尾が不正です。
コード：800A0401

のエラーになります。

ＶＢＡは少しわかるのですが、ＶＢＳに関しては初心者です。
どこを修正すればコードが通るのか教えてください。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

No.3

回答者： piroin654
回答日時：2012/10/16 23:20

以下をテキストに貼り付け、拡張子をvbsで

保存して実行してみてください。

Dim cn
Dim rs
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
cn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=D:\【Access】サンプル.mdb;"
rs.Open "SELECT * FROM テーブル1", cn
msgbox "接続"

rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing

ｖｂｓはコードの書き方が少し違います。たとえば変数の
型は指定できません。その他もろもろがあります。
VBScript、あるいはWSHなどで検索してみてくだい。

- 1
- 件

通報する

この回答へのお礼

おお！こちらでも出来ました。

変数の宣言はしないで、CreateObjectを使うと言うのが味噌ですね。

cn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=D:\
と言う記述方法も勉強になりました。

ＶＢＳの勉強をもってしてみたいと思います。
ありがとうございました。

通報する

お礼日時：2012/10/17 19:54

No.2ベストアンサー

回答者： nicotinism
回答日時：2012/10/16 23:17

Dim cn 'データ型の指定は出来ません。

VBSにお任せになります
Dim rs
const adOpenKeyset = 1
const adLockOptimistic = 3
set cn=createobject("adodb.connection") 'Accessのように参照設定は出来ないので此処で
set rs=createobject("adodb.recordset")

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= " & "D:\【Access】サンプル.mdb"
rs.Open "テーブル1", cn, adOpenKeyset, adLockOptimistic 'Accessの定数名では指示できないので実数で
'rs.Open "テーブル1", cn, 1, 3 'これだと後で見ても分からないので、Const で宣言
MsgBox "test成功です"
msgbox rs(0)
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing

かな？
定数の実際の値はイミディエイトウィンドウで
?adOpenStatic とかで返ってくる値を確認してください。