ms access - get external data 1

[piti]

hi there
anybody here who knows how to start and control the import text wizzard in ms access2000?
or any other way how to import data from a text file into a table
thanx

 

[woyler]

Do you want to start it from within VB? If not open ACCESS, go to the File menu, > Get External Data > Import. If you want to open the file from within vb then access the table,this should get you started:

Dim cnConn as adodb.connection
dim sLine as String
Dim iFileNum as integer
Dim sSQL as string
dim vOne,vTwo,vThree as string

set cnConn = createobject("ADOdb.connection&quot
iFileNum = Freefile
Open "C:\yourfilepath" For Input As #iFileNum

cnConn.connectionstring = "Driver={Microsoft Access Driver (*.mdb)};Dbq="C:\YourPath";Uid=Admin;Pwd=;"
cnconn.open

Do Until EOF(iFileHeader)
Line Input #iFilenum, sLine
'set the variables to your file structure
vOne = Mid$(slIne,2,4)
'vtwo = something
'vthree = something


ssQL = "INSERT INTO TABLE(F1,F2F3,)VALUES('" & vOne & "' & "," & '" & vTwo & "' & "," & '" vThree & "' & &quot"

cnConn.execute ssql
Loop