Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.18;
Скачать: CL | DM;

Вниз

TADOStoredProc входящий параметр...   Найти похожие ветки 

 
Begin   (2005-06-09 10:02) [0]

Делаю так...

procedure TForm1.Button1Click(Sender: TObject);
begin
 if not ADOConnection1.Connected then ADOConnection1.Connected := True;
 with StProc.Parameters.AddParameter do
 begin
   DataType  := ftString;
   Direction := pdInput;
   Value     := "%"+Edit1.Text+"%";
 end;
 StProc.Open;
end;


После чего TDBGrid отображает данные, все ОК. Потом указываю в Edit1 любое другое значение, а набор данных в гриде все тот же. Чую, надо где-то что-то обновить, а вот что ? :) Пытался использовать StProc.Parameters.Refresh; - ошибку выдает...

P.S. Я очень недавно с БД столкнулся, знаний пока маловато... :)


 
Johnmen ©   (2005-06-09 10:08) [1]

А после указания close-open делаешь ?


 
ЮЮ ©   (2005-06-09 10:10) [2]

with StProc do begin
 Close;
 Paremeters.Items[0].Value := "%"+Edit1.Text+"%";
 Open;
end;


 
ЮЮ ©   (2005-06-09 10:12) [3]

Кстати, после каждого клика она будет добавлять ещё один параметр, а тебе это надо?


 
Begin   (2005-06-09 10:53) [4]

>>>ЮЮ ©   (09.06.05 10:12) [3]
Кстати, после каждого клика она будет добавлять ещё один параметр, а тебе это надо?
-------------

Не надо конечно... Эт я просто из хелпа взял почти целиком. Вынесу Add за onClick.

В целом получилось, посему большое, человеческое спасибо за подсказку ! :)))


 
ORMADA ©   (2005-06-09 10:56) [5]

сделай в датасете в sql параметры и заполняй их потом во время работы и ничё создавать не надо будет!
чё-то типа
SELECT 1
FROM system
WHERE x= :p1
OR x IS null//--- если параметр не указан



Страницы: 1 вся ветка

Текущий архив: 2005.07.18;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.027 c
4-1116539275
arous
2005-05-20 01:47
2005.07.18
Размещение папки "Быстрый запуск"


8-1111498488
Graff
2005-03-22 16:34
2005.07.18
Запись в MP3 файл тэга


4-1114846064
RamDrive
2005-04-30 11:27
2005.07.18
Создание виртуального диска в runtime?


1-1119962220
MuxauJl
2005-06-28 16:37
2005.07.18
Загвоздка с I/O error 32


3-1118217498
Юра
2005-06-08 11:58
2005.07.18
InterBase, 100тыс записей клиенту