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

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • Access Anwendung ohne Windowsanmeldung starten
  • lulle06.07.11 22:56
       └ RE: Access Anwendung ohne Windowsanmeldung start... Gunter Avenius07.07.11 07:21
  • access error 3709
  • Klymer06.07.11 13:51
  • Formularlayout
  • haller04.07.11 18:18
       └ RE: Formularlayout Karl Donaubauer04.07.11 19:21
          └ RE: Formularlayout haller04.07.11 22:05
  • Pass Through Acc03 auf MS SQL 2005
  • Rene02.07.11 21:55
       └ RE: Pass Through Acc03 auf MS SQL 2005 PeterDoering04.07.11 18:29
  • Access extrem langsam
  • Wolfgang27.06.11 08:39
       └ RE: Access extrem langsam PeterDoering27.06.11 10:56
          └ RE: Access extrem langsam Wolfgang27.06.11 12:00
             └ RE: Access extrem langsam PeterDoering27.06.11 16:22
                └ RE: Access extrem langsam Wolfgang27.06.11 17:22
                   └ RE: Access extrem langsam PeterDoering04.07.11 18:13
       └ RE: Access extrem langsam MrThahiti27.06.11 13:48
          └ RE: Access extrem langsam Wolfgang27.06.11 15:22
       └ RE: Access extrem langsam Harald28.06.11 17:36
  • Variation zu Problem Laufzeitfehler 3061 bzw. FAQ ...
  • Michael Huck30.06.11 00:37
       └ RE: Variation zu Problem Laufzeitfehler 3061 bzw... Karl Donaubauer30.06.11 00:54
          └ RE: Variation zu Problem Laufzeitfehler 3061 b... Michael Huck30.06.11 01:03
  • Textdatei importieren
  • Christian29.06.11 14:58
       └ RE: Textdatei importieren Karl Donaubauer29.06.11 16:17
  • VBA Access 2010
  • wega2128.06.11 17:58
       └ RE: VBA Access 2010 Karl Donaubauer28.06.11 18:25
          └ RE: VBA Access 2010 wega2128.06.11 22:28
  • IBAN BIC Lastschrift-Modul
  • tanzschulservice21.05.11 09:10
       └ RE: IBAN BIC Lastschrift-Modul tanzschulservice19.06.11 21:33
          └ RE: IBAN BIC Lastschrift-Modul PeterDoering27.06.11 11:56
  • Einzelversion von Access 2010 anders als in Office...
  • Clover23.06.11 15:49
       └ RE: Einzelversion von Access 2010 anders als in ... Karl Donaubauer23.06.11 18:03
  • Access 2010 Datenverlust
  • Chris21.06.11 17:16
       └ RE: Access 2010 Datenverlust Thomas Braun22.06.11 10:43
  • Formularansicht
  • USACAN17.06.11 14:39
       └ RE: Formularansicht Karl Donaubauer17.06.11 15:24
  • Länge eines geteiltes Formularsgeteilt
  • USACAN17.06.11 15:22
  • Datenbanken zusammenführen oder verknüpfen?
  • Kajetan14.06.11 20:59
       └ RE: Datenbanken zusammenführen oder verknüpfen? Karl Donaubauer15.06.11 16:48
  • Tabellenauflistung
  • USACAN10.06.11 11:06
       └ RE: Tabellenauflistung Karl Donaubauer10.06.11 11:30
          └ RE: Tabellenauflistung USACAN10.06.11 12:53
       └ RE: Tabellenauflistung Gunter Avenius10.06.11 11:36
          └ RE: Tabellenauflistung USACAN10.06.11 12:54
    Christian
    Gesendet: 29.06.11 14:58
    Betreff: Textdatei importieren


    Hallo,

    ich habe die Aufgabe eine größere Textdatei einzulesen und auf Tabellenfelder zu verteilen.
    Der einzele String (Zeile) besteht aus 179 Einzelteilen, die alle mit "|" getrennt sind.(Bsp: AAA|BBB|CCC|DDD...)
    Insgesamt umfasst die Textdatei ca. 45.000 Zeilen.

    Dazu verwende ich folgenden Code:

    ...
    Set Ziel = CurrentDb.OpenRecordset("BSAD Import", dbOpenTable)
    Open Me.strFilename For Input Lock Read As #nFree
    nZaehler = 0

    Do Until EOF(nFree)
    Line Input #nFree, strImport
    nZaehler = nZaehler + 1
    With Ziel
    .AddNew
    !DESRECKZ = TTS0(strImport, 1, "|"
    !NR = TTS0(strImport, 2, "|"
    !MANDT = TTS0(strImport, 3, "|"
    ...
    .Update
    End With
    strImport = ""
    Loop
    Ziel.Close
    Close #nFree
    Set Ziel = Nothing
    end sub

    Function TTS0(txt As String, pos As Integer, TrennZ As String)
    Dim A As Variant
    'Dim TTS As String
    A = Split(txt, TrennZ)
    If pos > 0 And pos - 1 <= UBound(A) Then
    TTS0 = A(pos - 1)
    If TTS0 = "" Then TTS0 = "000"
    Else
    TTS0 = "000"
    End If
    End Function

    Nun passiert fogendes:
    Die Routine arbeitet und bleibt aber nach kurzer Zeit an unterschiedlichen Stellen stehen. Mal nach 300 eingelesenen Zeilen, mal bei 500, etc...
    Es hilft nur noch ein "hartes" Beenden von Access.

    Was mache ich hier falsch, bzw. was kann die Ursache sein?

    Herzlichen Dank für Eure Hilfe bzw. Tipps...

    Gruß
    Chr.
    Top of the page Bottom of the page


    Seite: < 62 63 64 65 66 67 ... 68 69 70 >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)