Добавление записи в таблицу

[Galiska]

для добавления записи пишу такой код:

with TADOQuery.create(self) do
    begin
      SQL.Clear;
      SQL.Add(' INSERT INTO Успеваемость (КУспеваемоти, КГуппы, КСтудента, КУчебногоГода, КСеместра, КДисциплины, КЛектора, КФормы, ' + 
' Оценка после сессии, Оценка после пересдачи, Баллы после сессии, Баллы после пересдачи, ECTS после сессии, ECTS после пересдачи) ' +
      ' VALUES (null, :group, :fio, :god, :semestr, :discip,:Lek,:forma, :ops, :opp, :ballis, :ballip, :bps, :bpp)');
      Parameters.ParamByName('fio').Value:=ComboBox1.text;
      Parameters.ParamByName('ops').Value:=OS;
      Parameters.ParamByName('bps').Value:=BS;
      Parameters.ParamByName('opp').Value:=OP;
      Parameters.ParamByName('bpp').Value:=BP;
      Parameters.ParamByName('ballis').Value:=Edit3.Text;
      Parameters.ParamByName('ballip').Value:=Edit4.Text;
      Parameters.ParamByName('group').Value:=Form_Yspev.ComboBox4.Text;
      Parameters.ParamByName('god').Value:=Form_Yspev.ComboBox5.Text;
    Parameters.ParamByName('semestr').Value:=Form_Yspev.ComboBox6.Text;
      Parameters.ParamByName('Lek').Value:=Form_Yspev.ComboBox7.Text;
      Parameters.ParamByName('discip').Value:=Form_Yspev.ComboBox8.Text;
      Parameters.ParamByName('forma').Value:=Form_Yspev.ComboBox9.Text;
      ExecSQL;
      ComboBox1.Text:='';
      Edit3.Text:='';
      Edit4.Text:='';
      ShowMessage('Запись добавлена!');
    end;

При выполнении данного запроса программа вылетает с ошибкой: Project Project1.exe raised exception class EDatabaseError with message 'Parameter 'fio' not found'
Возможно эта ошибка из-за того, что тип полей (КСтудента, КГруппы и т.д.) в Access прописан как числовой, а я пытаюсь присвоить строку. Писала немного иначе, присваивала именно код, но тогда вылетает с ошибкой, что-то вроде ошибка при чтении с адреса... Подскажите пожалуйста как исправить, я с самого утра над этим сижу, весь ваш форум перекопала(( Заранее спасибо.

[artemavd]

Не знаю, имеет ли это в принципе значение, но все же желательно задавать параметры в таком же порядке, в каком происходит вставка в поля. Я имею ввиду вот так:

with TADOQuery.create(self) do
    begin
      SQL.Clear;
      SQL.Add(' INSERT INTO Успеваемость (КУспеваемоти, КГуппы, КСтудента, КУчебногоГода, КСеместра, КДисциплины, КЛектора, КФормы, ' + 
' Оценка после сессии, Оценка после пересдачи, Баллы после сессии, Баллы после пересдачи, ECTS после сессии, ECTS после пересдачи) ' +
      ' VALUES (null, :group, :fio, :god, :semestr, :discip,:Lek,:forma, :ops, :opp, :ballis, :ballip, :bps, :bpp)');
      Parameters.ParamByName('group').Value:=Form_Yspev.ComboBox4.Text;
      Parameters.ParamByName('fio').Value:=ComboBox1.text;
      Parameters.ParamByName('god').Value:=Form_Yspev.ComboBox5.Text;
      Parameters.ParamByName('semestr').Value:=Form_Yspev.ComboBox6.Text;
      Parameters.ParamByName('discip').Value:=Form_Yspev.ComboBox8.Text;
      Parameters.ParamByName('Lek').Value:=Form_Yspev.ComboBox7.Text;
      Parameters.ParamByName('forma').Value:=Form_Yspev.ComboBox9.Text;
      Parameters.ParamByName('ops').Value:=OS;
      Parameters.ParamByName('opp').Value:=OP;
      Parameters.ParamByName('ballis').Value:=Edit3.Text;
      Parameters.ParamByName('ballip').Value:=Edit4.Text;
      Parameters.ParamByName('bps').Value:=BS;
      Parameters.ParamByName('bpp').Value:=BP;
      ExecSQL;
      ComboBox1.Text:='';
      Edit3.Text:='';
      Edit4.Text:='';
      ShowMessage('Запись добавлена!');
    end;

Так легче видеть что куда вставляется

Далее...

Возможно эта ошибка из-за того, что тип полей (КСтудента, КГруппы и т.д.) в Access прописан как числовой, а я пытаюсь присвоить строку.

Если так, то используйте функцию StrToInt. Например,

     Parameters.ParamByName('group').Value:=StrToInt(Form_Yspev.ComboBox4.Text);
      Parameters.ParamByName('fio').Value:=StrToInt(ComboBox1.text);

Пробуйте и рассказывайте: получилось или нет. Поможем

[Galiska]

Попробовала первый вариант, т.е. написать по порядку, вот так:

      Parameters.ParamByName('group').Value:=Form_Yspev.ComboBox4.Text;
      Parameters.ParamByName('fio').Value:=ComboBox1.text;
      Parameters.ParamByName('god').Value:=Form_Yspev.ComboBox5.Text;
и т.д.

Теперь оно ругается на параметр group...
А второй вариант: StrToInt. Мне он не подойдёт, т.к. я добавляю в таблицу в которой поля (КУспеваемоти, КГуппы, КСтудента, КУчебногоГода, КСеместра и т.д.) являются вторичными ключами, т.е. у них тип в любом случае числовой. А данные я ввожу строки, такие как (группа: ПО-06в или ПО-06а, ФИО: Степанов В. А. и т.д.), поэтому эти строки ни как не преобразуются в integer((.
Есть такой вариант на каждый параметр писать ещё один sql-запрос, который из первичных таблиц будет выбирать по введённой строке id(первичный ключ), а затем в приведённый мной запрос передавать уже выбранный id. Я это пыталась сделать, но оно вылетает с ошибкой (что-то вроде чтение по адресу...). Проверила свой запрос на выбор id, а он почему-то не присваивает id параметру, а следовательно и передавать нечего, скорее всего из-за этого и ошибка при чтении по адресу((.
Помогите, что мне с этим сделать((
Может я ошибаюсь с выбором id, может это можно по другому решить((

[artemavd]

Если Вы вставляете в поля нечислового типа, то не используйте StrToInt. В противном случае иначе.