Роковое число 255!

← →
buka (2004-08-23 06:42) [0]

Уважаемые мастера! Без вашей помощи никак не разобраться в том, что надо сделать.
Суть в следующем. Имеется таблица .mdb (Access). В ней 240 записей (всего -то!)
Имеется DBGrid (точнее abcDBFixedGrid, но это насколько я понимаю не столь важно).
Для просмотра записей имеется DBNav с соответствующими кнопками First, Last и пр.
После запуска программы курсор устанавливается на последнюю запись:
procedure Tfm_main.FormActivate(Sender: TObject);
begin
….
ADOTable1.Last;
end;
Щелчками по кнопкам “First” и “Last” без всяких проблем курсор устанавливается на первую и соответственно – последнюю запись. И это отражается, соответственно в DBGrid.
Таблицу я защитил паролем и реализовал это так:
procedure TPasswordDlg.OKBtnClick(Sender: TObject);
label lb1,lb2,lb3;
begin
i:= i+1;
if Password.Text="sezam" then goto lb1;
if i<2 then MessageDlg ("Ага! Фигушки!Пароль введен неправильно!", mtError,[mbOK],0);
if i>=2 then MessageDlg (‘Программа будет закрыта", mtError,[mbOK],0);
if i>=2 then fm_main.Close;
Password.Text:= "";
Password.SetFocus;
goto lb2;
lb1:
fm_main.abcPicBtn2.Visible:= false;
fm_main.abcPicBtn5.Visible:= true;
if Password.Text="sezam"then PasswordDlg.Close;
fm_main.ADOTable1.Close;
fm_main.abcPicBtn11.Visible:= true;
fm_main.ADOTable1.ReadOnly:= false;
fm_main.abcHDBGrid1.ReadOnly:= false;
fm_main.abcnpAppend1.Visible:= true;
fm_main.abcnpDelete1.Visible:= true;
fm_main.abcnpPost1.Visible:= true;
fm_main.ADOTable1.Open;
fm_main.Edit9.Text:= IntToStr (fm_main.ADOTable1.RecordCount);
LoadKeyboardLayout( StrCopy(Layout,"00000419"),KLF_ACTIVATE);
lb2:
end;

После этого курсор устанавливается на первую запись в таблице и соответственно – в DBGrid.
И дальше-при попытке «нырнуть» в конец таблицы (вне зависимости от того используешь ли Append или Last возникает исключение EInvalidGridOperation с сообщением ‘Grid index out of range’.
Скорее всего для Мастеров сразу очевидно в чем дело, но мне пришлось потратить достаточно времени для того чтобы понять, что несмотря на то, что в таблице –240 записей, тем не менее с учетом удаленных ранее реальный index 234 записи имеет № 255! (это я увидел через Access и копию таблицы с дополнительным полем «счетчик»).
Вот туда и устанавливается курсор после того как закроешь вышеуказанное сообщение.
Если используешь Next и до конца таблицы, то исключение не возникает. Записи под №242, 243 вписываются и отображаются нормально (в конце DBGrid, после № 241), но только до тех пор пока не закроешь редактирование таблицы.
Закрываю следующим образом:
procedure Tfm_main.abcPicBtn5Click(Sender: TObject);
begin
fm_main.abcPicBtn2.Visible:= true;
fm_main.abcPicBtn5.Visible:= false;
fm_main.ADOTable1.Close;
fm_main.ADOTable1.ReadOnly:= true;
fm_main.abcHDBGrid1.ReadOnly:= true;
fm_main.abcnpAppend1.Visible:= false;
fm_main.abcnpDelete1.Visible:= false;
fm_main.abcnpPost1.Visible:= false;
fm_main.abcPicBtn11.Visible:= false;
fm_main.ADOTable1.Open;
end;
Курсор после этого устанавливается на первую запись, но … 242 и 243 записи оказываются сразу после 238, т.е. последовательность записей такова …237, 238, 242,243,239,240.
Вот я и спрашиваю: как этот чертов range раздвинуть? Можно ли это сделать принципиально? Или идти по какому другому пути? Пробовал также перехватить исключение, так работа кнопки Last программно не отображается и исключение возникает ранее события

← →
Erik1 (2004-08-23 10:36) [1]

Напонятно чего ты добиваешся, но поведение базы абсолютно логично. Зачем тебе создовать новую запись? А после пытатся с нее кудато уйти. Зачем тебе поле счетчик? Если надо добавлять записи, просто создай ID и заполняй его из программы. А если надо только просматривать то поставь ReadOnly := True;

← →
KSergey © (2004-08-23 12:40) [2]

> И дальше-при попытке «нырнуть» в конец таблицы (вне зависимости
> от того используешь ли Append или Last возникает

Я так ничего и не понял, но вот в этой строчке есть странность: команды Append и Last - совершенно разные: Append - перейти в конец набора записей, Last - добавить запись в конец и перейти на новую добавляемую).
Так что надо-то?

← →
Рамиль © (2004-08-23 12:43) [3]

> Append - перейти в конец набора записей, Last - добавить
> запись в конец и перейти на новую добавляемую

Наоборот только:)

← →
KSergey © (2004-08-23 12:53) [4]

> [3] Рамиль © (23.08.04 12:43)
> Наоборот только:)

