Suche | Statistiken | Benutzerliste | Access-FAQ | Datenschutz Foren
donkarl Forum
donkarl Forum ->  Themen -> Access -> Diskussion ansehen

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • nur ein Datensatz wird aktualisiert
  • Dreho5227.02.19 14:53
       └ RE: nur ein Datensatz wird aktualisiert Karl Donaubauer27.02.19 18:15
          └ RE: nur ein Datensatz wird aktualisiert Dreho5227.02.19 18:49
             └ RE: nur ein Datensatz wird aktualisiert Karl Donaubauer28.02.19 19:23
  • Neues Verzeichnis anlagen
  • Dreho5224.02.19 12:36
       └ RE: Neues Verzeichnis anlagen Karl Donaubauer25.02.19 09:11
       └ RE: Neues Verzeichnis anlagen sks26.02.19 09:23
  • Dokumentenpfad
  • Dreho5223.02.19 12:03
       └ RE: Dokumentenpfad PeterDoering23.02.19 23:27
  • update aus csv Datei
  • Greiff18.02.19 13:44
       └ RE: update aus csv Datei PeterDoering18.02.19 14:11
          └ RE: update aus csv Datei Greiff18.02.19 14:25
             └ RE: update aus csv Datei Greiff18.02.19 14:27
             └ RE: update aus csv Datei PeterDoering22.02.19 11:50
                └ RE: update aus csv Datei Greiff23.02.19 01:17
  • Public String in FormularTitel einfügen
  • Dreho5217.02.19 12:53
       └ RE: Public String in FormularTitel einfügen Marzer18.02.19 05:46
          └ RE: Public String in FormularTitel einfügen PeterDoering18.02.19 14:09
             └ RE: Public String in FormularTitel einfügen Marzer19.02.19 08:24
                └ RE: Public String in FormularTitel einfügen PeterDoering22.02.19 15:40
  • Wenn Wert = 1 im UFO dann Bericht Druck
  • Reiti201919.02.19 13:30
       └ RE: Wenn Wert = 1 im UFO dann Bericht Druck Marzer20.02.19 09:07
          └ RE: Wenn Wert = 1 im UFO dann Bericht Druck Reiti201920.02.19 17:40
             └ RE: Wenn Wert = 1 im UFO dann Bericht Druck Marzer22.02.19 09:49
  • DatumsFeld in Endlosformular aktualiseren
  • Dreho5220.02.19 12:19
       └ RE: DatumsFeld in Endlosformular aktualiseren Marzer20.02.19 14:07
  • Filterfehler abfangen
  • Dreho5219.02.19 12:13
       └ RE: Filterfehler abfangen Marzer20.02.19 08:51
  • Konstanten
  • Dreho5213.02.19 12:16
       └ RE: Konstanten PeterDoering13.02.19 15:25
       └ RE: Konstanten Karl Donaubauer13.02.19 21:22
  • Einladung zum 34. Access-Stammtisch Hannover am 27...
  • KlausWerther13.02.19 12:26
  • Datensatz löschen
  • Dreho5211.02.19 10:39
       └ RE: Datensatz löschen PeterDoering11.02.19 11:46
       └ RE: Datensatz löschen Dreho5211.02.19 13:22
          └ RE: Datensatz löschen Marzer11.02.19 15:20
             └ RE: Datensatz löschen PeterDoering12.02.19 16:12
  • Access Stammtisch München am 14.02.2019 (Do)
  • StefanWirrer12.02.19 13:16
  • Nur auf Datensatzmarkier springen erlaubt
  • Dreho5210.02.19 16:54
       └ RE: Nur auf Datensatzmarkier springen erlaubt PeterDoering10.02.19 20:00
  • Report mit Dubletten
  • Dreho5201.02.19 15:42
       └ RE: Report mit Dubletten PeterDoering08.02.19 12:39
          └ RE: Report mit Dubletten Dreho5210.02.19 12:27
  • txt aus Unix-System in Access-Tabelle einlesen
  • Carsten Ganswig21.01.19 16:59
       └ RE: txt aus Unix-System in Access-Tabelle einles... PeterDoering24.01.19 15:20
          └ RE: txt aus Unix-System in Access-Tabelle einl... Carsten Ganswig24.01.19 15:34
             └ RE: txt aus Unix-System in Access-Tabelle ei... PeterDoering24.01.19 15:54
                └ RE: txt aus Unix-System in Access-Tabelle ... Carsten Ganswig24.01.19 16:11
                   └ RE: txt aus Unix-System in Access-Tabell... Carsten Ganswig25.01.19 11:21
                      └ RE: txt aus Unix-System in Access-Tabe... PeterDoering26.01.19 12:27
                         └ RE: txt aus Unix-System in Access-Ta... Carsten Ganswig26.01.19 12:52
                            └ RE: txt aus Unix-System in Acce... Carsten Ganswig28.01.19 08:26
                               └ RE: txt aus Unix-System in Acces... PeterDoering01.02.19 13:48
                                  └ RE: txt aus Unix-System in Acc... Carsten Ganswig02.02.19 09:37
                                     └ RE: txt aus Unix-System in A... PeterDoering08.02.19 11:25
    Carsten Ganswig
    Gesendet: 28.01.19 08:26
    Betreff: RE: txt aus Unix-System in Access-Tabelle einlesen


    Member

    Beiträge: 16

    Moin Peter,
    hier der Code zum Einlesen der als Tabelle verknüpften Textdatei:

    rs.Open "[Textfile]", CurrentProject.Connection, adOpenKeyset, adLockOptimistic 'auslesen
    rs2.Open "[Daten]", CurrentProject.Connection, adOpenKeyset, adLockOptimistic 'einlesen
    rs.MoveFirst

    'je nach Version liegt unterschiedliche Datensatzstruktur vor
    Select Case rs.Fields(0)
    Case "V010"
    vOffSet_PZN = 4
    Case "V200"
    vOffSet_PZN = 5
    End Select

    On Error Resume Next

    je Textzeile sind 9 Einträge PZN möglich, werden aber nicht alle genutzt
    deshalb Umbruch, so dass für jede PZN ein separater Datensatz angelegt wird
    dazu max Anzahl von PZNi in Spalten der verlinkten Textdatei bestimmen
    Dim Tabelle As dao.TableDef, db As Database, typ, j
    Set db = CurrentDb
    Set Tabelle = db.TableDefs("textfile")
    On Error Resume Next
    For i = 1 To 10
    typ = Tabelle.Fields("PZN" & i).Type
    If Err.Number = 3265 Then
    j = i - 1: Err.Clear: Exit For
    End If
    Next
    Set Tabelle = Nothing: Set db = Nothing

    Dim z As Long 'zählt alle PZNs, soviele DS muss Daten am Ende enthalten!
    z = 0
    Do Until rs.EOF
    For i = 1 To j
    If IsNull(rs.Fields("pzn" & i)) = False Then
    z = z + 1
    rs2.AddNew
    rs2.Update "VOID", rs.Fields(6)
    rs2.Update "Nr", CStr(i)
    rs2.Update "Quartal", rs.Fields(3)
    Die wichtigsten Felder werden direkt geupdated, damit der Datensatz angelegt ist, sollten im weiteren fehlerhafte Werte auftreten

    rs2.Fields("bsnr9") = rs.Fields(2)
    rs2.Fields("lanr9") = rs.Fields(1)
    rs2.Fields("VO-Datum") = rs.Fields(7)

    rs2.Fields("EGKVNR") = rs.Fields(8)
    rs2.Fields("GebDat") = rs.Fields(9)

    rs2.Fields("PZN") = rs.Fields(13 + (i - 1) * vOffSet_PZN)

    rs2.Fields("VOF") = rs.Fields(14 + (i - 1) * vOffSet_PZN)
    rs2.Fields("Netto") = rs.Fields(16 + (i - 1) * vOffSet_PZN)

    rs2.Fields("valid") = 0

    Else
    Exit For
    End If
    Next
    rs.MoveNext
    Loop

    Gruß
    Top of the page Bottom of the page


    Seite: < 20 21 22 23 24 25 ... 26 27 28 29 30 31 32 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)