[Yura_S]

Запускаю в Делфи следующий код:

Код:

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.FormCreate(Sender: TObject); begin DecodeDate(Now,year,months,day); Application.HintHidePause:=99999; Form1.ADOQuery1.Active:=false; DBGrid1.DataSource.DataSet.Last; CB2:=ComboBox3.Items.Create; A<font color="Red">DOQuery2.Active:=False; ADOQuery2.SQL.Text:='DELETE Продажи.*, Month(Продажи!дат) FROM Продажи WHERE (((Month(Продажи!дат))=10));'; ADOQuery2.Active:=True;</font> end;

пишет ошибку "текущий проводник не поддерживает возврат нескольких наборов записей в результате одной операции"
Подскажите пожалуста как можно обойти эту проблему

[Yurk@]

Код:

1 2	ADOQuery2.SQL.Text:='DELETE FROM Продажи WHERE (Month(Продажи!дат))=10'; ADOQuery2.ExecSQL;