access abfrage

Shadow · 11.03.2005, 14:13

Für solche Anwendungen habe ich bisher immer ein VBA-Programm in Access geschrieben, das die Textdatei einliest, verarbeitet und das Ergebnis in eine Access-Tabelle schreibt. Weil sich die eingebauten Import-Routinen bei großen Textdateien (>50000 Datensätze) immer verschluckt haben.

Das geht ungefähr so (natürlich muss das nach Bedarf angepasst werden):

Code:

dim Zeile as string, RS as recordset
set RS = currentdb.openrecordset("Tabelle")

Open "Pfad\Dateiname" For Input As #1
Do Until EOF(1)
  Line Input #1, Zeile
  RS.Addnew
  RS!DatenFeld1 = mid$(Zeile,x,y)
  RS.update
Loop
close #1
rs.close

11.03.2005, 14:13	#3
Shadow Master Registriert seit: 19.04.2000 Beiträge: 541	Für solche Anwendungen habe ich bisher immer ein VBA-Programm in Access geschrieben, das die Textdatei einliest, verarbeitet und das Ergebnis in eine Access-Tabelle schreibt. Weil sich die eingebauten Import-Routinen bei großen Textdateien (>50000 Datensätze) immer verschluckt haben. Das geht ungefähr so (natürlich muss das nach Bedarf angepasst werden): Code: dim Zeile as string, RS as recordset set RS = currentdb.openrecordset("Tabelle") Open "Pfad\Dateiname" For Input As #1 Do Until EOF(1) Line Input #1, Zeile RS.Addnew RS!DatenFeld1 = mid$(Zeile,x,y) RS.update Loop close #1 rs.close

Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)