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