AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Daten in .txt File schreiben

Ein Thema von Andidreas · begonnen am 7. Jun 2006 · letzter Beitrag vom 8. Jun 2006
Antwort Antwort
Benutzerbild von Andidreas
Andidreas

Registriert seit: 27. Okt 2005
1.110 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#1

Re: Daten in .txt File schreiben

  Alt 8. Jun 2006, 07:49
danke für eure tipps

@waseo
ja das hab ich inzwischen auch gesehen ^^ war mal wieder etwas zu schnell mit dem posten

@marabu
hier noch die fehlenden information:
Delphi Win32
MySQL DB 4.1.19
Zugriff über MySQLDAC

Zitat von marabu:
Der Zweck scheint mir das versuchsweise Einfügen eines Datensatzes in eine Datenbank-Tabelle zu sein - bei Misserfolg das Wegschreiben in eine Protokolldatei.
leider nicht ganz richtig, eigentlich sollte JEDER Datensatz aus dem .txt file später in der db datei stehen...
mich würde im moment nur interessieren bei welchen sätzen ein fehler vorkommt und woran das liegt...

Zitat von marabu:
Die Datenbanktabelle scheint mir von einem Tool angelegt worden zu sein. Vermutlich könntest du die Daten auch mit diesem oder einem anderen Tool importieren - ohne eine einzige Zeile Code geschrieben zu haben. Wenn du mit den BDE-Komponenten arbeiten solltest, dann würde dir TBatchMove die Arbeit vielleicht erleichtern.
jupp die datei habe ich über den MySQL Browser angelegt... vielleicht kennst du denn...
leider hab ich da bis jetzt noch nicht die möglichkeit in diesem tool gefunden daten zu importieren...

die anregungen wie ich meine prozedur gestalten kann sind sehr nützlich werds ungefähr so machen:

Delphi-Quellcode:
procedure TMain_Form.prADDLOGMAT(aErg : Array of String, sRow : String);

var
s : String;


begin

  Try
   With(dbm.LOGMATQuery) Do
   Begin
    Application.ProcessMessages;
    SQL.Clear;
    s := ('Insert Into DB1.DAT1 (Fld1, Fld2, Fld3, Fld4, Fld5, Fld6,
    +' Fld7, Fld8, Fld9, Fld10, Fld11, Fld12,
    +' Fld13, Fld14, Fld15, Fld16, Fld17, Fld18,
    +' Fld19, Fld20, Fld21, Fld22, Fld23)
    +'Values(''' +aErg[0]+ ''', ''' +aErg[1]+ ''', ''' +aErg[2]+ ''',
    +' ''' +aErg[3]+ ''', ''' +aErg[4]+ ''', ''' +aErg[5]+ ''',
    +' ''' +aErg[6]+ ''', ''' +aErg[7]+ ''', ''' +aErg[8]+ ''',
    +' ''' +aErg[9]+ ''', ''' +aErg[10]+ ''', ''' +aErg[11]+ ''',
    +' ''' +aErg[12]+ ''', ''' +aErg[13]+ ''', ''' +aErg[14]+ ''',
    +' ''' +aErg[15]+ ''', ''' +aErg[16]+ ''', ''' +aErg[17]+ ''',
    +' ''' +aErg[18]+ ''', ''' +aErg[19]+ ''', ''' +aErg[20]+ ''',
    +' ''' +aErg[21]+ ''', ''' +aErg[22]+ ''') ');
      SQL.Add(s);
      dbm.DAT1Query.ExecSQL;
      End;
    Except
      s := s + #13;
      Writeln(txtFile,s);
    End;

end;
das assignfile, rewrite, close werd ich in einer anderen prozedur erledigen (wahrschinlich in der Prozedur wo ich mein .txt file einlese)
ich denk mal des macht mehr sinn... bzw. ist der richtigere weg???

was meint ihr???

und ich lass mir zusätzlich die denn kompletten satz aus dem .txt file übergeben, dann hab ich noch zusätzlich die daten wie sie ursprünglich waren ohne sql befehle...
Ein Programmierer Programmiert durchschnittlich 15 Code Zeilen pro Tag
Wir sind hier doch nicht bei SAP!!!

Aber wir habens bald
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:40 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz