![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Здравствуйте!
Задача: посредством ADOQuery и SQL-запроса осуществить ввод записи в таблицу oborud полей ur1,ur2,ur3,ur4,n_u,isp,rik,tim Вот такой вот код Код:
procedure TForm4.Oborud_sql2Execute(Sender: TObject); begin form4.Query2_oborud.SQL.Clear; form4.Query2_oborud.SQL.Add('INSERT INTO oborud (ur1,ur2,ur3,ur4,n_u,isp,rik,tim) VALUES (:ur1,:ur2,:ur3,:ur4,:n_u,:isp,:rik,:tim)'); form4.Query2_oborud.Parameters.ParamByName('ur1').Value := ur1; form4.Query2_oborud.Parameters.ParamByName('ur2').Value := ur2; form4.Query2_oborud.Parameters.ParamByName('ur3').Value := ur3; form4.Query2_oborud.Parameters.ParamByName('ur4').Value := ur3; form4.Query2_oborud.Parameters.ParamByName('n_u').Value := form5.Memo1.Text; form4.Query2_oborud.Parameters.ParamByName('isp').Value := form3.polz; form4.Query2_oborud.Parameters.ParamByName('rik').Value := StrToInt(form5.Edit1.Text); form4.Query2_oborud.Parameters.ParamByName('tim').Value := now; form4.Query2_oborud.Active := true; end; В чём накрутил, не подскажете? Последний раз редактировалось Red_Garry, 12.10.2012 в 21:39. |