hallo,
folgendes problem: sobald der einfügen-button eines DBNavigators gedrückt wird, sollen 2 tabellen abgeglichen und die werte, die NICHT gleich sind, in eine combobox gefüllt werden, in diesem fall das datum. hier die prozedur:
Delphi-Quellcode:
procedure TForm5.ADOTable1AfterInsert(DataSet: TDataSet);
var i,n : integer;
begin
form5.qryDatum.Close;
form5.qryMannschaften.Close;
form5.qryMannschaften.SQL.Clear;
form5.qryMannschaften.SQL.Text
:= 'SELECT TTermin.datum, TTermin.mannschaft_1, TTermin.mannschaft_2 FROM TTermin, TSpielergebnisse WHERE NOT (TTermin.datum = TSpielergebnisse.Datum)';
form5.qryMannschaften.Open;
if form5.qryMannschaften.RecordCount = 0
then
begin
showmessage('Es gibt keine neuen Termine!');
exit;
end
else
begin
n := form5.qryMannschaften.RecordCount;
i := 0;
form5.Datum.Clear;
repeat
begin
form5.Datum.Items.Add(DateToStr(form5.qryMannschaften.FieldByName('datum').AsDateTime));
inc(i);
form5.qryMannschaften.Next;
end;
until i = n;
form5.Datum.ItemIndex := 0;
form5.DBEdit1.Text := form5.Datum.Text;
form5.Label11.Caption := form5.qryMannschaften.FieldByName('mannschaft_1').AsString;
form5.Label12.Caption := form5.qryMannschaften.FieldByName('mannschaft_2').AsString;
end;
end;
aber irgendwie will er nicht so ganz... das problem ist: es passiert nichts. in der combobox stehen danach immer noch die gleichen einträge, und wenn alle datensätze gleich sind, der recordcount also 0 ist, wird es einfach ignoriert.... ich schätze da stimmt was nicht mit dem
SQL-Statement... aber ich weiß einfach nicht mehr weiter...