參數的錯誤類型，超出可接受的範圍內，或者是在一個衝突的另一個VBScript錯誤

Question

代碼：

<%@LANGUAGE="VBSCRIPT"%> 

<% 
set updatetime = Server.CreateObject("ADODB.Connection") 
updatetime.open "DRIVER=SQL Server;***************************************" 
If request.form("in_out")="checkin" then 
updatetime.execute ("insert into hourlist (username, checkintime, paid,breakCount) values ('"&session("MM_username")&"', '"&Now()&"', 0, 2) ") 

End if 

If request.form("in_out")="checkout" then 
updatetime.execute ("update hourlist set checkouttime='"&Now()&"' where username='"&session("MM_username")&"' and checkouttime is NULL") 
End if 
If request.form("in_out")="breakcheckin" then 
updatetime.execute ("update hourlist set breakCheckIn='"&Now()&"' where ID='"&session("MM_ID")&"' ") 
updatetime.execute ("update hourlist set breakCheckOut=Null where ID='"&session("MM_ID")&"' and breakCheckOut is not NULL ") 
End if 
If request.form("in_out")="breakcheckout" then 
updatetime.execute ("select breakCheckIn from hourlist where ID='"&session("MM_ID")&"' ") 
Dim BTD 
BTD=Round(Csng(DateDiff("n", (updatetime.Fields.Item("breakCheckIn").Value), (Now()))), 2) 
updatetime.execute ("update hourlist set breakCheckOut='"&Now()&"', breakCount=breakCount-1 where ID='"&session("MM_ID")&"' ") 
updatetime.execute ("update hourlist set breakTime='"&BTD&"' where ID='"&session("MM_ID")&"' ") 
updatetime.execute ("update hourlist set breakCheckIn=NULL where ID='"&session("MM_ID")&"' and breakCheckIn is not NULL ") 
End if 
updatetime.close 
set updatetime=nothing 
response.redirect "employee.asp?in_out="&request.form("in_out") 

%> 

根據無線電選擇我做的事情不同勢，我越來越「 ADODB.Connection錯誤'800a0bb9'「在21行錯誤（BTD =圓...線）有人可以告訴我我在那條線上做錯了什麼？我寫了「updatetime.Fileds」錯了還是什麼？

Sry爲我的壞英語。

Answer 1

Dim myConnection, myRecordset  
set myRecordset = Server.CreateObject("ADODB.Recordset") 
set myConnection = Server.CreateObject("ADODB.Connection") 
myConnection.Open "DRIVER=SQL Server;***************************************" 

myRecordset.Open "select breakCheckIn from hourlist where ID='"&session("MM_ID")&"' ", myConnection 

Dim bciValue = myRecordset("breakCheckIn") 
Response.Write "BreakCheckIn value is: " & bciValue 

myRecordset.Close 
myConnection.Close 

Answer 2

您的updatetime是一個連接，而不是一個記錄集（帶.Fields）。您可能需要結果/記錄從

updatetime.execute ("select breakCheckIn from hourlist where ID='"&session("MM_ID")&"' ")

存儲在一個變量，並在後來的聲明（S）使用其字段（S）（或 - 更好 - 參數化查詢）。

更新WRT評論：

使用Set分配對象（記錄）給一個變量。