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

質問

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

のエラーになります。

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

回答No.2

nicotinism · ベストアンサー

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 とかで返ってくる値を確認してください。

お礼

ぉぉ！
うまくいきました！
感動です。

Sub ()
End Sub
はなくてもいいんですね。ありがとうございました。

回答No.3

piroin654

以下をテキストに貼り付け、拡張子を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などで検索してみてくだい。

お礼

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

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

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

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

回答No.1

bin-chan

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= " & "D:\【Access】サンプル.mdb"

を

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= " & """D:\【Access】サンプル.mdb"""

とすると、どうなりますか？

お礼

"""にしてみましたが、さっきと変らずでした。せっかくご回答いただいたのにすいません。