Import Text (Delimited) File Into Table Using VB5
It can be troublesome to convert a text file into an Access database. It
takes a lot of time to open the file for sequential access and create new
records using the AddNew method. Instead, use the text ISAM driver and SQL
to do the job for you. First, create a SCHEMA.INI file for the text file and
place it in the same directory as the text file. Use this code to convert
the database. Once done, you only need to create the indexes. You can use
this method to convert text files in excess of 100,000 records in just a few
seconds.;
Dim db As Database, tbl as TableDef
Set db = DBEngine.CreateDatabase(App.Path & "\mymdb.mdb", dbLangGeneral,
dbVersion_0)
Set tbl = db.CreateTableDef("Temp")
tbl.Connect = "Text;database=c:\vbpj\data"
tbl.SourceTableName = "Customer#txt"
db.TableDefs.Append tbl
db.Execute "Select Temp.* into NewTable from Temp"
db.TableDefs.Delete tbl.Name
db.Close
Set tbl = Nothing
Set db = Nothing
Quote:
>Hi.
>How can I import a text (delimited) file into a table using VB5.
>TIA
>Rita
