Office: (Office 2003) Textdatei in tab einlesen (aktualisieren)

Helfe beim Thema Textdatei in tab einlesen (aktualisieren) in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Hallo Josef, Danke, hattest recht hatte mir den Code noch mals angeschaut. Mittlerweile bin ich soweit denke ich, er liest die Textdatei aus. Nur bei... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von Erich290607, 24. April 2011.

Seite 2 von 4

ERICH290607

Erich290607

Textdatei in tab einlesen (aktualisieren)

Hallo Josef,

Danke, hattest recht hatte mir den Code noch mals angeschaut. Mittlerweile
bin ich soweit denke ich, er liest die Textdatei aus. Nur bei jedem Click
fügt er mir 4 Datensätze an.

Ist mein Code noch nicht soweit für das Original? was muss noch zur Sicherheit passieren?

Code:

Sub test()
'--------------------------------------------------------------
Dim strSQL As String, dbs As DAO.Database, rst As DAO.Recordset
Dim strsq As String
Dim tmp As Long
Dim IngTmp As Long
Dim db As DAO.Database
Set db = CurrentDb
Dim sPfad As String 'Pfadangabe Textdatei
Dim strTag As String

strTag = DMax("StörDatum", "tblStoerungen")

sPfad = "D:\Schichtbuch\"

'Daten aus Textdatei anfügen ----------------------------------
strSQL = "SELECT * " & _
" FROM [Text;DSN=txtDaten;FMT=Delimited;HDR=yes;IMEX=2;CharacterSet=850;DATABASE=D:\Schichtbuch\].SB_Daten.txt " & _
" WHERE StörDatum >=" & fcDatSQL(strTag)

Debug.Print strSQL
Debug.Print strTag

Set rst = CurrentDb.OpenRecordset(strSQL)

Do Until rst.EOF = True

'---------------------------------------------
'Die so ausgewählten Daten ---
'in tblTEMP wegschreiben, ---
'dort werden die Daten weiterverarbeitet ---
'---------------------------------------------
'StörDatum; ---------------- 1
'Eintragszeit; ---------------- 2
'SchichtartID_F; ---------------- 3
'Halle; ---------------- 4
'MaschinenID_F; ---------------- 5
'Arbeitsfolge; ---------------- 6
'BereichID_F; ---------------- 7
'StoerZeitM; ---------------- 8
'Häufigkeit; ---------------- 9
'MitarbeiterID_F; ---------------- 10
'DS_ID; ---------------- 11
'Stoergrund; ---------------- 12
'BemerkungMaßnahme ---------------- 13
'---------------------------------------------
db.Execute "INSERT INTO tblStoerungen (StörDatum, Eintragszeit, SchichtartID_F, MStandort, MaschinenID_F, ArbeitsfolgeID_F, BereichID_F, StoerZeitM, Häufigkeit, MitarbeiterID_F, DS_ID, Stoergrund, BemerkungMaßnahme) " & _
" VALUES(" & "'" & rst("StörDatum") & "'" & _
", '" & Nz(rst("Eintragszeit"), "") & "'" & _
", " & Nz(rst("SchichtartID_F"), 0) & _
", " & Nz(rst("Halle"), 0) & _
", " & Nz(rst("MaschinenID_F"), 0) & _
", " & Nz(rst("Arbeitsfolge"), 0) & _
", " & Nz(rst("BereichID_F"), 0) & _
", " & Nz(rst("StoerZeitM"), 0) & _
", " & Nz(rst("Häufigkeit"), 0) & _
", " & Nz(rst("MitarbeiterID_F"), 0) & _
", " & Nz(rst("DS_ID"), 0) & _
", '" & Nz(rst("Stoergrund"), "") & "'" & _
", '" & Nz(rst("BemerkungMaßnahme"), "") & "'" & ")"

rst.MoveNext

Loop

rst.Close
Set rst = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Erich290607, 27. April 2011

#16
JOSEF P.

Josef P.

