Re: CSV Datei in Access einlesen

Tech-Archive recommends: Fix windows errors by optimizing your registry

Hallo,

Dominik Distefano wrote:

> Ich habe eine csv Datei, die folgendermaßen aufgebaut ist:
>
> Datum1 Variablenname1 ; Wert1
> Datum1 Variablenname2 ; Wert2
> Datum1 Variablenname3 ; Wert3
> ...
> Datum2 Variablenname1 ; Wert1
> Datum2 Variablenname2 ; Wert2
> ...
>
> Es kommen an jedem Tag 64 Werte dazu....d.h. es gibt pro Datum 64 Werte
> die zu den 64 Variablen gehören. Die csv Datei wird jeden Tag um das
> aktuelle Datum erweitert.
>
> Zwischen dem Datum und dem Variablenname ist eine Leerstelle und
> zwischen Variablenname und Wert ein Semikolon.

Ich wuerde die Tabelle linken und dann per SQL ausgeben. Beispiel:

1. Lege dir eine Import-Spezifikation an (Datei - externe Daten
- Link, im Assistenten unten links "Weitere" usw.
2. In einem Modul eine neue Prozedur:

Sub DeineProzedur()

' Folgendes sei unterstellt:
' Die Daten sollen in Tabelle Tab2 ausgegeben werden.
' Die Importspec. heisst "LinkCSV" und hat Semikolon als Delimiter.
' Die Felder in Tab1 heissen: DatumVariable, Wert1,
' in Tab2: Datum1, Variable, Wert1
' Das Datum liegt im Format YYYYMMDD vor.

Dim strSelect As String
Dim db As DAO.Database

Set db = CurrentDB

DoCmd.TransferText acLinkDelim, "CSVSpec", "Tab1", "C:\Pfad\Deine.CSV"

strSelect = _
" INSERT INTO Tab2 ( Datum1, Variable, Wert1 ) " & _
" SELECT DateSerial( Left(DatumVariable, 4), " & _
" Mid(DatumVariable, 5, 2), " & _
" Right(DatumVariable, 7, 2) " & _
" ), " & _
" Mid(DatumVariable, 10), " & _
" Wert1 " & _
" FROM Tab1;"
db.Execute strSelect, dbFailOnError

' Link wieder entfernen:
strSelect = "DROP TABLE Tab1;"
db.Execute strSelect, dbFailOnError

Set db = Nothing

End Sub

(Luftcode)

Gruss - Peter

--
Ich beantworte keine Fragen per Email.
Mitglied im http://www.dbdev.org
FAQ: http://www.donkarl.com
.

Relevant Pages

  • Re: CSV Datei in Access einlesen
    ... Die csv Datei wird jeden Tag um das aktuelle Datum erweitert. ... zwischen Variablenname und Wert ein Semikolon. ... Open strKomplett For Input Lock Read As #nFreeFile ...
    (microsoft.public.de.access)
  • CSV Datei in Access einlesen
    ... Die csv Datei wird jeden Tag um das ... aktuelle Datum erweitert. ... zwischen Variablenname und Wert ein Semikolon. ...
    (microsoft.public.de.access)
  • MS Access bleibt beim =?ISO-8859-15?Q?=D6ffnen_eines_Formula?= =?ISO-8859-15?Q?rs_st
    ... Betriebssystemname Microsoft Windows XP Professional ... Pfad C:\WINDOWS\system32\msexcl40.dll ... Datei SQLSRV32.dll ... Datum 04.08.2004 14:00:00 ...
    (microsoft.public.de.access)
  • Re: Unterschiedlichkeit von Datein feststellen
    ... Mein erster Ansatz war es mit dem Datei ... Datum "last modified" zu versuchen. ... da Du auch vom abfragenden Programm aus nur auf die ... Wir hatten mal das Problem, feststellen zu müssen, wann ein FTP-Upload ...
    (de.comp.lang.java)
  • Re: DirectoryInfo.LastWriteTime mutiert falsches Datum
    ... Es geht darum nach dem Enzippen einer Datei, jeweils das Datum der Datei in ... aktuelle Datum. ... If myZipEntry.IsFile Then ... If myZipEntry.IsDirectory = True Then ...
    (microsoft.public.de.german.entwickler.dotnet.vb)