ADO read Text File

[marduk2002]

Hi,
I am using the code below to read a text file .
The problem is that field 40 contains
"5260318470123951"
However when this is read into the Recordset it is read in as
5.26031847012395E+15

Any Ideas on what is going on ?, I need the record to be read exactly as it is in the text file

Thanks


''''''''''code''''''''''''''''
Private Sub getrsValue()
Dim cnSample As New ADODB.Connection
Dim rsSample As New ADODB.Recordset

cnSample.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" _
& "Dbq= C:\;" _
& "Extensions=asc,csv,tab,txt;HDR=NO;" _
& "Persist Security Info=False"

rsSample.Open "Select * From Feed1.txt", cnSample, 3, 3, adCmdText
Do While rsSample.EOF <> True

MsgBox rsSample(40)
rsSample.MoveNext
Loop
End Sub

 

[ddc821]

Are you sure it's being read in as 5.26031847012395E+15? Perhaps it's being read in correctly and VB is incorrectly converting to a numeric when you're displaying the value in your MsgBox call?? Try changing your code to
MsgBox rsSample(CSTR(40)) and see what happens.

 

[marduk2002]

Hi,
Yes i tried that and it still did not work.

If the number in the field has a length of 15 the number works fine, If the length is 16 or greater then it gets converted

Tnx for any help

Paul