🚀 go-pugleaf

I have a routine that will import this.  You need to open the text
file and read it line by line, then append the line to your database.
Here's my basic function:

Function ImportFile()

Dim intImportFile As Integer
Dim strImportFile As String
Dim strTableName As String
Dim strInputLine As String
Dim dbs As Database
Dim rst As Recordset

strImportFile = "c:\temp\temp.txt"
strTableName = "TempTable"

Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(strTableName, dbOpenDynaset)

intImportFile = FreeFile
Open strImportFile For Input As #intImportFile

Do Until EOF(intImportFile)
    Line Input #intImportFile, strInputLine
    rst.AddNew
    rst!Line1 = strInputLine
    Line Input #intImportFile, strInputLine
    rst!Line2 = strInputLine
    rst.Update
Loop

Close intImportFile
End Function


You need to add error checking when you're doing the Line Input
statements and test with your file to see if there are any extra lines
at the end.  Also, if there's a blank line between records, you need
to do an extra Line Input statement to get rid of that.

The table "TempTable" has two fields, "Line1" and "Line2".

If you have any questions, please respond.




>On Tue, 05 Jan 1999 11:35:41 -0800, john hayes <aikosys@earthlink.net>
>wrote:
>
>>I need to import a text data file which has 2 lines per record, into
>>Access.  I have tried the Import Wizard, but it does not seem to support
>>multi-line records.  I see that you can save/load a format spec 
>>for a file, but I didn't see if it saves the spec in a file that
>>I can manipulate (or create from scratch) - it seems to save the spec
>>internally?  Also, I don't know the syntax requirements for such a
>>spec file (not in the book).
>>
>>Can anyone tell me how to tell Access that it needs to load multi-line
>>records from a text file?  BTW - editing the text file to make single-
>>line records is not an option, since the data file is created that
>>way by a canned vendor module and will have to be loaded periodically
>>on-going.
>>
>>Also, is there a way to import without going through the Wizard?
>>
>>Thanks!
>>
>>John Hayes
>>aikosys@earthlink.net
>>
>

Richard L. Stone
Healthcare-ID
rstone@fenris-inc.com