Запрос на добавление записи

procedure TForm1.BitBtn2Click(Sender: TObject);
var str:string;
z1:integer;
z2,z3,z4,z5,z6,z7,z8,z9,z10:string;
begin
z1:=5;
z2:='Иван';
z3:='Иванов';
z4:='Шолмова';
z5:='Москва';
z6:='432000';
z7:='Московская';
z8:='Россия';
z9:='УлГТУ';
z10:='Инженер';
form1.ADOQuery2.SQL.Clear;
str:='INSERT INTO Контакты(`Код`,`Имя`,`Фамилия`,`Адрес`,`Город,`Индекс`,`Область`,`Страна`,`Компания`,`Должность`)VALUES(:z1,:z2,:z3,:z4,:z5,:z6,:z7,:z8,:z9,:z10)';
form1.ADOQuery2.SQL.add(str);
[b]form1.ADOQuery2.Parameters.ParamByName('z1').Value:=z1;[/b]-
тут выдает ошибку ,говорит что параметр z1 не найден.
form1.ADOQuery2.Parameters.ParamByName('z2').Value:=z2;
form1.ADOQuery2.Parameters.ParamByName('z3').Value:=z3;
form1.ADOQuery2.Parameters.ParamByName('z4').Value:=z4;
form1.ADOQuery2.Parameters.ParamByName('z5').Value:=z5;
form1.ADOQuery2.Parameters.ParamByName('z6').Value:=z6;
form1.ADOQuery2.Parameters.ParamByName('z7').Value:=z7;
form1.ADOQuery2.Parameters.ParamByName('z8').Value:=z8;
form1.ADOQuery2.Parameters.ParamByName('z9').Value:=z9;
form1.ADOQuery2.Parameters.ParamByName('z10').Value:=z10;
form1.ADOQuery2.ExecSQL;
form1.ADOQuery2.Close;
form1.ADOQuery2.SQL.Text:='select * from Контакты';
form1.ADOQuery2.Open;
end;



не подскажите в чем дело, вроде все верно...

virusserf, перед красной строкой надо написать: form1.ADOQuery2.Parameters.Refresh();.

1) оформируй код на SRC что легко понять что написано
2) сдклай Prepare

Ramin,

TDataSet.ParamCheck + F1

Ega
Ramin, TDataSet.ParamCheck + F1

???

Для начала заменить на TAdoCommand

И что то очень подозрительные кавычки, из мира Линукс

RENaissance
virusserf, перед красной строкой надо написать: form1.ADOQuery2.Parameters.Refresh();.

не помогло

Anatoly Podgoretsky
Для начала заменить на TAdoCommand

что именно имеете ввиду?

procedure TForm1.BitBtn2Click(Sender: TObject);
var str:string;
 z1:integer;
 z2,z3,z4,z5,z6,z7,z8,z9,z10:string;
 begin
 z1:=5;
 z2:='Иван';
 z3:='Иванов';
 z4:='Шолмова';
 z5:='Москва';
 z6:='432000';
 z7:='Московская';
 z8:='Россия';
 z9:='УлГТУ';
 z10:='Инженер';
 form1.ADOQuery2.SQL.Clear;
 str:='INSERT INTO Контакты(`Код`,`Имя`,`Фамилия`,`Адрес`,`Город,`Индекс`,`Область`,`Страна`,`Компания`,`Должность`)VALUES([color=red]5,Иван[/color],:z3,:z4,:z5,:z6,:z7,:z8,:z9,:z10)';
 form1.ADOQuery2.SQL.add(str);
// form1.ADOQuery2.Parameters.ParamByName('z1').Value:=z1;
// form1.ADOQuery2.Parameters.ParamByName('z2').Value:=z2;
 form1.ADOQuery2.Parameters.ParamByName('z3').Value:=z3;
 form1.ADOQuery2.Parameters.ParamByName('z4').Value:=z4;
 form1.ADOQuery2.Parameters.ParamByName('z5').Value:=z5;
 form1.ADOQuery2.Parameters.ParamByName('z6').Value:=z6;
 form1.ADOQuery2.Parameters.ParamByName('z7').Value:=z7;
 form1.ADOQuery2.Parameters.ParamByName('z8').Value:=z8;
 form1.ADOQuery2.Parameters.ParamByName('z9').Value:=z9;
 form1.ADOQuery2.Parameters.ParamByName('z10').Value:=z10;
 form1.ADOQuery2.ExecSQL;
 form1.ADOQuery2.Close;
 form1.ADOQuery2.SQL.Text:='select * from Контакты';
 form1.ADOQuery2.Open;
 end

Когда тупо вбил значения для первых двух- ошибку начал выдавать на 3 параметре