You need to sign in to do that
Don't have an account?
I am getting the data but data is wrong...
queryString = "Select Id,Name,CreatedDate,CreatedById,Status__c,Service_Date__c,Hr__c from IS_TSR__c"
Dim done As Boolean = False
Try
qr = binding.query(queryString)
If qr.size > 0 Then
While Not done
'**********************************************
For i = 0 To qr.records.Length - 1
Dim tsr_data As sforce.IS_TSR__c
tsr_data = qr.records(i)
TSR_ID_arr.Add(tsr_data.Id)
TSR_NAME_arr.Add(tsr_data.Name)
TSR_CREATION_DATE_arr.Add(tsr_data.CreatedDate)
TSR_CREATED_BY_ID_arr.Add(tsr_data.CreatedById)
TSR_STATUS_arr.Add(tsr_data.Status__c)
TSR_RUN_DATE_arr.Add(tsr_data.Service_Date__c)
TSR_TIME_SPENT_arr.Add(tsr_data.Hr__c)
'*******************************************************************************************************
objWriter.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) & "|" & _
TSR_TIME_SPENT_arr.Item(i) & "|" & entryDt)
'*******************************************************************************************************
Next
If qr.done Then
done = True
Else
qr = binding.queryMore(qr.queryLocator)
End If
End While
Werewolf you are exactly right. As soon as I put writeline into separate loop I am getting the good data. Thank you very much for your help.