查找SQL OleDbDataReader的長度

Question

我有一個SQL OleDbDataReader，將訪問時的數據帶入我的視覺基本前端。 是否可以找到讀者持有的記錄數？ 正如我想使用此值來結束循環。

下面是我的代碼。 它的這一部分用於查找數據以運行計算並將該值重新插入到訪問中。 我當前正在使用批處理方法，因為我遇到了超時錯誤，指出立即計算所有數據點以進行計算時，代碼花費的時間太長。 下面的代碼適用於第一個批處理，但是在第二個批處理中失敗，因為它無法查看閱讀器中的下一部分數據。 將來，數據在閱讀器中的順序可能不正確，因此一次查看所有閱讀器是最好的解決方案。 要解決此問題，我需要Do Until SearchCounter = the length of the reader 。 我嘗試將閱讀器的內容放入數組中以找到其長度，但是這非常耗時。 任何其他建議將非常歡迎。

For CalcParameterCounter = 0 To CalcParams.GetLength(0) - 1

                ParamQuery = "ID_PAR = " & Format(CalcParams(CalcParameterCounter), "0")
                conditions = ParamQuery ' & UploadQuery

                DatabaseConnection("SELECT " & FieldNames & " FROM " & tablename & " WHERE " & conditions, "Read Recordset"

                CalcDataRecordPointer = 0
                Do Until rdrOLEDB.Read = False
                    SearchCounter = 0
                    Do Until SearchCounter = CalcData.GetLength(1)
                        CalcDataRecordPointer = CalcDataRecordPointer + 1
                        If CalcDataRecordPointer = CalcData.GetLength(1) Then CalcDataRecordPointer = 0
                        Value = rdrOLEDB.Item(1)
                        If CDate(rdrOLEDB.Item(0).ToString()) = CDate(CalcData(0, CalcDataRecordPointer)) Then
                            match = True
                            CalcData(CalcParameterCounter + 1, CalcDataRecordPointer) = rdrOLEDB.Item(1).ToString()
                            Exit Do
                        Else
                            match = False
                        End If
                        SearchCounter = SearchCounter + 1
                    Loop
                Loop
                'Close:
                rdrOLEDB.Close()
                cnnOLEDB.Close()
            Next

Answer 1

使用reader.Read（）是已記錄的用於遍歷記錄集的方法。 我已經在VBA和ADO中進行了一些編程，其中通過不同的游標類型可以為您提供遍歷它們之前的記錄總數。 這確實造成了性能上的損失，這是因為我使用的是Excel，並且命令對象必須在讀取器啟動之前首先將記錄集放入內存中。

盡管OleDb是完全可以接受的數據庫，但是也許請看ADO執行相同的工作，該工作與SQL 2000-> 2008 R2兼容（從MDAC2.8開始）。 解決此問題的另一種方法是查看是否可以在SQL存儲過程中進行處理，然后將其輸出到代碼中。

祝好運。