Option Explicit
Dim objADO
Dim objRS
Dim i
'ADOオブジェクトを作成します
Set objADO = CreateObject("ADODB.Connection")
'ADOを使いADRDBというデータソースをオープンします
objADO.Open "DSN=ADRDB;"
'@SQLを実行します
Set objRS = objADO.Execute("select * from 住所録テーブル")
'ASQLの実行結果をデータが無くなるまで表示します
Do Until objRS.Eof = True
'Bフィールド値の表示
WScript.echo "漢字氏名:" & objRS("漢字氏名") & " 性別:" & objRS("性別")
'Cカーソルを次の行へ
objRS.MoveNext
Loop
'Dレコードセットをクローズします
objRS.Close
'データベースをクローズします
objADO.Close
'オブジェクトの破棄
Set objRS = Nothing
Set objADO = Nothing
|