Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Textdatei in Access importieren
Autor: Prian0815
Datum: 13.12.05 09:13
Probiers mal so: Dim F As Integer Dim N As Integer Dim sLine As String Dim sData() As String Dim i As Integer Dim rs As Recordset Dim db As Database Dim Path As String ' Datei öffnen Path = Application.CurrentProject.Path Path = Path & "\Test.csv" Set db = CurrentDb Set rs = db.OpenRecordset("Test") F = FreeFile: Open Path For Input As #F ' Datei zeilenweise einlesen While Not EOF(F) Line Input #F, sLine sData = Split(sLine, ";") rs.AddNew rs!SpalteA = sData(0) rs!SpalteB = sData(1) rs!SpalteC = sData(2) rs!SpalteD = sData(3) rs!SpalteE = sData(4) rs.Update Wend ' Dateien schließen rs.Close Set rs = Nothing Close Exit_Befehl10_Click: Exit Sub Err_Befehl10_Click: MsgBox Err.Description Resume Exit_Befehl10_Click Gruß Armin P.S.: always look on the bright side of Life!

Textdatei in Access importieren	920	Deathpatrol	09.12.05 08:12
Re: Textdatei in Access importieren	614	Prian0815	13.12.05 09:13

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