2013-04-22 33 views
0

我想要獲取db表中的行數並將其輸出到使用VBScript的控制檯,但是當我執行以下代碼時,出現類型不匹配錯誤,我應該更改代碼中的內容以強制執行錯誤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 

回答

1

變化

loop_lim = myCommand.Execute 

Set loop_lim = myCommand.Execute 

因爲的.exe文件可愛返回記錄集對象。然後考慮如何從記錄集rsp中獲取值。它是領域。