[ApxaHGe1]

Люди подскажите пожалуйста, делаю импорт из грида в аксес таким бразом

Код:

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 поля, в них одинаковые даты, все остальные значения могут быть разные, как удалить все такие поля, где попадаются одинаковые даты?

[Alegun]

Убрать повторы может модификатор DISTINCT в конструкции SELECT

[ApxaHGe1]

Ок, уточню, повторы будут только в первол столбце всей базы, а именно в дате, а все остальные значения разные!!!! DISTINCT сдлает и менно то что мне нужно?

[lmikle]

нет, distinct работает на всех возвращаемых полях. Т.е. если ты возвращаешь только те 2 поля, которые могут быть одинаковые, то да, сработает. Если ты возвращаешь все поля (о чем говорит * в запросе), то не поможет.
По приведенному коду вообще не понятно, что ты пытаешься сделать.
Ты сначала подключился к какой-то базе, потом получил из нее данные, а потом, не сморя на полученные данные, ты начинаешь что-то вставлять в БД, причем это могут быть разные таблицы, бо как какой запрос в ADOQuery1 ты не показал (да и вообще, использовать ADOQuery для вставки через Insert - это как-то не по человечески, что ли).

[Bargest]

Были бы какие-нибудь уникальные id у строк, то можно было бы как-нибудь так:

Код:

select * from my_table mt
join (select min(id) as id from my_table group by my_date) jt on jt.id = mt.id

и получить для каждой даты первую по ID-шнику запись.
Если же надо именно

удалить все такие поля, где попадаются одинаковые даты

то есть если дата встречается дважды, то выкинуть оба вхождения, то как-то так:

Код:

select * from my_table mt
join (select min(id) as id from my_table
       group by my_date having count(id) = 1) jt on jt.id = mt.id