Да, конечно
Прошу прощения.

← →
buka (2004-08-23 13:45) [5]

Erik1: Да нет у меня в рабочей таблице поля-счетчик. Это я перед тем как работать с основной создал копию с таким полем (на всякий случай) И случай этот понадобился, когда я сначала инуитивно заподозревал число 255, а потом открыл программой эту таблицу-копию и убедился в этом.
Причем Append и Last? Да при том, что и в том и другом случае курсор визуально (до опредленного числа записей в таблице- 255) прыгал в КОНЕЦ DBGrid и никаких проблем не было.
Еще раз. В Delphi есть какая-то штука, которая невидимо нумерует записи производимые в таблицу и если, какая либо запись удаляется, то очередной вносимой Delphi присваивает номер, следующей за удаленной. И так это идет все путем, до тех пор пока этот невидимый счетчик достигнет 255.
Это я создал поле в котором сам нумерую записи поочередно.
Но если я внес запись и тут же удалил, то в этом невидимом счетчике Delphi свой № удаленной уже не использует для нумерации других записей.
У меня отображается, например, ...232,233,234 ...Чего то я внес ошибочно и тут же удалил, полагая, что все путем и ничего не произошло. Ан нет! DElphi "про себя" считая удаленные и "про себя" присваивает, например тем же самым записям, (которые у меня идут под №№ 232,233,234) - ...253,254,255...И вот поскольку он уже набрал свой граничный range (255), то при попытке прыгнуть в конец таблицы, после внесения очередной записи (или в конец DBGrid, как кому угодно) Delphi и пишет "Grid index out of range’!
В Access та же самая таблица наблюдается очень красиво все на месте и все по порядку, как надо (тем более, что отсортированы по возрастанию по полю с моей нумерацией) и записи добавляются красиво. Однако, когда смотришь моей программой c DBGrid, то те записи, которые я добавил Access(ом) находятся не в конце, который я считаю концом, а в том конце, который считает Delphi. Понятно или опять смутно?

← →
KSergey © (2004-08-23 13:54) [6]

"Grid index out of range’

Бредовейшее сообщение. Никогда не встречал...
попробуйте обычный грид вставить для пробы. Может все же какой-то страннейший косяк в используемых компонентах?

> Это я создал поле в котором сам нумерую записи поочередно.
> Но если я внес запись и тут же удалил, то в этом невидимом
> счетчике Delphi свой № удаленной уже не использует для нумерации
> других записей.

Я никак не пойму: о каком счетчике речь? То про свое поле, то про какой-то счетчик, да еще и не видимый??
А, к стати, какой тип у этого поля? (только не спрашивайте какого: я так и не понял речь про свое поле или невидимый счетчик (что это вообще такое???))

← →
Рамиль © (2004-08-23 13:55) [7]

Э... мало ли что ты концом считаешь? И вообще, "конец" в таблице БД бессмысленное понятие, забей на него.

← →
Sergey13 © (2004-08-23 13:58) [8]

2buka
Ну ты даешь! Так длинно и так непонятно!
>Понятно или опять смутно?
Второе. 8-)
Нарисуй структуру таблиц с типами и задачу? И не надо мистики типа "В Delphi есть какая-то штука, которая невидимо нумерует". 8-)

← →
buka (2004-08-24 06:54) [9]

