[ApxaHGe1]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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;

получается база вида

Код:

1 2 3 4

<font color="Red">2015-07-02    3256.0  3275.0  3229.0  3267.0  13.0    3253.0  1982.0  30398.0 50.0</font> 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        <font color="Red">2015-07-02    3256.0  3275.0  5229.0  3267.0  13.0    3253.0  1982.0  30398.0 50.0    </font>

Цветом выделены 2 поля, в них одинаковые даты, все остальные значения могут быть разные, как удалить все такие поля, где попадаются одинаковые даты?

[Alegun]

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

[ApxaHGe1]

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

[lmikle]

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

[Bargest]

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

Код:

1 2	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-шнику запись.
Если же надо именно

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

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

Код:

1 2 3

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