Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Recordset aus csv-Datei zur Access-Tabelle
Autor: Prian0815
Datum: 10.02.06 10:00
Also ich hab das ganze mal so gelöst: 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 ‘CSV liegt im selben Ordner wie die mdb 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!

Recordset aus csv-Datei zur Access-Tabelle	1.420	monkeystar	10.02.06 08:13
Re: Recordset aus csv-Datei zur Access-Tabelle	1.001	Prian0815	10.02.06 08:31
Re: Recordset aus csv-Datei zur Access-Tabelle	997	monkeystar	10.02.06 08:46
Re: Recordset aus csv-Datei zur Access-Tabelle	1.020	Prian0815	10.02.06 10:00
Re: Recordset aus csv-Datei zur Access-Tabelle	957	monkeystar	10.02.06 11:04
Re: Recordset aus csv-Datei zur Access-Tabelle	995	monkeystar	10.02.06 19:28
Re: Recordset aus csv-Datei zur Access-Tabelle	969	wb-soft	10.02.06 20: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