Вопрос № 42694: Здравствуйте эксперты!
У меня к Вам очередной вопрос:
почему первый вызов этой процедуры(см.приложение) работает нормально, а все последующие вылетают с Эксепшеном EListError "List index out of bounds(0)"...
Вопрос № 42.694
Здравствуйте эксперты!
У меня к Вам очередной вопрос:
почему первый вызов этой процедуры(см.приложение) работает нормально, а все последующие вылетают с Эксепшеном EListError "List index out of bounds(0)"
Ошибка происходит от того, что Вы обращаетесь к несуществующему индексу, в Вашем случае это Params[0].
Я бы Вам посоветовал имя параметра задавать сразу в запросе, пример в приложении.
Удачи!
Приложение:
--------- Если не знаешь что сказать - лучше промолчи...
Ответ отправил: Zubex (статус: 6-ой класс)
Ответ отправлен: 11.05.2006, 10:48
Отвечает: Kazakh
Здравствуйте.
Делайте так.
procedure TForm1.Button1Click(Sender: TObject);
var
P1Name: String;
begin
with Query1 do
begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM "h:dbsase1.db"');
SQL.Add('WHERE CAST(RegDate AS Date) = :prmDate');
SQL.Add('ORDER BY Cont1stNum');
ParamByName('prmDate').AsDate:=date();
Open;
if RecordCount = 0
then ShowMessage('Не найдено записей !')
else ShowMessage('Найдено '+IntToStr(RecordCount)+' записей.');
end;
end;
--------- Если собеседник затрудняется ответить, значит, вопрос поставлен правильно.
Ответ отправил: Kazakh (статус: 8-ой класс)
Ответ отправлен: 11.05.2006, 11:01