Я уже писал ответ, да что-то не вижу его. КSergey. Я попробую, конечно,обычный Grid но это будет где-то позже. Сейчас нет времени.тип поля в которое я вношу свою нумерацию обычный текстовый. (я туда пишу: 1,2,3 и.т.д.сейчас запись идет под № 240).Еще раз попробую попроще объяснить что происходит.
По ходу заполнения записей (кроме текстового поля в которое я пишу № записи там есть естественно и другие поля)возникает необходимость удалять записи (заполнил- сохранил- заметил ошибку -удалил - и опять заполнил-сохранил в уже правильном варианте). Так вот оказалось, что Delphi где-то учитывает удаленные записи и очередная запись у него (мне не видно где)идет уже под следующим номером.И как только вот этот внетренний счет превышает 255 -при попытке сразу прыгнуть в конец Grida (таблицы) и возникает указанное исключение.Как я это вычислил я описал выше.Причем при последовательном переборе до конца (NEXT) исключения не возникает, но запись вставляется (визуально по Grid) туда где закончилась 255. И наблюдаю в Gride 237,238, 242,239,240. И это при всем при том что при внесении и дальнейшем сохранении 242 запись стояла на своем месте.Спрашивали причем Append и Last? Да при том, что и в том и в другом случаях визуально курсор с первой записи в DBGrid должен перейти в конец таблицы.А поскольку Grid считает, что конец где-то на 238 или другой записи, то он туда и прыгает и пишает, что индекс искомой записи находится за пределами диапазона DBGrid (я надеюсь мой "вольный" перевод записи "Grid index out of range’- правильный). Мой вопрос состоял в том: как увеличить диапазон визуализации табличных данных DBGrid?
Что скажете мастера?

← →
Sergey13 © (2004-08-24 09:18) [10]

>Что скажете мастера?
Я хоть и не мастер, но скажу. 8-) Тебе надо книжек почитать по теории и практике БД. Понять что грид и таблица (набор данных) - это две большие разницы. Понять, что сами собой только кошки родятся. И еще много чего понять. Это не издевательство и не прикол над тобой. Просто что бы получать нормальные ответы надо задавать нормальные вопросы.

← →
roottim © (2004-08-24 09:22) [11]

я даже читать нестал
по причине вот этого
label lb1,lb2,lb3;
тут непонимание не толко в СУБД но и в Delphi в придачу

← →
KSergey © (2004-08-24 10:02) [12]

> [9] buka (24.08.04 06:54)
> времени.тип поля в которое я вношу свою нумерацию обычный
> текстовый.

Зашибись... "мы не ищем легких путей!"
К стати, конкрентно тип поля можно привести? Ну блин, ну че все клещами надо тянуть?? Кому это надо-то?

> Так вот оказалось, что Delphi где-то учитывает удаленные
> записи и очередная запись у него (мне не видно где)идет
> уже под следующим номером.

В конце концов, вы можете толком написать о каком таком номере здесь идет речь?? Как вы его получаете??? Это тот же, который и вы задаете, или как??
Кроме того, мы когда-нибудь услышим ответ об используемых компонентах доступа??

Ну неужели трудно ответить на встречные вопросы вместо того, чтобы в пятый раз описывать какую-то мистику?

← →
buka (2004-08-24 13:10) [13]

Отвечаю KSergey, поскольку как мне кажется он все-таки стремится помочь (roottima и прочих "уставших" прошу не беспокоить ).
KSergey: прошу понять- выше я написал все то, что наблюдал.
1. БД создал в Access.
2.Компоненты доступа (связи с НД?)ADOTable и др. компоненты ADO.
3. Компоненты визуализации: abcHDBGrid (кажется так называется)и второй дублирующий abcDBFixedGrid.Использую также и другие -для вспомогательных работ, как-то просмотр отдельных записей. Почему использовал DBGrid из комплекта компонентов ABC6? Так он же вертикальный и удобно наблюдать. Но та проблема с которой я столкнулся наблюдаема в обоих Grid(ах).
4.Навигация по НД - панель со стандартными кнопками (First,Last, Delete, и пр.) также из комплекта компонентов ABC
Ну что опять описывать то, что уже описал выше? Не вижу смысла.
Но отвечаю на ваш вопрос о номерах.
Моя нумерация записывается без проблем, но после того, как в таблице (я знаю разницу между таблицей и компонентом визуализации DBGrid) набралось 240 записей (с моей нумерацией!)видимых в DBGride, при попытке сделать Append (или Last)выскакивает исключение с сообщением о котором я указал.
Долго пытался разобраться. Число 240 (присвоенный мною номер очередной записи- той записи достигнув которой я увидел вышеописанные фокусы) не имеет какого-либо значения. Оно может быть и меньше и зависит от того СКОЛЬКО Я ЗАПИСЕЙ УДАЛЯЛ, КАК ОШИБОЧНО ВНЕСЕННЫХ!!!
Ну что опять описывать то, что уже описал выше? Чтобы получить упрек о бредятине и рекомендации "умников" типа 13-го Sergeyя.
Grid сообщает: Index Out of range.
Я понимаю его так: "не могу поставить курсор на последнюю запись под твоей нумерацией, т.к. ее индекс находится за пределами максимально допустимого значения верхней границы диапазона, который я могу отобразить".И... курсор становится где-то на 234 запись (в моей нумерации).Далее ... я уже описывал выше, установив, что Delphi ведет свой собственный счет и у таблицы, которую я просмотрел через Access помимо моей нумерации записей ведется и своя.
===========
Там еще много чего любопытного наблюдается, но если Вам тяжело меня понять или никогда не сталкивались с подобным, Бог с ним попробую-таки сам разобраться и сообщу о результатах.
==============

