VBScriptでODBCデータベースに接続する

以下は　VBScriptでODBCデータベースに接続するサンプルです。以下のサンプルでは予めpasswd　という名前でODBC登録をしておく必要があります。





Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
   

    conn.Open "DSN=passwd"
   
    rs.Open "select * from password", conn, 3, 3
   
    rs.MoveFirst

    Do While Not rs.EOF
         MsgBox rs.Fields(0) & "-" & rs.Fields(1) & "-" & rs.Fields(2)
    rs.moveNext

    Loop