Hej!

jag har ett litet problem, försöker läsa in textfiler från ett antal olika textfiler till access. Lite Vba kan jag, mitt problem är att jag inte hittar hur jag skall öppna och läsa in textfilen.

Komunikationen med själva tabellen i Access vet jag inte heller hur det fungerar i Vba till Access.

Snälla någon, hjälp mig!

Mvh Fredde

Läsa en fil:
Public Sub readFile()
Dim fileNumber As Integer
Dim fileName As String
Dim inputRow As String

fileName = "c:\fil.txt"
fileNumber = FreeFile
Open fileName For Input As #fileNumber 'open for input betyder att du ska läsa filen
Do Until EOF(fileNumber)
Line Input #fileNumber, inputRow 'Här läser du rad för rad och lägger i variabeln inputrow

Loop
Close #fileNumber
End Sub

Kan du sql?
För att spara kan du använda tex Execute
dim sql as String

sql="INSERT INTO .... VALUES ......"
CurrentProject.Connection.Excecute sql eller CurrentDb.Execute strSql


Maria

Tack!

Om filen är en kommaseparerad fil eller dylikt så kan du använda metoden TransferText (ÖverförText) som finns inbyggd i VBA/Access. Se hjälpen.

Syntax:
expression.TransferText(TransferType, SpecificationName, TableName, FileName, HasFieldNames, HTMLTableName, CodePage)

Exempel:

DoCmd.TransferText acExportDelim, "Standard Output", "External Report", "C:\Txtfiles\April.doc"