[Re3oFFer]

Добрый вечер друзья помогите не могу закончить свой код, что нужно писать дальше??

Код:

procedure TForm2.Button1Click(Sender: TObject);
begin
with Form1.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add (' Insert into spravo4nik (Name, Doljnost,gazov,gorodskoy,sotov,' );
SQL.Add (' ip,fax,portativnaya,mobile,stacionar,abonent,kabinet)' );
SQL.Add (' values (:Name,: Doljnost,:gazov,:gorodskoy,:sotov,:ip,:fax,)' );
SQL.Add (' values (: portativnaya,:mobile,:stacionar,:abonent,:kabinet)' );
Parameters.ParamByName('Name, Doljnos, gazov, gorodskoy, sotov, ip, fax, portativnaya, mobile, stacionar, abonent, kabinet');

Админ: Пользуемся тегами для оформления кода!

[Re3oFFer]

Спасибо админ учту в следующий раз =)

[lmikle]

1. ParamByName принимает имя ОДНОГО параметра и возвращает ссылку на соотв. объект, через методы которого и устанавливается значение данного параметра.
2. Дальше вызывается SQL.ExecSQL.

[Re3oFFer]

вот так должно получится???

procedure TForm2.Button1Click(Sender: TObject);
begin
with Form1.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add (' Insert into spravo4nik (Name,Doljnost,gazov,gorodskoy,sotov,' );
SQL.Add (' ip,fax,portativnaya,mobile,stacionar,abonent,kabinet)' );
SQL.Add (' values (:Name,:Doljnost,:gazov,:gorodskoy,:sotov,:ip,:fax,)' );
SQL.Add (' values (:portativnaya,:mobile,:stacionar,:abonent,:kabinet)' );
Parameters.ParamByName('Name,Doljnos,gazov,gorodskoy,sotov,ip,fax,portativnaya,mobile,stacionar,abonent,kabinet');
ExecSQL;
SQL.Text:='select * from spravo4nik';
Open;

[lmikle]

Нет.

Строка

Код:

Parameters.ParamByName('Name,Doljnos,gazov,gorodskoy,sotov,ip,fax,portativnaya,mobile,stacionar,abonent,kabinet');

Неправильная.

Должно быть что-то вида:

Код:

Parameters.ParamByName('Name').AsString := 'value';

И так для каждого параметра.

[Re3oFFer]

не получается пишет ошибку

[DCC Error] Unit2.pas(78): E2003 Undeclared identifier: 'AsString'

[NumLock]

Код:

  ADOQuery1.Parameters.ParamByName('zzz').Value:='zzz';
  ADOQuery1.Parameters.ParamByName('xxx').Value:=123;

[Re3oFFer]

Всё спасибо я уже разобрался на работе =))

[Klassenas]

А не проще вместо SQL использовать методы компонента ADOQuery:

Код:

ADOQuery1.Insert;{Append, Edit}
ADOQuery1.Fields.FieldByName('FieldName').AsString:='value';
ADOQuery1.Post;

Я могу ошибаться, но думаю, что лучше использовать простые решения.

[NumLock]

простое решение не всегда правильное и тем более работающее