Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Import einer Textdatei in eine Access - Tabelle
Autor: Kerstin
Datum: 11.11.01 20:59
Also, es ist ja so ich habe da eine Textdatei die ich in eine Tabelle einfügen soll. Ansich ist das ja ganz einfach mit Datei... Externe Daten... etc... aber ich soll vorher ein Formular machen wo ich dann nur einen Knopfdruck mache dann schnell die Datei noch auswähle und ich dann die Tabelle habe ohne das ich sagen muss das das Semikolon das Trennzeichen ist und das die erste Zeile dann die Spalten überschift ist. Empfohlen wurde mir schon diese Variante (mit welcher ich nicht klar komme und diese nicht funktioniert): dim strSpalten as string dim strWerte as string open datei for input as #1 line input #1,strSpalten strSpalten = replace(strSpalten,"meintrennzeichen",",") while not eof(1) line input #1, strWerte strWerte = replace(strWerte,"meintrennzeichen","','") datenbank.execute "insert into tabelle fields (" & strSpalten & ") values ('" & left(strWerte,len(strWerte)-2) & ")" wend close #1 Datei Ausschnitt: STRUKTUR;POSITION;ARTIKEL;NAME;MENGE;VBME;VERRECHNUNGSPREIS(EURO);MENGE*VBPREIS;MONTAGEEINZELKOSTEN;ART;BESCHAFFUNG;BEISTELLUNG 0;0;60757859;Bestückmodul;15;Stück;0,00;0,00;0,00;Master;F; 1;1;60757869;Stütze geschweißt;15;Stück;0,00;0,00;0,00;B;F; 1;15;60740856;Saugdüse kompl.;15;Stück;0,00;0,00;0;B;F; .2;150;24110557;Saugdüse;15;Stück;131,27;1969,05;0,00;B;E; .2;151;24110501;Kabel mit Steckdose;30;Stück;8,83;264,90;0,00;E;E; .2;152;24130574;L-Steckverschraubung;15;Stück;0,99;14,85;0,00;E;E; Danke für alle Zuschriften! Gruß Kerstin

Import einer Textdatei in eine Access - Tabelle

28

Kerstin

11.11.01 20:59

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen