Re: Multiple step operation generatet errors
Habe gefunden womit die Fehlermeldung zusammenhängt, weiß aber nicht wie ich richtig mache.
Dieser Fehler tritt ja nur auf, wenn ich den Datensatz über die Delphi-Maske abgespeichert habe und danach nochmal anzeigen lassen will in meinem Delphi-Fenster.
Mit folgender procedure speichere ich ab:
*****************************************************
procedure Tfrm_Angestellte.Speichern1Click(Sender: TObject);
begin
if (cb_Nachname.Text '') then
begin
qry_Speichern.ConnectionString:=Global_U.ADO_Provider;
qry_Speichern.Close;
qry_Speichern.SQL.Clear;
qry_Speichern.SQL.Add('UPDATE angestellte SET man='+#39+Ed_Ag.Text+#39
+', betrst='+#39+Ed_FD.Text+#39
+', pnr='+#39+cb_Persnr.Text+#39
+', naname='+#39+cb_Nachname.Text+#39
+', vorname='+#39+cb_Vorname.Text+#39
+', gebdat='+#39+Ed_Gebdat.Text+#39
+', tv_ab='+#39+datetostr(dtp_StartArbeit.Date)+#39
+', tarifgr='+#39+Ed_Verguet.Text+#39
+', trf='+#39+Ed_Verguetgrundlage.Text+#39
+', tst_stufe='+#39+Ed_DAStufe.Text+#39
+', stellenbewert='+#39+Ed_Stellenbewertung.Text+#39
+', stellenplan='+#39+Ed_Stellenplan.Text+#39
+', verguetgruppe09='+#39+Ed_Verguetgruppe09.Text+#39
+', bewaufstieg09='+#39+cb_Aufstieg09.Text+#39
+', aufstiegzeit09='+#39+cb_HalbAufstieg09.Text+#39
+', verguetgruppe10='+#39+Ed_Verguetgruppe10.Text+#39
+', bewaufstieg10='+#39+cb_Aufstieg10.Text+#39
+', aufstiegzeit10='+#39+cb_HalbAufstieg10.Text+#39
+', verguetzulage09='+#39+cb_Verguetzulage09.Text+#39
+', verguetzulage10='+#39+cb_Verguetzulage10.Text+#39
+', verguetzulagezeit09='+#39+cb_HalbVerguetzulage09.Text+#39
+', verguetzulagezeit10='+#39+cb_halbVerguetzulage10.Text+#39
+', stufegrundverguet09='+#39+Ed_StufeGrundverguet09.Text+#39
+', stdwoche='+#39+Ed_WoArbeitszeit09.Text+#39
+', verguetzulage209='+#39+cb_2Verguetzulage09.Text+#39
+', verguetzulage210='+#39+cb_2Verguetzulage10.Text+#39
+', verguetzulagezeit209='+#39+cb_2HalbVerguetzulage09.Text+#39
+', verguetzulagezeit210='+#39+cb_2HalbVerguetzulage10.Text+#39
+', ortszuschlag09='+#39+cb_Ortzuschl209.Text+#39
+', ortszuschlagkonkurrenz09='+#39+cb_Konkurrenz09.Text+#39
+', woarbeitszeitk09='+#39+Ed_WoArbeitszeitP09.Text+#39
+', tarifrecht09='+#39+Ed_Tarifrecht09.Text+#39
+', woarbeitszeitk10='+#39+Ed_WoArbeitszeitP10.Text+#39
+', stufegrundverguet10='+#39+Ed_StufeGrundverguet10.Text+#39
+', woarbeitszeit10='+#39+Ed_WoArbeitszeit10.Text+#39
+', ortszuschlag10='+#39+cb_Ortzuschlag210.Text+#39
+', ortszuschlagkonkurrenz10='+#39+cb_Konkurrenz10.Text+#39
+', tarifrecht10='+#39+Ed_Tarifrecht10.Text+#39
+', grundverguet09='+#39+Ed_Grundverguet09.Text+#39
+', allgzulage09='+#39+Ed_Zulage09.Text+#39
+', ortzuschlag109='+#39+Ed_Ort09.Text+#39
+', ortzuschlagdiff09='+#39+Ed_OrtDiff09.Text+#39
+', grundverguet10='+#39+Ed_Grundverguet10.Text+#39
+', allgzulage10='+#39+Ed_Zulage10.Text+#39
+', ortzuschlag110='+#39+Ed_Ort10.Text+#39
+', ortzuschlagdiff10='+#39+Ed_OrtDiff10.Text+#39
+', zulageweit09='+#39+Ed_weitZul09.Text+#39
+', zulageweit10='+#39+Ed_weitZul09.Text+#39
+', zulageA09='+#39+Ed_1Art09.Text+#39
+', zulageB09='+#39+Ed_2Art09.Text+#39
+', zulageC09='+#39+Ed_3Art09.Text+#39
+', zulageA10='+#39+Ed_1Art10.Text+#39
+', zulageB10='+#39+Ed_2Art10.Text+#39
+', zulageC10='+#39+Ed_2Art10.Text+#39
+', namekind1='+#39+Ed_KindName1.Text+#39
+', gebkind1='+#39+datetostr(dtp_gebKind1.Date)+#39
+', ortzuschlag1='+#39+cb_OrtKind1.Text+#39
+', betragA09='+#39+Ed_Betrag1Kind09.Text+#39
+', betragB10='+#39+Ed_Betrag1Kind10.Text+#39
+', namekind2='+#39+Ed_KindName2.Text+#39
+', gebkind2='+#39+datetostr(dtp_gebKind2.Date)+#39
+', ortzuschlag2='+#39+cb_OrtKind2.Text+#39
+', betrag2A09='+#39+Ed_Betrag2Kind09.Text+#39
+', betrag2B10='+#39+Ed_Betrag2Kind10.Text+#39
+', namekind3='+#39+Ed_KindName3.Text+#39
+', gebkind3='+#39+datetostr(dtp_gebKind3.Date)+#39
+', ortzuschlag3='+#39+cb_OrtKind3.Text+#39
+', betrag3A09='+#39+Ed_Betrag3Kind09.Text+#39
+', betrag3B10='+#39+Ed_Betrag3Kind10.Text+#39
+', namekind4='+#39+Ed_KindName4.Text+#39
+', gebkind4='+#39+datetostr(dtp_gebKind4.Date)+#39
+', ortzuschlag4='+#39+cb_OrtKind4.Text+#39
+', betrag4A09='+#39+Ed_Betrag4Kind09.Text+#39
+', betrag4B10='+#39+Ed_Betrag4Kind10.Text+#39
+', entgeltgruppetvod='+#39+Ed_Entgeltgrupe.Text+#39
+', stufetvod='+#39+Ed_Stufe.Text+#39
+', stufenanstiegtvod='+#39+Ed_DatumStufanstieg.Text+#39
+' WHERE pnr='+#39+cb_Persnr.Text+#39
+' ');
qry_Speichern.ExecSQL;
ShowMessage('Die Änderungen wurden erfolgreich in der Datenbank abgespeichert.');
Close;
end;
end;
******************************************************************
Wenn ich die Zeilen auskommentiere in denen der Inhalt eines dtp_DateTimePicker-Feldes abgespeichert wird, erhalte ich keinen Fehler.
Also denke ich, dass das Datum nicht korrekt abgespeichert wird um dann wieder in dem dtp-Feld angezeigt werden zu können. Obwohl es in der Datenbank eigentlich korrekt aussieht.
Wie muss ich das Datums-Feld abspeicher?
Gruß
Gabi
geschrieben von
Gabi2
,
22.06.2005, 17:25 Uhr
, 45 mal gelesen
