Semikolon-getrennte txt einlesen Access 2010

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen,

ich habe eine Textdatei mit x-Feldern, Kopfzeile und Daten. Die Felder sind durch ein „;“ getrennt

In meiner Datenbank habe ich eine Tabelle, ebenfalls mit x-Feldern.

Die Felder sind in der Tabelle und der txt-Datei gleich benannt.

Nun würde ich gerne zeilenweise die txt-Datei in meine Tabelle übernehmen…

Grundansatz:

Dim Zeile as String
dim db as DAO.Database
dim rs as DAO.Recordset

db = currentdb
rs = db.Openrecordset(„tbl_test“)

Open „C:\test.txt“ For Input As #1

Do While Not EOF(1)
Line Input Satz, Zeile
'Anfügen an Tabelle
rs.addnew

Nun der Teil wo es hackt:

Wie spreche ich das Feld aus der txt-Datei an?

also z.b. rs.Feld1 = txt.Feld1?

rs.update
Loop

close #1
set rs = nothing

Kann mir da vielleicht jemand weiterhelfen? :smiley: brüte da heute schon den ganzen Tag drüber.

Ich weiss es gibt andere Methoden txt-dateien zu importieren, aber es müsste auf diesem weg eigentlich auch gehen oder?

Danke und Gruss

#2

Tipp
Hallo Thats no all,

Access-Vba Kundige sind hier in diesem Brett sehr rar bis gar nicht da.
Ich würde an deiner Stelle im Access-Brett anfragen.
Bitte dazu den hiesigen Mod um Verschiebung.
Kannste heute machen oder am Montag.

Gruß
Reinhard

#3

Hallo,

ich habe eine Textdatei mit x-Feldern, Kopfzeile und Daten.
Die Felder sind durch ein „;“ getrennt

In meiner Datenbank habe ich eine Tabelle, ebenfalls mit
x-Feldern.

Die Felder sind in der Tabelle und der txt-Datei gleich
benannt.

Nun würde ich gerne zeilenweise die txt-Datei in meine Tabelle
übernehmen…

Grundansatz:

Dim Zeile as String
dim db as DAO.Database
dim rs as DAO.Recordset

db = currentdb
rs = db.Openrecordset(„tbl_test“)

Open „C:\test.txt“ For Input As #1

Do While Not EOF(1)
Line Input Satz, Zeile
'Anfügen an Tabelle
rs.addnew

Nun der Teil wo es hackt:

Wie spreche ich das Feld aus der txt-Datei an?

also z.b. rs.Feld1 = txt.Feld1?

Keine Ahnung, ob es anders noch besser geht, aber was klappen sollte:

Dim Arr() as String
Dim i as inreger

Arr = Split(Zeile, ";")
For i = Lbound(arr) to Ubound(arr)
 rs(i) = arr(i)
Next

Gruß Rainer

#4

Hallo,

wenn ich es richtig verstanden habe arbeitest du mit Access…
ich wuerde i.d.F. den komfortabeleren Weg ueber eine temporaere Tabelle gehen.

In Access eine Importspezifikation anlegen, eine Tabelle anlegen mit den entsprechenden Feldern der Textdatei, mittels TransferText die txt Datei in die temp. Tabelle schaufeln und dann diese Satz fuer Satz in die eigentlich Tabelle umschaufeln. Das macht vor allem dann Sinn wenn man bei der Schaufelei noch einige Ueberpruefungen oder Aenderungen machen will.

Tschau
Peter