[molos]

Здравствуйте! Необходимо внести данные в таблицу используя значения Edit1 и Edit2. При этом внести их нужно в поля Базы Данных Access StudentID и StudentName, где TeacherID равен значению из Edit3.

Код:

ADOQuery1.SQL.Add('INSERT INTO GradeTable (StudentID, StudentName) VALUES (ID, Name);');
ADOQuery1.Parameters.ParamByName('ID').Value := StrToInt(Edit1.Text);
ADOQuery1.Parameters.ParamByName('Name').Value := Trim(Edit2.Text);

Пробовал делать так, но это лишь вводит данные в новую строку, а мне нужно чтобы добавляло в уже существующую, где TeacherID=Edit3.Text
Заранее благодарен за любую помощь

[lmikle]

Код:

... VALUES (:ID, :name)...

И настрой параметры в компоненте.

[sailen]

новая запись

Код:

ADOQuery1.Active:=True;
ADOQuery1.insert;
ADOQuery1.FieldByName('StudentID').AsString:= Edit1.Text;
ADOQuery1.FieldByName('StudentName').AsString:= Edit2.Text;
ADOQuery1.FieldByName('TeacherID').AsString:= Edit3.Text;
ADOQuery1.Post;

изменение записи

например двойной клик по гриду едиты получат значение

Код:

Edit1.Text:= DBGrid1.DataSource.DataSet.FieldByName('StudentID').AsString;
Edit2.Text := DBGrid1.DataSource.DataSet.FieldByName('StudentName').AsString;
Edit3.Text := DBGrid1.DataSource.DataSet.FieldByName('TeacherID').AsString;

изменяешь значения едита

например кнопка " Изменить "

Код:

ADOQuery1.Active:=True;
ADOQuery1.Edit;
ADOQuery1.FieldByName('surname').AsString:= Edt1.Text;
ADOQuery1.FieldByName('username').AsString:= Edt2.Text;
ADOQuery1.FieldByName('patronumic').AsString:= Edt3.Text;
ADOQuery1.Post;