![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Лишняя запись в БД и ошибка (Pascal)
zigzac © (2014-05-24 11:05:00)Всем привет!!!!!!!!!!!!!!
У меня 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.
Спасибо.
(2015-10-20 20:36:00) [1]Удалено модератором
(2015-10-20 17:00:00) [2]Удалено модератором
junglecat (2014-05-27 17:10:00) [3]Удалено модератором
Dennis I. Komarov (2014-05-27 17:00:00) [4]Удалено модератором
Дмитрий (2014-05-26 15:45:00) [5]На каждой форме свой вопрос нарисован?
На одной форме отображать никак?
junglecat (2014-05-25 00:53:00) [6]> когда дедушки (бородатые) так именуют - расстрел через повешание
а дедушкам уже ничего не страшно o)
> номеру вопроса, ну не "F3", так "Answer3"
"AnswerNumberOne"
Inovet (2014-05-25 00:42:00) [7]> [19] turbouser © (25.05.14 00:21)
Кто бы спорил, я там следующим пунктом наметил возможный пересмотр структуры. А в существующей только так и именовать - по номеру вопроса, ну не "F3", так "Answer3", но тогда уж как раз "A3".
turbouser (2014-05-25 00:21:00) [8]
> Inovet ©
просто человеки, которые студенты - им простительно, а вот когда дедушки (бородатые) так именуют - расстрел через повешание. плавали, знаем :(
turbouser (2014-05-25 00:18:00) [9]
> novet © (24.05.14 23:22) [17]
>
> > [16] turbouser © (24.05.14 23:17)
> > особенно за "F3"
>
> "3" лучше?
>
лучше имена раздовать адекватно.
Inovet (2014-05-24 23:22:00) [10]> [16] turbouser © (24.05.14 23:17)
> особенно за "F3"
"3" лучше?
turbouser (2014-05-24 23:17:00) [11]
> Inovet © (24.05.14 20:38) [12]
> Кстати, имена полей типа "3" как-то не того, хотя бы "F3"
> назвать.
поубивал бы(с) особенно за "F3"
zigzac (2014-05-24 22:10:00) [12]спасибо ребят. я уже разобрался.
диалог прикольный.
я и не старался умным показаться. я ж не на экзамене.(это про высшее образование зацепило).
может по ходу еще вопросы будут напишу.
СПАСИБО!
Антоха (2014-05-24 21:53:00) [13]Сорок форм с вопросами это сильно.... Чувствую профи писал прогу ;)
Palladin (2014-05-24 21:12:00) [14]
> Inovet © (24.05.14 20:05) [10]
Это возможно уже даже из глонасс-5
Секретная разработка
Еще не все получается
Inovet (2014-05-24 20:38:00) [15]> [11] junglecat (24.05.14 20:16)
Навигация поездов и самолётов. Тоже неплохо.
Кстати, имена полей типа "3" как-то не того, хотя бы "F3" назвать.
Про то что лучше: ответы в одной записи в разных полях хранить или в разных записях с номером задания, можно потом обсудить.
junglecat (2014-05-24 20:16:00) [16]судя по слову 'чемодан', это что-то связанное с поездами или самолетами...
Inovet (2014-05-24 20:05:00) [17]> [9] Palladin © (24.05.14 19:49)
> наверное уже разрабатывает )
Хочешь сказать, это приведён кусок кода из Глонасс-4?
Palladin (2014-05-24 19:49:00) [18]наверное уже разрабатывает )
Palladin (2014-05-24 19:49:00) [19]образование высшее )
Palladin (2014-05-24 19:48:00) [20]
> я зачисляю в ячейки значения
откуда это слово "зачисляю"
с форматированием кода беда
в башке беда
просьба помочь сдать и отвязаться
через три года будет разрабатывать глонасс 4