Показать сообщение отдельно
  #1  
Старый 18.02.2015, 16:30
Вовайн Вовайн вне форума
Новичок
 
Регистрация: 14.02.2015
Сообщения: 68
Версия Delphi: Delphi EX7 21
Репутация: 10
По умолчанию В чем ошибка кнока добавления в заказ


код конпки

Код:
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 там создана пустая таблица заказы с полями название и цена.
Ответить с цитированием