
код конпки
Код:
procedure TForm10.Button1Click(Sender: TObject);
var
str:string;
begin
str:='insert into заказы ([Название],[Цена]) values ('+
dbgrd1.Columns[1].ToString +',"'+
dbgrd1.Columns[5].Tostring +')';
showmessage(dbgrd1.Fields[1].value);
showmessage(dbgrd1.Fields[5].value);
form69.ADOQuery1.SQL.Add(str);
form69.ADOQuery1.ExecSQL;
form69.ADOTable1.Active:=true;
form69.ADOTable1.Requery;
form69.DBGrid1.Refresh;
end;
MAD: Предупреждение! Оформляйте код правильно.
база acsess там создана пустая таблица заказы с полями название и цена.