aloha...
ich denke mir das es wahrscheinlich so ein theme bzw. frage schon mal gab...
leider hab ich gerade bei meiner suche im forum nichts gefunden was mir weiterhilft...
so hab grad folgendes problem...
ich füge sätze von einem .txt file zu meiner
mysql datenbank hinzu...
hab das ganze schön in eine try except schleife gepackt, das falls mein
sql befehl nicht erfoglreich
war mein programm weiterläuft...
tritt ein fehler auf, geb ich mir denn
sql befehl + satz aus dem .txt file denn ich zur
db hinzufügen
wollte in ein anderes .txt file aus...
im prinzip weiß ich auch wo der fehler liegt (ich versuch einen satz hinzuzufügen der bereits vorhanden ist
also doppelter key)...
mich würde jetzt nur mal interessieren, ob mir delphi bzw. mein system nicht eine entsprechende fehlermeldung
zurück gibt, und wenn ja wie komm ich da ran???
hier ist mal noch ein bischen code:
Delphi-Quellcode:
procedure TMain_Form.prAddLOGPFL(aErgebnis :
Array of String; sRow :
String);
var
s :
String;
begin
Try
With (dbm.Dat1Query)
Do
Begin
Application.ProcessMessages;
SQL.Clear;
s := ('
Insert Into DB1.Dat1 (ID, Style, PT, SalesOrg, ErstDate, Row_ID, '
+'
Color, Style_No, Old_Color, TextilCD1, Per1, '
+'
TextilCD2, Per2, TextilCD3, Per3, TextilCD4, '
+'
Per4, TextilCD5, Per5, PSID1, PSID2, PSID3, '
+'
PSID4, PSID5, PSID6) '
+'
Values(''
'+aErgebnis[0]+'
''
,''
'+aErgebnis[1]+'
''
, ''
'+aErgebnis[2]+'
''
, ''
'+aErgebnis[3]+'
''
, '
+'
''
'+aErgebnis[4]+'
''
, ''
'+aErgebnis[5]+'
''
, ''
'+aErgebnis[6]+'
''
, '
+'
''
'+aErgebnis[7]+'
''
, ''
'+aErgebnis[8]+'
''
, ''
'+aErgebnis[9]+'
''
, '
+'
''
'+aErgebnis[10]+'
''
, ''
'+aErgebnis[11]+'
''
, ''
'+aErgebnis[12]+'
''
, '
+'
''
'+aErgebnis[13]+'
''
, ''
'+aErgebnis[14]+'
''
, ''
'+aErgebnis[15]+'
''
, '
+'
''
'+aErgebnis[16]+'
''
, ''
'+aErgebnis[17]+'
''
, ''
'+aErgebnis[18]+'
''
, '
+'
''
'+aErgebnis[19]+'
''
, ''
'+aErgebnis[20]+'
''
, ''
'+aErgebnis[21]+'
''
, '
+'
''
'+aErgebnis[22]+'
''
, ''
'+aErgebnis[23]+'
''
, ''
'+aErgebnis[24]+'
''
) '
+'
');
SQL.Add(s);
dbm.Dat1Query.ExecSQL;
End;
Except
s := s + #13;
sRow := sRow + #13;
Writeln(txtFileError, s);
Writeln(txtFileError, sRow);
If sError = '
'
Then
Begin
sError := '
X';
End;
End;
end;
ich hab dieses thema hier in sonstige fragen zu delphi gepackt, weil mich dieses thema auch allgemein interessiert..
also wie ich an die fehlermeldung die mir das system ausgibt rankomme?!