' ADODB を使ったサンプル
' Stdoutを使うので、CScriptで実行すること
' ストアドプロシージャの結果セットを使う。

Dim objConn, objRS
Set objConn = WScript.CreateObject("ADODB.Connection")
objConn.Open ( "Provider=SQLOLEDB.1;Password=kurokuro;User ID=kuro;Initial Catalog=KuroDB" )

Set objRS = objConn.Execute( "EXEC GetAllAuthorsAndBooks" )

Do While Not objRS Is Nothing  

    Wsh.Stdout.Write "**** Record Set Found ****" & vbCRLF

    Wsh.Stdout.Write "* Fields of ResultSet * " & vbCRLF
    For i=0 to objRS.Fields.Count -1
        Wsh.Stdout.Write "Field(" & i & "): "& objRS.Fields(i).name & vbCRLF
    Next 
    Wsh.Stdout.Write vbCRLF

    Wsh.Stdout.Write "* Data in ResultSet * " & vbCRLF
    Do While Not objRS.EOF
        For i=0 to objRS.Fields.Count -1
            Wsh.Stdout.Write objRS.Fields(i).name & ":"
            Wsh.Stdout.Write objRS(i) & "  "
        Next 
        Wsh.Stdout.Write vbCRLF

        objRS.MoveNext
    Loop
    Wsh.Stdout.Write vbCRLF
    Set objRS = objRS.NextRecordSet()
Loop