Hallo!

hatte mir den Code noch mals angeschaut.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Problemumgehung bei ' im angefügten Text (z. B. über Nz(rst("BemerkungMaßnahme"), "")) sehe ich aber trotzdem nicht im neuen Code.

mfg
Josef

Josef P., 28. April 2011

#17
ERICH290607

Erich290607

doch, habe ich gemacht

'" & Nz(rst("BemerkungMaßnahme"), "") & "'"

PS wie kann ich das automatisieren, bzw. prüfen das die Daten bereits aktuell sind und die Datensätze nicht doppelt eingelesen werden?

wenn ich die txt Datei heute bekomme, sollen die aktuellen Daten > Max Datum tblStoerungen angefügt werden

Erich290607, 28. April 2011

#18
ARNE DIECKMANN

Arne Dieckmann

Textdatei in tab einlesen (aktualisieren)

sollen die aktuellen Daten > Max Datum tblStoerungen angefügt werden
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dann frage hier:
Code:

" WHERE StörDatum >=" & fcDatSQL(strTag)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

anders ab.

Arne Dieckmann, 28. April 2011

#19
ERICH290607

Erich290607

Hallo Arne,

Danke, habe schon wieder ein neues Problem, was in meiner Test DB funktioniert
funktioniert nun in der BE Version nicht mehr?

keine Meldung

Erich290607, 28. April 2011

#20
ARNE DIECKMANN

Arne Dieckmann

Dann spekuliere ich mal:
Falls Schlüsselverletzungen o.ä. bei db.execute autreten, wirst du das so nicht herausbekommen - dafür gibt es den Parameter dbFailOnError
Ansonsten empfehle ich Debug.Print, um herauszufinden, warum keine Inserts vorgenommen werden.

Arne Dieckmann, 28. April 2011

#21
MICHA_DU

Micha_DU

was in meiner Test DB funktioniert
funktioniert nun in der BE Version nicht mehr?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und was funktioniert da nicht? Was ist deine BE Version?

Micha_DU, 28. April 2011

#22
ERICH290607

Erich290607

Textdatei in tab einlesen (aktualisieren)

Hallo Micha,

Nein an der version lag es nicht.

Arne, hatte schon richtig erkannt bzw. getippt.

Schlüsselverletzungen waren die Ursache, bzw. falsche Elemente in Insert Into
Anweisung, mit On Error hatte ich die Meldung blockiert.

Danke euch!

Frage:

ist nun der Code Sauber, wie wenn keine Daten vorhanden sind dh. die DB als leer weitergegeben wird?

Code:

'--------------------------------------------------------------
Dim strSQL As String, dbs As DAO.Database, rst As DAO.Recordset
Dim db As DAO.Database
Dim strTag As String
Dim SB_Importieren As String
SB_Importieren = "ImportSB"
Dim strStoergrund As String
Dim strBemerkung As String

'Datum der letzten Aktualisierung ermitteln
strTag = DMax("StörDatum", "tblStoerungen")
'Frage Datentabelle aktualisieren
If MsgBox("Heute ist der: " & Date & vbCrLf & _
"---------------" & vbCrLf & _
"letzte Aktualisierung am: " & strTag & vbCrLf & _
"Datenbank aktualisieren ", vbQuestion + vbYesNo, "Datenbank") = vbYes Then

'Daten aus Textdatei anfügen ----------------------------------
strSQL = "SELECT *" & _
" FROM [Text;DSN=ImportSB;FMT=Delimited;HDR=yes;IMEX=2;CharacterSet=850;DATABASE=D:\100_Projekte\SB_TPM\].SB_Daten.txt " & _
" WHERE StörDatum >" & fcDatSQL(strTag)

Set rst = CurrentDb.OpenRecordset(strSQL)
Set db = CurrentDb

Do Until rst.EOF = True

'On Error Resume Next
strStoergrund = Nz(rst!stoergrund, Null)
strBemerkung = Nz(rst!BemerkungMaßnahme, Null)

