18.02.2011, 18:51
|
 |
Специалист
|
|
Регистрация: 07.09.2007
Адрес: Украина, г. Днепропетровск
Сообщения: 892
Версия Delphi: 7 + ОгнеПтица
Репутация: выкл
|
|
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOTable1.Insert;
ADOTable1.FieldByName('Поле1').Value:='текст';
ADOTable1.Post;
end; |