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

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • 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
  • Unionsabfrage "unterschlägt doppel"
  • Dreho5201.02.19 12:20
       └ RE: Unionsabfrage "unterschlägt doppel" PeterDoering01.02.19 13:30
  • Probleme beim Erstellen von umsortierten Tabellen
  • Carsten Ganswig21.01.19 17:15
       └ RE: Probleme beim Erstellen von umsortierten Tab... Marzer22.01.19 09:15
          └ RE: Probleme beim Erstellen von umsortierten T... Carsten Ganswig22.01.19 10:15
             └ RE: Probleme beim Erstellen von umsortierten... Marzer23.01.19 08:10
       └ RE: Probleme beim Erstellen von umsortierten Tab... sks23.01.19 20:44
          └ RE: Probleme beim Erstellen von umsortierten T... Carsten Ganswig24.01.19 12:29
             └ RE: Probleme beim Erstellen von umsortierten... Carsten Ganswig24.01.19 13:09
             └ RE: Probleme beim Erstellen von umsortierten... sks24.01.19 13:25
          └ RE: Probleme beim Erstellen von umsortierten T... Carsten Ganswig24.01.19 13:49
             └ RE: Probleme beim Erstellen von umsortierten... sks24.01.19 14:00
                └ RE: Probleme beim Erstellen von umsortiert... Carsten Ganswig24.01.19 15:24
  • Access-Stammtisch Rhein-Main 2019
  • Martin Asal22.01.19 20:33
  • MS-SQL zu Access
  • Marzer03.12.18 18:38
       └ RE: MS-SQL zu Access PeterDoering03.12.18 19:15
          └ RE: MS-SQL zu Access Marzer04.12.18 13:54
             └ RE: MS-SQL zu Access PeterDoering05.12.18 13:34
       └ RE: MS-SQL zu Access Karl Donaubauer05.12.18 18:47
          └ RE: MS-SQL zu Access Marzer06.12.18 10:01
          └ RE: MS-SQL zu Access Marzer20.01.19 15:10
  • jro.CompactDatabase (ADO) löscht Tabellen
  • Jagger11.01.19 21:37
       └ RE: jro.CompactDatabase (ADO) löscht Tabellen Jagger12.01.19 12:19
          └ RE: jro.CompactDatabase (ADO) löscht Tabellen Kontex13.01.19 11:00
             └ RE: jro.CompactDatabase (ADO) löscht Tabellen sks14.01.19 12:32
             └ RE: jro.CompactDatabase (ADO) löscht Tabellen PeterDoering17.01.19 15:13
                └ RE: jro.CompactDatabase (ADO) löscht Tabellen sks17.01.19 20:12
  • Web Control
  • Marzer17.01.19 10:57
  • Microsoft Office Desktop Apps
  • sks11.01.19 19:40
  • Union Query
  • Marzer08.01.19 22:34
       └ RE: Union Query PeterDoering09.01.19 01:04
          └ RE: Union Query Marzer09.01.19 17:46
       └ RE: Union Query sks09.01.19 15:06
          └ RE: Union Query Marzer09.01.19 17:36
             └ RE: Union Query sks11.01.19 19:20
  • Access Stammtisch München am 10.01.2019 (Do)
  • StefanWirrer08.01.19 14:00
  • Umstellung 32-Bit-Anwendung auf 64-Bit
  • waholin31.12.18 16:56
       └ RE: Umstellung 32-Bit-Anwendung auf 64-Bit PeterDoering31.12.18 17:45
          └ RE: Umstellung 32-Bit-Anwendung auf 64-Bit waholin01.01.19 12:03
  • Angebliches Verweisproblem
  • Matthias31.12.18 18:15
  • Access Formular bringt die Daten durcheinander
  • Strubli19.12.18 23:54
       └ RE: Access Formular bringt die Daten durcheinand... PeterDoering20.12.18 12:01
          └ RE: Access Formular bringt die Daten durcheina... Strubli20.12.18 17:09
             └ RE: Access Formular bringt die Daten durchei... PeterDoering20.12.18 17:37
                └ RE: Access Formular bringt die Daten durch... Strubli20.12.18 19:22
             └ RE: Access Formular bringt die Daten durchei... Strubli20.12.18 23:13
                └ RE: Access Formular bringt die Daten durch... Strubli21.12.18 01:04
                   └ RE: Access Formular bringt die Daten dur... PeterDoering21.12.18 22:08
  • Die nächste Hiobsbotschaft
  • Matthias17.12.18 20:02
       └ RE: Die nächste Hiobsbotschaft sks19.12.18 12:38
    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: < 18 19 20 21 22 23 ... 24 25 26 27 28 29 30 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)