[pgsql-jp: 39947] SQL文で呼出したデータを変数に入れたい。

[take]

takeと申します。

VBSで下記スクリプトを書きました（ホームページで調べて）が、
データを取出して変数に入れたいのですがどのように行えば
良いのか教えて頂けないでしょうか。

Dim objConnection
Dim strConnectionString

Dim strSQL
Dim objCommand


strConnectionString = "Provider=MSDASQL;DSN=FAS;UID=VINUser;PWD=1234;" 

strSQL = "SELECT [Order No] FROM [master].[dbo].[VIN] where [ID] =  1"

上記SQL文で取出したデータを変数に入れたいのです。


Set objConnection = CreateObject("ADODB.Connection")
objConnection.ConnectionString = strConnectionString
objConnection.Open
Set objCommand = CreateObject("ADODB.Command")

With objCommand
    .ActiveConnection = objConnection
    .CommandText = strSQL
End With


Set objCommand = Nothing
objConnection.Close
Set objConnection = Nothing



開発環境
WindowsXP(SP2)
VS6.0(SP5)
IE6.0
Office2003(SP2)
Becky! 2.50.05
以上宜しくお願いします。