добавление в бд

[6666]

у меня тест на delhi необходимо добавлять в базу данных сделанную в акцессе оценку полученную за тест. как это реализовать? высказывайте свои идеи пожалуйста. или у кого нибудь есть примеры поделитесь плизз.
на рисунке показано какой переменной обозначается вывод оценки:

[maLoy*508]

А зачем использовать файлы?
проще все хранить в аксесовской базе...
реализовать можно по разному, на что фантазии хватит... конкретизируйте, пожалуйста, что Вы хотите?

[6666]

мне именно надо чтобы использовались файлы. вот эта переменная f сама оценка которая выводится в memo. у меня есть бд в акцессе. сам вопрос как сделать чтобы оценка добавлялась в базу. напротив фамилии человека который проходит данный тест? всем заранее спасибо.

[maLoy*508]

а фамилия человека откуда берется?
не совсем понимаю как Ваша "система" работает...
вставка записи в таблицу, может это Вам надо...

ADOTable1.Insert;
ADOTable1.FieldByName('bla bla bal').AsString := 'bla bla bla ';;
ADOTable1.Post;

[6666]

у меня сделана авторизация вводится фамилия имя отчество и выбирается вариант. вот процедура на добавление этих данных в бд:

ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('INSERT INTO [Таблица1] VALUES ('+QuotedStr(edit1.Text)+','+Quoted Str(combobox1.text)+','+QuotedStr(S ysUtils.DateToStr(Date))+')');
ADOQuery2.ExecSQL;

[maLoy*508]

если я правильно Вас понимаю то Вам нужно теперь вставить оценку соответственно введенной фамилии... если да - то можно использовать sql

Update 'обновляемое значение' SET 'новое значение' WHERE 'указываем условие'

пробуйте -)

[6666]

добавляю в бд следующей процедурой. вроде все правильно.
form5.ADOQuery2.SQL.Clear;
form5.ADOQuery2.SQL.Add('INSERT INTO [Таблица1] ([Оценко]) VALUES ('+IntToStr(oko)+') WHERE [фамилия]='+QuotedStr(s));
form5.ADOQuery2.ExecSQL;

выдает следующую ошибку(на рисунке). в чем причина?

[maLoy*508]

Там же написано "Пропущен символ ( ; ) в конце инструкции SQL"

form5.ADOQuery2.SQL.Add('INSERT INTO [Таблица1] ([Оценко]) VALUES ('+IntToStr(oko)+') 
WHERE [фамилия]='+QuotedStr(s)+';');

так попробуйте

[6666]

[QUOTEform5.ADOQuery2.SQL.Add('INSER T INTO [Таблица1] ([Оценко]) VALUES ("'+IntToStr(oko)+') WHERE [фамилия]='+QuotedStr(s)+'");');][/QUOTE]
так избавился от выше указанной ошибки. но возникла другая(((

[Serge_Bliznykov]

Сообщение от maLoy*508

Там же написано "Пропущен символ ( ; ) в конце инструкции SQL"

А вот далеко не всегда можно верить тому, что написано!!

Ребят, Вы что?! Какое WHERE в запросе на добавление данных по INSERT ?!!!

Asseess пытается сообщить, что он уже ожидает конец команды, а тут ещё что-то продолжается, какое-то WHERE левое..

INSERT вставляет данные в таблицу. ДОБАВЛЯЕТ ЕЩЁ ОДНУ ЗАПИСЬ. Добавляет строчку, если Вам так понятнее! И баста!
Никаких WHERE

а Вам, скорее всего нужен UPDATE

form5.ADOQuery2.SQL.Text := 'UPDATE [Таблица1] '+
'set [Оценко] = '+IntToStr(oko)+' WHERE [фамилия]='+QuotedStr(s);
form5.ADOQuery2.ExecSQL;