db.Execute "INSERT INTO tblStoerungen (StörDatum, Eintragszeit, SchichtartID_F, MStandort, MaschinenID_F, ArbeitsfolgeID_F, BereichID_F, StoerZeitM, Häufigkeit, MitarbeiterID_F, DS_ID, Stoergrund, BemerkungMaßnahme) " & _
" VALUES(" & "'" & rst("StörDatum") & "'" & _
", '" & Nz(rst("Eintragszeit"), "") & "'" & _
", " & Nz(rst("SchichtartID_F"), 0) & _
", " & Nz(rst("MStandort"), 0) & _
", " & Nz(rst("MaschinenID_F"), 0) & _
", " & Nz(rst("ArbeitsfolgeID_F"), 0) & _
", " & Nz(rst("BereichID_F"), 0) & _
", " & Nz(rst("StoerZeitM"), 0) & _
", " & Nz(rst("Häufigkeit"), 0) & _
", " & Nz(rst("MitarbeiterID_F"), 0) & _
", " & Nz(rst("DS_ID"), 0) & _
", '" & Nz(strStoergrund, Null) & "'" & _
", '" & Nz(strBemerkung, Null) & "'" & ")"

Debug.Print rst!StörDatum & " ]" & strStoergrund & "/" & strBemerkung

rst.MoveNext

Loop

rst.Close
Set rst = Nothing

Else

MsgBox "Datenbank wurde am " & " :" & strTag & "", vbInformation, "TPM-Schichtbuch"

End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Erich290607, 28. April 2011

#23
TOAST78

Toast78

Da fehlt ein dbFailOnError bei der Execute-Anweisung. Und wenn mich nicht alles täuscht ist ö unter SQL ein Sonderzeichen. Insofern sollte StörDatum beim db.Execute in eckige Klammern "[]" eingeschlossen werden.

Toast78, 28. April 2011

#24
MICHA_DU

Micha_DU

\@Erich:
Macht der Code das was er soll? Wenn ja, scheint doch alles in Ordnung zu sein. Über die Weitergabe der DB kannst doch nur du allein entscheiden... zumal ja nicht nur der gezeigte Code hier enthalten sein wird.

Micha_DU, 28. April 2011

#25
SCOREFUN

Scorefun

das hier dürfte auch irgendwann schief gehen...

Code:

dim strStoergrund as string
...
...
strStoergrund = Nz(rst!stoergrund, Null)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Scorefun, 28. April 2011

#26
EBS17

ebs17