Любой желающий может повторить мой опыт по следующей схеме (и это не займет много времени).
1. Сделайте BD в Access с одной табличкой.
2. У этой таблички сделайте 1-е поле -автосчетчиком (чтобы увидеть ту бредятину, которую кто не может, а кто - не пытается понять)
3. Сделайте 2-е поле -текстовым, а остальные 1-2- на свой вкус.
4. Простую форму, на нее положите DBGrid (для чистоты "эксперимента" желательно из набора ABC6 и панельку навигации. увяжите то и другое с НД.
5. внесите во 2-е поле "1" (единичку).(остальные можете заполнить, а если лень, то и не заполняйте). главное чтобы у вас светился в DBGride счетчик и поле с нумерацией.
6.Сделайте еще какое не лень количество записей. сохраняя каждую запись (Append,Post,)
7. Затем удалите 1-2 записи (для чистоты эксперимента - последние внесенные)
8.продолжайте еще вносить записи.
9. Внеся их несколько штук-ПОСМОТРИТЕ на автонумерацию в 1-м поле! Что вы увидете?
10. продолжайте далее вносить записи, по прежнему нумеруя их чере 1-е поле, также используя Append.
11. По ходу удаляйте несколько раз.
12. Смотрите на автосчетчик!!!
13.Достигнув по автосчетчику 255 записи (уж какой там будет № записи по вашей нумерации- Бог его знает) может быть и Вы при очередном Append или Last увидите то, что наблюдаю я.
==========
Ей-богу это много времени не займет

← →
KSergey © (2004-08-24 13:31) [14]

> 1. Сделайте BD в Access с одной табличкой.

Табличка - какого типа? Аксесовская? В вопросе вроде про dbf было...
Если DBF - то какая версия ODBC стоит для DBF? (ну или какой версии фокс)

> 2. У этой таблички сделайте 1-е поле -автосчетчиком

Конкретно ТИП этого поля когда-нибудь напишем в конце концов???

← →
KSergey © (2004-08-24 13:33) [15]

Да, и что-то там про индексы бало. Откуда они???

А вообще что-то у меня сильное подозрение, что либо с типом автосчетчика косяк, либо косяк драйвера доступа к dbf (если все же о них речь) в части построение индексов (если они, к стати, есть; это тоже не понятно из описания)

← →
buka (2004-08-24 14:42) [16]

Тип этого поля устанавливается автоматически при формировании таблицы, кажется там так и указано "счетчик".Если это очень важно вечером посмотрю и скажу точно.Но зачем? Если у Вас есть Acceess-2000 запустите - откройте соответствующую (справа) графку и увидете "счетчик". (говорю по памяти, вечером, если это еще важно-посмотрю)
БД (с табличкой) сформирована Access-2000; файл имеет расширение .dbf
Ни о каком Fox речи не было.Такой файл БД сформирован именно Access (ом).
==========
Я предлагаю всем желающим повторить экспримент.

← →
KSergey © (2004-08-24 14:55) [17]

> [16] buka (24.08.04 14:42)
> БД (с табличкой) сформирована Access-2000; файл имеет расширение
> .dbf

Вранье чистейшей воды. Базы MS Acces имеют расширение mdb.

> Ни о каком Fox речи не было.

Тоже вранье. Есть, в заголовке.

← →
buka (2004-08-24 15:20) [18]

Ошибочно.Я сейчас посмотрел Access 2000. Тип данных так и называется "счетчик".

← →
buka (2004-08-24 15:23) [19]

Точно что-то переклинило, действительно mdb.Сам удивляюсь (имел ввиду одно, а сообщил другое.Простите Христа ради. ).Я сейчас посмотрел Access 2000. Тип данных так и называется "счетчик".
Простите Христа ради.

Мдя, случай странный...
Какая версия MDAC и MS Jet установлена?

← →
buka (2004-08-25 06:39) [21]

Скажу позже. По памяти- 4.0 (если опять с чем-то не перепутал)

← →
buka (2004-09-04 10:48) [22]

Ну кто-нибудь пробовал эксперимент?

← →
Arm79 (2004-09-05 21:19) [23]

Вопрос - а разве поле "счетчик" не должно вести себя именно так? это же автоинкрементное увеличение. Этому полю по барабану, удалили ли предыдущую запись или нет. Оно обеспечивает уникальность записи, собственно и все. Очевидно, где то в программе есть привязка именно к номеру строки.

Что то я в приведенном куске кода не узрел Post... Хотя вроде и редактирование есть и добавление

Может, стоит подумать о SQL-реализации работы с БД?

> для чистоты "эксперимента" желательно из набора ABC6 и панельку навигации
вот в этом наверное и проблема (если она есть, так и не понял в чем выражается, но по коственным данным...)
замени свои abcHDBGrid на стандартные DBGrid-ы и попробуй повторить свои эксперементы.

вполне допускаю что компанент написан с использованием внутренних счетчиков, скорее всего порядкового номера записи, тогда становится понятным глюк (ну нельзя на порядковый номер закладыватся в клиент серверных базах...) и странная ошибка "Grid index out of range." идет от грида а не от базы/рекордсета как ожидается) (ну мало ли что там создатель выдает).

