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

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

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

Восстановить пароль

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 03.11.2015, 08:32   #1
lord24
Форумчанин
 
Регистрация: 04.01.2013
Сообщений: 107
По умолчанию list index out of bounds (9)

Добрый день. Ребята вылазит такая ошибка "list index out of bounds (9)". вот код
Код:
Memo1.Clear;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:=('SELECT * From Statement WHERE Data_s>=D1 AND Data_s<=D2');
ADOQuery1.Parameters.ParamByName('D1').Value:= FormatDateTime('dd/mm/yyyy',DateTimePicker1.Date);
ADOQuery1.Parameters.ParamByName('D2').Value:= FormatDateTime('dd/mm/yyyy',DateTimePicker2.Date);
ADOQuery1.Open;
  while not ADOQuery1.Eof do
  begin
      Memo1.Lines.Add(ADOQuery1.Fields[2].AsString +'   '+ ADOQuery1.Fields[3].AsString+'   '+ ADOQuery1.Fields[4].AsString+'   '+ ADOQuery1.Fields[5].AsString+'   '+ ADOQuery1.Fields[9].AsString);
      ADOQuery1.Next;
  end;
Причем ошибка вылазит если выбрать значение в календаре с 1 января до сего дня, а точнее с 9 марта и назад. А вот с 10 марта все норм. Где собака?
lord24 вне форума
Старый 03.11.2015, 08:52   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

А покажь структуру таблицы Statement
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума
Старый 03.11.2015, 08:59   #3
lord24
Форумчанин
 
Регистрация: 04.01.2013
Сообщений: 107
По умолчанию

lord24 вне форума
Старый 03.11.2015, 09:10   #4
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

Поля в Fields с 0 нумеруются, а не с 1.
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума
Старый 03.11.2015, 09:36   #5
lord24
Форумчанин
 
Регистрация: 04.01.2013
Сообщений: 107
По умолчанию

Да точно, попутал понятия маленько.
Спасибо за наводку.
lord24 вне форума
Закрытая тема


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
list index out of bounds (0) King_Of_Arthur БД в Delphi 4 30.05.2013 06:42
List index out of bounds (0) waka2ebawer Работа с сетью в Delphi 2 17.02.2011 06:30
List index of bounds(7) priamm Общие вопросы Delphi 7 14.05.2010 15:00
List index out of bounds (91) KoBRaAndrey Общие вопросы Delphi 6 25.12.2009 15:29