0

データベース内のテーブルの行数を取得し、VBScript を使用してコンソールに出力しようとしていますが、次のコードを実行すると、型の不一致エラーが発生します。コードを変更して、エラーなしで強制的に実行する必要があります

Dim loop_lim
Const DB_CONNECT_STRING = "Provider=SQLOLEDB.1;Data Source=BUG\SQLSERVER2005;Initial Catalog=test;user id ='sa';password='111111'"
Set myConn = CreateObject("ADODB.Connection")
Set myCommand = CreateObject("ADODB.Command" )
myConn.Open DB_CONNECT_STRING
Set myCommand.ActiveConnection = myConn
myCommand.CommandText = "select count(*) from oferty o inner join rep_oferta ro on o.indeks = ro.srcdoc inner join rep_pozycje rp on o.indeks = rp.srcdoc"
loop_lim = myCommand.Execute
WScript.Echo loop_lim
4

1 に答える 1

1

変化する

loop_lim = myCommand.Execute

に

Set loop_lim = myCommand.Execute

.Execute はレコードセットオブジェクトを返すためです。次に、レコードセット rsp から値を取得する方法について考えます。それは畑です。

于 2013-04-22T12:51:34.170 に答える