Ich habe eine Textdatei, die wie im folgenden Beispiel strukturiert ist:
Vorname: Peter
Name: Mustermann
Beruf: Grafiker
Mitglied seit: 01.03.1999
…
Die Daten möchte ich an eine bestehende ACCESS-Tabelle anhängen, die ebenfalls die Felder Vorname, Name, Beruf, Mitglied seit, … enthält.
Einzelne Feldnamen können in der Textdatei auch fehlen, Beispiel:
Vorname: Peter
Name: Mustermann
Mitglied seit: 01.03.1999
…
Trotz des fehlenden Feldes „Beruf“, sollen die Daten korrekt zugeordnet und eingelesen werden. Die Daten müssen also an dem vorangestellten Feldnamen erkannt werden.
Wer kennt eine Lösung (Makro, integrierte ACCESS97-Funktion), mit der eine solche Datei per „Knopfdruck“ eingelesen werden kann?
Da gibt es nichts Eingebautes…
du musst also den Import selber programmieren, etwa so:
Dim DB As DAO.database, RS as DAO.Recordset, Tmp, First as boolean
Dim Lin as String, FldName as String, FldWert as String
First = True
Set DB = Currentdb
Set RS = RS.openrecordset("MeineTabelle",dbOpendynaset)
Open "meineDatei.txt" for input as #1
Do while not eof(1)
Line input #1, Lin
Tmp = Split(Lin,":")
If UBound(Tmp) \> 0 then
FldName = Trim(Tmp(0))
FldWert = Trim(Tmp(1))
If FldName = "Vorname" then
if not First then RS.Update
RS.Addnew
First = False
end if
RS(FldName) = FldWert
end if
Loop
If Not First then RS.Update
RS.Close
Close #1
Wobei ich mal angenommen habe, dass der Datensatzwechsel durch das Feld „Vorname“ angezeigt wird - „Vorname“ also immer existiert…