You need to sign in to do that
Don't have an account?
Ahlomon
TSR_ID_arr.Add(tsr_data.Id.ToString)
TSR_NAME_arr.Add(tsr_data.Name.ToString)
TSR_CREATION_DATE_arr.Add(tsr_data.CreatedDate.ToString)
TSR_CREATED_BY_ID_arr.Add(tsr_data.CreatedById.ToString)
TSR_STATUS_arr.Add(tsr_data.Status__c.ToString)
TSR_RUN_DATE_arr.Add(tsr_data.Service_Date__c.ToString)
TSR_TIME_SPENT_arr.Add(tsr_data.Hr__c.ToString)
How to get more than 2000 rows back in my function?
I know my SQL should return about 3500 rows back, but the code below returns only 2000 rows back.
What I have to do to get all 3500 rows back?
================================================================
Private Function GetTSR() As Boolean
Dim qr As sforce.QueryResult
Dim queryString As String
queryString = "Select Id,Name,CreatedDate,CreatedById,Status__c,Service_Date__c,Hr__c from IS_TSR__c"
Dim qr As sforce.QueryResult
Dim queryString As String
queryString = "Select Id,Name,CreatedDate,CreatedById,Status__c,Service_Date__c,Hr__c from IS_TSR__c"
Try
qr = binding.query(queryString)
If Not qr.records Is Nothing Then
Dim i As Integer
qr = binding.query(queryString)
If Not qr.records Is Nothing Then
Dim i As Integer
For i = 0 To qr.records.Length - 1
Dim tsr_data As sforce.IS_TSR__c
tsr_data = qr.records(i)
Dim tsr_data As sforce.IS_TSR__c
tsr_data = qr.records(i)
TSR_ID_arr.Add(tsr_data.Id.ToString)
TSR_NAME_arr.Add(tsr_data.Name.ToString)
TSR_CREATION_DATE_arr.Add(tsr_data.CreatedDate.ToString)
TSR_CREATED_BY_ID_arr.Add(tsr_data.CreatedById.ToString)
TSR_STATUS_arr.Add(tsr_data.Status__c.ToString)
TSR_RUN_DATE_arr.Add(tsr_data.Service_Date__c.ToString)
TSR_TIME_SPENT_arr.Add(tsr_data.Hr__c.ToString)
'*******************************************************************************************************
Console.WriteLine(TSR_ID_arr.Item(i).ToString & "|" & TSR_NAME_arr.Item(i).ToString & "|" & _
TSR_CREATION_DATE_arr.Item(i).ToString & "|" & TSR_CREATED_BY_ID_arr.Item(i).ToString & "|" & _
TSR_STATUS_arr.Item(i).ToString & "|" & TSR_RUN_DATE_arr.Item(i).ToString & "|" & _
TSR_TIME_SPENT_arr.Item(i).ToString & "|" & entryDt)
'*******************************************************************************************************
Console.WriteLine(TSR_ID_arr.Item(i).ToString & "|" & TSR_NAME_arr.Item(i).ToString & "|" & _
TSR_CREATION_DATE_arr.Item(i).ToString & "|" & TSR_CREATED_BY_ID_arr.Item(i).ToString & "|" & _
TSR_STATUS_arr.Item(i).ToString & "|" & TSR_RUN_DATE_arr.Item(i).ToString & "|" & _
TSR_TIME_SPENT_arr.Item(i).ToString & "|" & entryDt)
'*******************************************************************************************************
Next
GetTSR = True
Console.WriteLine("Finished ==> GetTSRData")
Else
GetTSR = False
Console.WriteLine("Finished ==> GetTSRData")
Else
GetTSR = False
End If
Return GetTSR
Catch ex As Exception
strMessage = strMessage & vbCrLf & ex.Message & vbCrLf & ex.StackTrace & "<BR>"
Finally
Catch ex As Exception
strMessage = strMessage & vbCrLf & ex.Message & vbCrLf & ex.StackTrace & "<BR>"
Finally
End Try
End Function
End Function
werewolf
2000 is the maximum size for a single query batch. Look in the API docs for the queryMore function. That's what you need.