Help needed using VB 6.0, to read .txt, .CVS file types - Oracle

[MavrickStl]

I am trying to use this code to Read .txt or .cvs files via VB6.0 and save the data into variables. And Later I want to import this data into an Oracle database. I have not written the Oracle part yet but my code is having problem reading the data from .csv , .txt files. Urgent help needed. csv and txt files contain multiple lines of data. Mavrick

I am getting this error when I run the code " Compile error:
User_defined type not defined"

Private Sub Command1_Click()
Dim FSO As New FileSystemObject
Dim tsInput As TextStream
Dim varData As Variant

Set tsInput = FSO.OpenTextFile("C:\TransgeneImpact\Test.csv", ForReading)

varData = Split(tsInput.ReadAll, ",&quot

End Sub

 

[JWhyte]

Mavrick, you need to add a reference to 'Microsoft Scripting Runtime' in Project \References.
John Whyte
jwhyte@skipton.co.uk

 

[JWhyte]

Mavrick,

I also forgot to mention, if you want to read through multiple lines, the following code might help:

' Assume data is like following:
' Mavrick,1,22/02/2001

Dim FSO As New FileSystemObject
Dim tsInput As TextStream
dim varData As Variant

Set tsInput = FSO.OpenTextFile("filename",ForReading)

While Not tsInput.AtEndOfStream
   varData = Split(tsInput.ReadLine,",")
   Debug.Print varData(0) & space(1) & varData(1) & space(1) & varData(2)

  ' Executing this code would display Mavrick 1 22/02/2001   in the immediate window.

Wend

tsInput.Close

Give it a try and see. I think it should work for you. John Whyte
jwhyte@skipton.co.uk