Daten in .txt File schreiben

[Andidreas]

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...