Люди подскажите пожалуйста, делаю импорт из грида в аксес таким бразом
Код:
var
i,n:integer;
begin
Form1.ADOConnection1.Connected:=True;
for i:=1 to StringGrid1.RowCount-1 do
begin
ADODataSet1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(paramstr(0))+'DataSet\'+ComboBox1.Text+';Persist Security Info=False';
ADODataSet1.CommandText:='SELECT * From '+ComboBox2.Text;
ADODataSet1.Active:=True;
ADOQuery1.Active:=True;
ADOQuery1.Insert;
for n:=0 to 12 do
ADOQuery1.Fields[n].AsString:=StringGrid1.Cells[n,i];
ADOQuery1.Post;
end;
получается база вида
Код:
2015-07-02 3256.0 3275.0 3229.0 3267.0 13.0 3253.0 1982.0 30398.0 50.0
2015-07-01 3226.0 3265.0 3229.0 3267.0 13.0 3253.0 1982.0 30398.0 50.0
2015-06-30 3226.0 3275.0 3229.0 3667.0 13.0 3253.0 1982.0 30398.0 50.0
2015-07-02 3256.0 3275.0 5229.0 3267.0 13.0 3253.0 1982.0 30398.0 50.0
Цветом выделены 2 поля, в них одинаковые даты, все остальные значения могут быть разные, как удалить все такие поля, где попадаются одинаковые даты?