обработка для базы данных InterBase. Как правильно написать код чтобы по нажатию кнопки выполнялись sql-запросы. я написал нечто вроде
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | procedure TForm1 . Button1Click(Sender: TObject);
var
sqlRequest: string ;
begin
sqlRequest := 'INSERT INTO TOVARY(TOVAR, ED_IZM, ZENA) VALUES (' пиво '' , '' бутылка '' , 300 );';
IBQuery1 . SQL . Clear;
IBQuery1 . SQL . Add(sqlRequest);
sqlRequest := 'COMMIT;' ;
IBQuery1 . SQL . Clear;
IBQuery1 . SQL . Add(sqlRequest);
IBQuery1 . Active := true ;
DataSource1 . DataSet := IBQuery1;
end ;
|
что неправильно написано ?