Kleine Anmerkung (bezugnehmend auf #10): Mit Anfügeabfrage von einer Tabelle auf eine andere meinte ich nicht, die Quelltabelle erst in ein Recordset zu stecken und dann die Datensätze einzeln in die Zieltabelle zu schieben, sondern schon einen direkteren Weg.
Im konkreten Fall ist es vermutlich wegen der unerheblichen Datenmenge egal, in manchen anderen Fällen dann vielleicht nicht (Performance, viel Code - viele Möglichkeiten, Fehler einzubauen).

ebs17, 28. April 2011

#27
TOAST78

Toast78

Textdatei in tab einlesen (aktualisieren)

von Scorefun

das hier dürfte auch irgendwann schief gehen...
Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

dim strStoergrund as string
...
...
strStoergrund = Nz(rst!stoergrund, Null)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Uuuh! Nz-Funktion ad absurdum. *biggrin.gif* Das hab ich auch noch nicht gesehen.

Zuletzt von einem Moderator bearbeitet: 7. Januar 2021

Toast78, 28. April 2011

#28
EBS17

ebs17

Code:

Nz(rst!stoergrund, Null)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ein Beispiel, wie man mit (viel) Aufwand nichts bewirken kann.

ebs17, 28. April 2011

#29
JOSEF P.

Josef P.

Hallo!

Möglicherweise liegt das Problem immer noch an

hier gibt es Probleme mit Bspw. wenn User so "Störung Ini's Nabengreifer"in die Tabelle schreibt kommt bei mir Syntaxfehler (fehlender Operator) in Abfrageausdruck "Störung Ini's Nabengreifer"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

doch, habe ich gemacht
'" & Nz(rst("BemerkungMaßnahme"), "") & "'"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das Problem lässt sich nämlich mit Nz nicht beheben.

Zum Ausprobieren:
Code:

dim strSQL as string
const TextWert as string = "Das is' ein Text"

strSQL = "insert into TestTabelle (Textfeld) Values ('" & TextWert & "')"
debug.Print strSQL
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

=>
Code:

insert into TestTabelle (Textfeld) Values ('Das is' ein Text')
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die SQL-Anweisung muss aber so aussehen:
Code:

insert into TestTabelle (Textfeld) Values ('Das is'' ein Text')
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mfg
Josef

Josef P., 28. April 2011

#30

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 2 von 4

Thema:

Textdatei in tab einlesen (aktualisieren)

Die Seite wird geladen...

Textdatei in tab einlesen (aktualisieren) - Similar Threads - Textdatei tab einlesen
Große Textdatei - Formate entschlacken
in Microsoft Word Hilfe
Große Textdatei - Formate entschlacken: Hallo, ich arbeite seit längerem mit einer ziemlich großen Datei (mittlerweile 2000 Seiten), die sozusagen mein Zettelkasten ist. Alles ist leicht auffindbar durch Überschriften (2 Ebenen) und...
textdatei auslesen
in Microsoft Excel Hilfe
textdatei auslesen: Hallo Leute Wie kann ich eine Textdatei in eine Listbox Zeile für Zeile einlesen und neue Einträge aktualisieren? Mein derzeitiger unfertiger Code: lines = IO.File.ReadAllLines(Pfad) For i = 0...
Export als Textdatei in UTF-8
in Microsoft Excel Hilfe
Export als Textdatei in UTF-8: Hallo zusammen, ich habe gerade ein Exportproblem und wäre für jede Hilfe dankbar. In unserem CAD Programm habe ich das Wörterbuch exportiert als .txt-Datei. Das Textprogramm gibt eine in UTF-8...
Textdatei mit Semikolon getrennten Werten in Verteilerliste in Outlook exportieren
in Microsoft Outlook Hilfe
Textdatei mit Semikolon getrennten Werten in Verteilerliste in Outlook exportieren: Hallo, mein PC mit einigen Verteilerlisten ist mir leider verschmiert, dass ich keinen Zugriff mehr auf diese Verteiler habe. Ich habe allerdings noch die gesendete Verteilerlisten Kontakte,...
Bereich als Textdatei speichern.
in Microsoft Excel Hilfe
Bereich als Textdatei speichern.: Hallo Zusammen, habe eine Datei in der Bereiche die ausgefüllt werden und dann unter anderem als PDF gespeichert werden. Das funktioniert auch soweit. Gerne hätte ich das nur wenn etwas in der...
Bestimmte Inhalte aus sämtlichen Textdateien im Verzeichnis in Excel Tabelle / Zeilen und zuordnen
in Microsoft Excel Hilfe
Bestimmte Inhalte aus sämtlichen Textdateien im Verzeichnis in Excel Tabelle / Zeilen und zuordnen: Hallo liebes Forum, ich bin neu hier und hoffe, dass Sie mir vielleicht helfen können: Ich habe ein Verzeichnis mit *.txt Dateien mit bestimmten (z.T. variablen Inhalten). Diese Textdateien...
Sonderzeichen aus einer Textdatei einlesen
in Microsoft Access Hilfe
Sonderzeichen aus einer Textdatei einlesen: Hallo! Ich habe ein Problem beim Einlesen von Sonderzeichen aus einer Textdatei. In meiner Textdatei test.txt steht z.B. folgendes Wort: Temizsoyoğlu Wenn ich aber über vba diese Textdatei...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden