Лишняя запись в БД и ошибка (Pascal)

← →
zigzac © (2014-05-24 11:05) [0]

Всем привет!!!!!!!!!!!!!!
У меня 2 вопроса:
1. Почему ответ следующего столбика добавляется в запись на строчку ниже, а не в одну запись(строчку)?
Проблема в том , что получается нужны ответ в другой записи и цикл его не считает.

Так я зачисляю в ячейки значения :
procedure TForm1.Button1Click(Sender: TObject); var A:Integer; begin if edit1.Text="" then exit ; A:=StrToInt(Edit1.Text); if A=4 then begin ADOTable1.Open; ADOTable1.Insert; ADOTable1.FieldByName("1").AsString:="2"; ADOTable1.Post; ADoTable1.Close; form1.Hide; form2.Show; end else begin form1.Hide; form2.Show end; end;

И вот так :

procedure TForm5.Button1Click(Sender: TObject); var A:String; begin if edit1.Text="" then exit ; if edit1.Text="чемодан" then begin ADOTable1.Open; ADOTable1.Append; ADOTable1.FieldByName("3").AsString:="2"; ADOTable1.Post; form5.Hide; form6.Show; end else begin form5.Hide; form6.Show end; end;
2. Такая ошибка :

.............could not convert variant of type null into type integer.

Это когда цикл суммирует ответы(они не нулевые)(но лесенкой)(в каждой строке по ячейке=2,остальные =0)
procedure TForm43.Button1Click(Sender: TObject); var k,i:integer; begin k:=0; for I := 1 to 40 do k:=k+adotable1.Fields.Fields[i].Value; label2.caption:=IntToStr(k) end; end.
Спасибо.

← →
Плохиш © (2014-05-24 11:23) [1]

> 1. Почему ответ следующего столбика добавляется в запись
> на строчку ниже, а не в одну запись(строчку)?

Если я правильно понял сей бред, то пора прочитать справку по insert.

← →
Плохиш © (2014-05-24 11:25) [2]

> Это когда цикл суммирует ответы(они не нулевые)

Ты сообщению об ошибке верь, оно не обманывает ибо не умеет.

← →
zigzac © (2014-05-24 15:17) [3]

чем insert в моем случае заменить? Edit ставлю то же самое.

← →
turbouser © (2014-05-24 17:18) [4]

> zigzac © (24.05.14 15:17) [3]

насчет второго - Fields[i].Value у тебя там NULL есть. сопсна, текст ошибки о том и говорит. есть такие свойства у филда, как isnull (не помню точно.. нет инструментов под рукой :))
первое - инсерт и аппенд - добавление. если при едит у тебя появляются дубли - то тут уж никто не поможет до тех пор пока весь код не приведешь.

← →
zigzac © (2014-05-24 18:19) [5]

У меня 40 форм с вопросами. На каждой форме вводиш ответ в edit и нажимаеш buttun. открывается новая форма с вопросом и там разница либо ответ string или integer. в бд 40 полей от 1 до 40.при правильном ответе зачисляем 2 в столбец с номером вопроса. а в конце при нажатии на кнопку с помощью цикла суммируем результат.
3 кода выше привязанных к событию нажатия кнопки. больше ниче не прписывал. проблема в том что цикл считает из первой записи .....

← →
turbouser © (2014-05-24 18:55) [6]

> zigzac © (24.05.14 18:19) [5]

исходники будут? задолбало уже угадывать что там студиозусы накодили..

← →
Palladin © (2014-05-24 19:48) [7]

> я зачисляю в ячейки значения

откуда это слово "зачисляю"

с форматированием кода беда

в башке беда

просьба помочь сдать и отвязаться

через три года будет разрабатывать глонасс 4

← →
Palladin © (2014-05-24 19:49) [8]

образование высшее )

← →
Palladin © (2014-05-24 19:49) [9]

наверное уже разрабатывает )

← →
Inovet © (2014-05-24 20:05) [10]

> [9] Palladin © (24.05.14 19:49)
> наверное уже разрабатывает )

Хочешь сказать, это приведён кусок кода из Глонасс-4?

← →
junglecat (2014-05-24 20:16) [11]

судя по слову "чемодан", это что-то связанное с поездами или самолетами...

← →
Inovet © (2014-05-24 20:38) [12]

> [11] junglecat (24.05.14 20:16)

Навигация поездов и самолётов. Тоже неплохо.

Кстати, имена полей типа "3" как-то не того, хотя бы "F3" назвать.
Про то что лучше: ответы в одной записи в разных полях хранить или в разных записях с номером задания, можно потом обсудить.

← →
Palladin © (2014-05-24 21:12) [13]

> Inovet © (24.05.14 20:05) [10]

Это возможно уже даже из глонасс-5
Секретная разработка
Еще не все получается

← →
Антоха (2014-05-24 21:53) [14]

Сорок форм с вопросами это сильно.... Чувствую профи писал прогу ;)

← →
zigzac © (2014-05-24 22:10) [15]

спасибо ребят. я уже разобрался.
диалог прикольный.
я и не старался умным показаться. я ж не на экзамене.(это про высшее образование зацепило).
может по ходу еще вопросы будут напишу.
СПАСИБО!

← →
turbouser © (2014-05-24 23:17) [16]

> Inovet © (24.05.14 20:38) [12]

> Кстати, имена полей типа "3" как-то не того, хотя бы "F3"
> назвать.

поубивал бы(с) особенно за "F3"

← →
Inovet © (2014-05-24 23:22) [17]

> [16] turbouser © (24.05.14 23:17)
> особенно за "F3"

"3" лучше?

← →
turbouser © (2014-05-25 00:18) [18]

> novet © (24.05.14 23:22) [17]
>
> > [16] turbouser © (24.05.14 23:17)
> > особенно за "F3"
>
> "3" лучше?
>

лучше имена раздовать адекватно.

> Inovet ©

просто человеки, которые студенты - им простительно, а вот когда дедушки (бородатые) так именуют - расстрел через повешание. плавали, знаем :(

> [19] turbouser © (25.05.14 00:21)

Кто бы спорил, я там следующим пунктом наметил возможный пересмотр структуры. А в существующей только так и именовать - по номеру вопроса, ну не "F3", так "Answer3", но тогда уж как раз "A3".

← →
junglecat (2014-05-25 00:53) [21]

> когда дедушки (бородатые) так именуют - расстрел через повешание

а дедушкам уже ничего не страшно o)

> номеру вопроса, ну не "F3", так "Answer3"

"AnswerNumberOne"

← →
Дмитрий (2014-05-26 15:45) [22]

На каждой форме свой вопрос нарисован?
На одной форме отображать никак?

Удалено модератором

← →
junglecat (2014-05-27 17:10) [24]

Удалено модератором

← →
имя (2015-10-20 17:00) [25]

Удалено модератором

← →
имя (2015-10-20 20:36) [26]

Удалено модератором

Лишняя запись в БД и ошибка (Pascal) Найти похожие ветки