насчет автоинкремента, абсолютно правильное поведение, счетчик только увеличивается и увеличивается в момент добавления записи, что с ней будет дальше неважно останентся или удалится, счетчик останется уже увеличенным.

никаких эксперементов не проводил ввиду отсутствия всяких левых компонент, а в стандартных уверен, уже столько всего работает, что если бы было то наверняка ктонибуди в это 255 уткнулся бы...

Что-то мне кажется, что автор вопроса просто прикалывается...

Поменяйте тип счетчика с Byte на Integer (Байт на Целое).

Посмотрите, может у этого abcDBGrid есть параметры типа DefaultRowCount или MaxRowCount или нечто подобное, установленное в 255 (хотя такого быть не должно).

Настоятельно рекомендую, использовать пока обычный DBGrid, ищите обновления к ABC компонентам.

GOTO и EXIT вносят элемент запутывания, так что со временем вы сами с трудом разберетесь как работает ваша программа. На будущее, постарайтесь забыть о существовании GOTO/EXIT.

← →
buka (2004-09-09 11:43) [26]

Спасибо что ответили. Я некоторое время не прсматривал форум (был занят).никаких "приколов" с моей стороны не было.
Sniiknik, если правильно понял вот это:"насчет автоинкремента, абсолютно правильное поведение... " и т.д., фактически подтвердил закономерность поведения записи.
DBGrid - менял на простой - ничего не меняется. такое впечатление, что хотя "отражение" вот такого поведения вставляемых записей идет в DBGride, но сам "кавардак" - происходит в таблице. Хотя при наблюдении этой же таблицы через Access - все "чики-чики".
Defunct! счетчик (если Вы имеете ввиду автоинкремент) мною использовался лишь для наблюдения и выявления той закономерности о которой Вы, как следует из вашего замечания знаете.
GOTO - непосредственно в программке используется только лишь один раз - при рассмотрении пароля для ввода в програмку. Остальные lb, мною просто не удалены, а использовались на этапе отладки программы.
(Я знаю отношение программистов к GOTO, но в тоже время некоторые серьезные авторы книг по программированию, считают, что зря отказываться от GOTO если програмка будет выглядеть проще).Но в любом случае спасибо за доброжелание и уделенное внимание.Больше я пока беспокоить Вас не буду. А сейчас наблюдается следующая картинка: все вновь добавляемые записи идут по порядку, так как я их и нумерую, но как вот начали писаться после, например, 237 - так и пишутся, а после них идут 238, и т.д. до 241, т.е те по которым я изначально увидел проблемку. И... сообщение как выскакивало, так и выскакивает. Ну да ладно буду сам разбираться.
Спасибо всем.

Роковое число 255! Найти похожие ветки