Delphi с компонентами ZEOS

@Valentin-TT · Регистрация: 20.04.2015

Author24 — интернет-сервис помощи студентам

На форме имеются компоненты Label1, Button1 , ZConnection, и ZQuery (Данные компоненты подключены к БД)

Необходимо чтобы текст с Label1 записывался в БД(inform) (таблица test) при нажатии на Button1

Вот код при нажатии на Button1:

Delphi

procedure TForm1.Button1Click(Sender: TObject); 
begin
ZQuery1.SQL.Clear;
ZQuery1.sql.text:=('INSERT INTO  test (`FIO` ,`Ocen` ,`Test`) VALUES ''%'+Label1.Caption+'%''');
ZQuery1.Active:=True;
end;

Но при нажатии выдаёт ошибку SQL запроса

@andrey_k3 · 11.06.2015, 08:02

для селектов - ZQuery1.Open;
для модификаторов - ZQuery1.ExecSQL;
т.е.

Delphi

procedure TForm1.Button1Click(Sender: TObject); 
begin
ZQuery1.Active:=False;
ZQuery1.SQL.Clear;
//ZQuery1.sql.text:=('INSERT INTO  test (`FIO` ,`Ocen` ,`Test`) VALUES ''%'+Label1.Caption+'%''');
//Три поля, а значение для вставки передается одно.
//Либо указывать одно поле в INTO, либо дописывать значения для остальных полей
//Например:
ZQuery1.sql.text:=('INSERT INTO test(`FIO`,`Ocen`,`Test`) VALUES (:FIO,:Ocen,:Test)');
ZQuery1.Params.ParamByName('FIO').Value:= Label1.Caption;
ZQuery1.Params.ParamByName('Ocen').Value:= 5;
ZQuery1.Params.ParamByName('Test').Value:= 'qwerty';
ZQuery1.ExecSQL;
end;

@Valentin-TT · 11.06.2015, 10:28 **[ТС]**

andrey_k3, Спс)) всё получилось)

@Valentin-TT 5 / 5 / 5 Регистрация: 20.04.2015 Сообщений: 196
	11.06.2015, 10:28 [ТС]	3
	andrey_k3, Спс)) всё получилось) 0