Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TQuery и параметры

Gaber © (2002-09-18 14:44:00)
Хотел сделать поиск, такой чтоб находил подразделения по введеному в Edit1 или выдавал все надписи, запускаю, найти введеную:
Query1.Close;
Query1.Prepare;
Query1.Params[0].AsString:=Edit1.Text;
Query1.Open;
выдает все правильно, нажимаю показать все:
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add("select * from podr");
Query1.Open;
выдает все правильно, нажимаю опять искать введеную:
выдает ошибку,
List index out of bounds(0)
Что это?
Если нажать показать все, то выводит все, а по поиску ошибка.

И еще в догонку, хотел разабраться с параметрами и обнаружил, что если в методе SQL у Query пусто то метод Params тоже пустой, может быть я говорю чушь, но в метод Params ничего не добавить.
Как быть, если я хочу использовать разные запросы, которые буду формировать в процессе программы, как назначать Params, или надо тогда юзать ParamByName?

ЮЮ (2002-09-19 03:52:00) [1]
>И еще в догонку, хотел разабраться с параметрами и обнаружил, что если в методе SQL у Query пусто то метод Params тоже пустой, может быть я говорю чушь, но в метод Params ничего не добавить.
Как быть, если я хочу использовать разные запросы, которые буду формировать в процессе программы, как назначать Params, или надо тогда юзать ParamByName?

Естественно, при изменении Query.SQL изменяется и Params, ведь Params определяется текстом запроса Query.SQL.
Не обязательно ParamByName, можно и Params[Индекс], если параметры определяются непосредственно после формированмя текста запроса. Если же код работает с неизвестным кол-вом параметров, то ParamByName, проверяя возвращаемое значение на nil

Lord Warlock (2002-09-18 17:10:00) [2]
:)))

procedure TPPodr.Button1Click(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add("select * from podr");
Query1.SQL.Add("where NamePodr=:Param1");
Query1.Params[0].AsString:=Edit1.Text;
Query1.Open;
end;

Gaber (2002-09-18 17:02:00) [3]
Спасибо за совет про параметры,
Теперь я сделал так:

procedure TPPodr.Button1Click(Sender: TObject);
begin
Query1.SQL.Add("select * from podr");
Query1.SQL.Add("where NamePodr=:Param1");
Query1.Params[0].AsString:=Edit1.Text;
Query1.Open;
end;

Но теперь если опять вызвать все записи, а потом опять вызвать определенную все виснет. =(

Lord Warlock (2002-09-18 15:22:00) [4]
Перед надо вставить тот запрос, в котором у тебя был параметр
Наверняка ты его написал в свойстве SQL...

Gaber (2002-09-18 15:16:00) [5]
Спасибо за ответ, но подскажите еще раз на счет ругани, что надо вставить перед ...?

Lord Warlock (2002-09-18 14:55:00) [6]
Насчет Params и ParamByName: использовать можно и тот и другой в любых случаях, дело вкуса

пишешь запрос:

Query1.SQL.Add("select * from podr");
Query1.SQL.Add("where a=:Param1 and b=:Param2");

Задать значения параметрам можно так:

Query1.Params[0].AsString:=Edit1.Text;
Query1.Params[1].AsString:=Edit2.Text;
Query1.ParamByName("Param1").AsString:=Edit1.Text;
Query1.ParamByName("Param2").AsString:=Edit2.Text;

Lord Warlock (2002-09-18 14:51:00) [7]
Ругается правильно, при втором варианте запроса параметра нет, и при попытке присвоить значение несуществующему элементу вываливантся ошибка.

чтобы работало нормально, перед этим :

Query1.Close;
Query1.Prepare;
Query1.Params[0].AsString:=Edit1.Text;
Query1.Open;

вставь заполнение запроса SQL с параметром

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »