發生BOF或EOF錯誤後，請致電recordCount

Question

我必須撥打recordCount函數才能獲得記錄集的計數。 但是，一旦我調用recordCount函數，記錄集就失去控制。

... 
Dim objRootDSE, strDNSDomain, adoCommand, adoConnection 
Set adoCommand = CreateObject("ADODB.Command") 
'Set adoRecordset = adoCommand.Execute 
Set adoRecordset = Server.CreateObject ("ADODB.Recordset") 
adoRecordset.cursorType = 3 
adoRecordset.CursorLocation = adUseClient 
adoRecordset = adoCommand.Execute 
... 


totalcnt = adoRecordset.recordCount 

If totalcnt > 0 Then 
... 
    Do until adoRecordset.EOF 
     ' Retrieve values... But it fails because it seems adoRecordset is in EOF 
     ... 

所以我用movefirst並嘗試檢索值。

If adoRecordset.recordCount > 0 Then 
              adoRecordset.movefirst 
    ... 

但它是錯誤（以下信息由谷歌翻譯）

ADODB.Recordset 오류 '800a0bcd' 
BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. 

如果我不叫recordCount，沒有任何問題。但我應該知道記錄的數量。

整個代碼：

<% 
'On Error Resume next 
Dim objRootDSE, strDNSDomain, adoCommand, adoConnection 
Dim strBase, strFilter, strAttributes, strQuery, adoRecordset 
Dim strDN, strUser, strPassword, objNS, strServer 
Dim name,company,physicalDeliveryOfficeName 

Const ADS_SECURE_AUTHENTICATION = 1 
Const ADS_SERVER_BIND = 0 

' Specify a server (Domain Controller). 
strServer = "my_ad_server_domain" 

' Specify or prompt for credentials. 
strUser = "my_account" 
strPassword = "my_passwrd" 

' Determine DNS domain name. Use server binding and alternate 
' credentials. The value of strDNSDomain can also be hard coded. 
Set objNS = GetObject("LDAP:") 
Set objRootDSE = objNS.OpenDSObject("LDAP://" & strServer & "/RootDSE", _ 
     strUser, strPassword, _ 
     ADS_SERVER_BIND Or ADS_SECURE_AUTHENTICATION) 
strDNSDomain = objRootDSE.Get("defaultNamingContext") 

' Use ADO to search Active Directory. 
' Use alternate credentials. 
Set adoCommand = CreateObject("ADODB.Command") 
Set adoConnection = CreateObject("ADODB.Connection") 
adoConnection.Provider = "ADsDSOObject" 
adoConnection.Properties("User ID") = strUser 
adoConnection.Properties("Password") = strPassword 
adoConnection.Properties("Encrypt Password") = True 
adoConnection.Properties("ADSI Flag") = ADS_SERVER_BIND _ 
     Or ADS_SECURE_AUTHENTICATION 
adoConnection.Open "Active Directory Provider" 
Set adoCommand.ActiveConnection = adoConnection 

' Search entire domain. Use server binding. 
strBase = "<LDAP://" & strServer & "/" & strDNSDomain & ">" 

' Search for all users. 
strFilter = "(&(objectCategory=user)(ExADObjectStatus=10)(samaccountname=*"&"my_search_value"&"*))" 

' Comma delimited list of attribute values to retrieve. 
strAttributes = "name,company,physicalDeliveryOfficeName" 

' Construct the LDAP query. 
strQuery = strBase & ";" & strFilter & ";" _ 
     & strAttributes & ";subtree" 

' Run the query. 
adoCommand.CommandText = strQuery 
adoCommand.Properties("Page Size") = 100 
adoCommand.Properties("Timeout") = 60 
adoCommand.Properties("Cache Results") = False 
Set adoRecordset = adoCommand.Execute 




if not adoRecordset.EOF then 
    totalcnt = adoRecordset.recordCount 
    If totalcnt > 0 Then 
    Response.write 111 
     Do until adoRecordset.EOF 
      name = adoRecordset.Fields("name").Value 
       company = adoRecordset.Fields("company").Value 
       physicalDeliveryOfficeName = adoRecordset.Fields("physicalDeliveryOfficeName").Value 
       Response.Write name & "<br/>" 
       Response.Write company & "<br/>" 
       Response.Write physicalDeliveryOfficeName 
       adoRecordset.MoveNext 
     Loop 
    end if 
end if 



' Clean up. 
adoRecordset.Close 
adoConnection.Close 
%> 

這說明只有一個記錄的結果。

Answer 1

你可以嘗試從不同的角度面對的問題。而不是試圖解決內部recordCount屬性（不能）只是你自己算記錄：

totalcnt = 0 
Do until adoRecordset.EOF 
    totalcnt = totalcnt + 1 
    adoRecordset.MoveNext 
Loop 

If totalcnt>0 Then 
    adoRecordset.MoveFirst 
    Do until adoRecordset.EOF 
     name = adoRecordset.Fields("name").Value 
     '... 
     adoRecordset.MoveNext 
    Loop 
End If 

更新：看起來像在特定情況下，的MoveFirst只是失敗，也許是因爲它的LDAP和不是來自數據庫的普通查詢。胸圍這種一勞永逸，你可以遍歷記錄時，再使用該集合，就像你喜歡的填充自己的收藏：

Dim oData, oField, tempArray 
Set oData = Server.CreateObject("Scripting.Dictionary") 
totalcnt = 0 
For Each oField In adoRecordset.Fields 
    oData.Add oField.Name, Array() 
Next 
Do until adoRecordset.EOF 
    For Each oField In adoRecordset.Fields 
     tempArray = oData(oField.Name) 
     ReDim Preserve tempArray(UBound(tempArray) + 1) 
     tempArray(UBound(tempArray)) = oField.Value 
     oData(oField.Name) = tempArray 
    Next 
    totalcnt = totalcnt + 1 
    adoRecordset.MoveNext 
Loop 
adoRecordset.Close 

Dim x 
If totalcnt>0 Then 
    Response.Write("found total of " & totalcnt & " records<br />") 
    For x=0 To totalcnt-1 
     name = oData("name")(x) 
     company = oData("company")(x) 
     physicalDeliveryOfficeName = oData("physicalDeliveryOfficeName")(x) 
     Response.Write name & "<br/>" 
     Response.Write company & "<br/>" 
     Response.Write physicalDeliveryOfficeName 
    Next 
End If 

Answer 2

如錯誤所示，如果記錄集中沒有記錄，則recordCount將失敗。

您可以在代碼塊之前對此進行測試。試試這個：

if not adoRecordset.EOF then 
    totalcnt = adoRecordset.recordCount 
    If totalcnt > 0 Then 
     ... 
     Do while not adoRecordset.EOF 
     ... 
     Loop 
    end if 
end if 

編輯：更正循環來測試不 adoRecordset.eof