Hallo Leute!
<BR>Habe mal wieder ein echtes Anfängerproblem:<BR>
Im folgenden Quellcode werden via IBQuery (INSERT INTO...) mehrere Daten in eine Interbase-DB geschrieben
(nach Druücken des Speichern-Buttons).<BR>
<BR>
<BR>
procedure TPopUp.ButtonSpeichernClick(Sender: TObject);<BR>
begin<BR>
IBQuery1.ParamByName('Memo').AsMemo := MemoNeu.Text;<BR>
IBQuery1.ParamByName('Bild').LoadFromFile('C:\Pros t.bmp',ftBlob);<BR>
IBQuery1.ParamByName ('Rubrik').AsInteger := DBLookupComboBox1.KeyValue;<BR>
IBQuery1.ParamByName('Typ').AsInteger := DBLookupComboBox2.KeyValue;<BR>
IBQuery1.ParamByName('Titel').AsString := NeuTitel.Text;<BR>
IBQuery1.ParamByName('Datum').AsDate := Date;<BR>
IBQuery1.ExecSQL;<BR>
IBTable1.Refresh;<BR>
<BR>
end;<BR>
<BR>
<BR>
So weit, so gut.<BR>
Leider kann man sich die Änderungen erst nach Neustart der Anwendung anzeigen lassen.<BR> Ich weiß wohl, dass das irgendwie mit IBTransaction.Commit zu lösen ist, bin aber nach mehreren Versuchen immer noch nicht schlauer! ;-( <BR>
Es gibt zwar ein riesen Beispiel dazu bei A. Kosch, aber das ist so umfangreich, dass ich nicht durchblicke!<BR>
Hat irgendjemand einen TiPP????
<BR>Habe mal wieder ein echtes Anfängerproblem:<BR>
Im folgenden Quellcode werden via IBQuery (INSERT INTO...) mehrere Daten in eine Interbase-DB geschrieben
(nach Druücken des Speichern-Buttons).<BR>
<BR>
<BR>
procedure TPopUp.ButtonSpeichernClick(Sender: TObject);<BR>
begin<BR>
IBQuery1.ParamByName('Memo').AsMemo := MemoNeu.Text;<BR>
IBQuery1.ParamByName('Bild').LoadFromFile('C:\Pros t.bmp',ftBlob);<BR>
IBQuery1.ParamByName ('Rubrik').AsInteger := DBLookupComboBox1.KeyValue;<BR>
IBQuery1.ParamByName('Typ').AsInteger := DBLookupComboBox2.KeyValue;<BR>
IBQuery1.ParamByName('Titel').AsString := NeuTitel.Text;<BR>
IBQuery1.ParamByName('Datum').AsDate := Date;<BR>
IBQuery1.ExecSQL;<BR>
IBTable1.Refresh;<BR>
<BR>
end;<BR>
<BR>
<BR>
So weit, so gut.<BR>
Leider kann man sich die Änderungen erst nach Neustart der Anwendung anzeigen lassen.<BR> Ich weiß wohl, dass das irgendwie mit IBTransaction.Commit zu lösen ist, bin aber nach mehreren Versuchen immer noch nicht schlauer! ;-( <BR>
Es gibt zwar ein riesen Beispiel dazu bei A. Kosch, aber das ist so umfangreich, dass ich nicht durchblicke!<BR>
Hat irgendjemand einen TiPP????
Comment