Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];




Вниз

Уникальные значения 


Nina   (2002-03-21 09:26) [0]

Помогите пожайлуста внести в ComoBox уникальные значения из таблицы по опред полю.
Вот например
with ComboBox3 do
begin
Items.Clear;
DataModule1.TRezeptQuery7.First;
while not DataModule1.TRezeptQuery7.EOF do
begin
Items.Add( DataModule1.TRezeptQuery7.FieldByNamе( "Prod").AsString );
DataModule1.TRezeptQuery7.Next;
end;
end;

у меня вводяться в ComboBox все Prod
и даже повторяющениеся
а мне надо уникалльные
вот примерно так

select distinct prod
from prod_spravka.db

только не заю как это применить в этом коде!

помогите



Stratos   (2002-03-21 09:36) [1]

Ну делай проверку


iStr:= DataModule1.TRezeptQuery7.FieldByNamе( "Prod").AsString;
//^ заносим значение во временную строку
if Items.IndexOf(iStr)<0 then
//проверяем есть ли она в списке
begin
Items.Add(iStr);//если нет то добавляем
end;



Фэ   (2002-03-21 09:59) [2]

2 Nina
Собственно Вы сами уже и ответили.
Именно так: "SELECT DISTINCT.."
Затем в цикле проходите по query для которого сделан этот запрос и заносите значения в ComboBox.



Lusha   (2002-03-21 10:46) [3]

>Stratos
У ComboBox есть свойство Duplicates.

А вообще, на мой взгляд, лучший вариант выбирать в Query то, что нужно.



asafr   (2002-03-21 12:22) [4]

ComboBox3.Items.Clear;
with Query1 do begin
try
if active then close;
SQL.Clear;
SQL.Add("select distinct Prod from Table1");
Open;
While not EOF do begin
ComboBox3.Items.Add(FieldByName("Prod").AsString);
Next;
end;
finally
Close;
end;
end;




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.042 c
3-32646           KAA                   2002-03-19 16:10  2002.04.11  
Запрос для


3-32649           Shiza                 2002-03-19 20:36  2002.04.11  
Работа с dat-файлами


6-32918           Лёша                  2002-01-27 03:05  2002.04.11  
Как изменить настройки у TWebBrowser?


6-32933           Ivanov Vova           2002-01-22 15:41  2002.04.11  
Мастера, помогите ламеру, плз.


1-32852           Anton+                2002-03-29 08:20  2002.04.11  
Как создать удалить файл?