Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.06.2010, 13:38   #1
Makoto2005
Новичок
Джуниор
 
Регистрация: 01.06.2010
Сообщений: 3
Восклицание Выборка данных в БД (ADO)

При кликаньи на кнопку "Найти" ничего не происходит.
Помогите найти ошибки.
вот код кнопки:
Цитата:
procedure TfrmComp.btnSearchClick(Sender: TObject; idx, id: longint);
var
S:string; // текст критерия сортировки или фильтрации
krit:string;
begin
edtSearch.Visible:=False;
lblSearch.Visible:=False;
btnSearch.Visible:=False;
btnReport.Visible:=True;
lblReport.Visible:=True;
case filtr of
1: begin
krit:=edtSearch.Text;
S:='PERFORMERS.PF_NAME=[krit]';
end;
2: begin
krit:=edtSearch.Text;
S:='AND COMPOSERS.CM_NAME=[krit]';
end;
3: begin
krit:=edtSearch.Text;
S:='AND AUTHORS.AT_NAME=[krit]';
end;
4: begin
krit:=edtSearch.Text;
S:='AND ACCOMP.AC_NAME=[krit]';
end;
end;
if S<>'' then

begin

SQL_Text:='SELECT * FROM COMPOSITIONS INNER JOIN (%s INNER JOIN COMP_%s ON %s.%s_ID=COMP_%s.%s_%s_FK) ON COMPOSITIONS.CP_ID=COMP_%s.%s_COMP_ %s';
SQL_Text:=SQL_Text+S;
dmFond.qryGetCompositions.Active:=F alse;
dmFond.qryGetCompositions.SQL.Clear ;
dmFond.qryGetCompositions.SQL.Add(S QL_Text);
dmFond.qryGetCompositions.Parameter s[0].Value:=krit;
dmFond.qryGetCompositions.Active:=t rue;
end
end;
Makoto2005 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Выборка данных segail Microsoft Office Excel 4 08.02.2010 16:37
Выборка из БД определённых данных Xeon332 PHP 2 19.11.2009 14:02
Выборка данных из таблицы SlavaSH БД в Delphi 20 14.10.2009 12:32
Выборка данных ADRENALIN86 Microsoft Office Excel 1 13.08.2009 15:51
ADO, выборка из таблицы. Roof БД в Delphi 2 09.07.2008 18:51