Динамическое заполнение Query запросом на обновление.

[Просто ПАрень]

Уже несколько дней ломаю голову, запрос на обновление просто отказывается выполнятся , не могу понять в чем проблема. Проверял запрос в акссесс- все работало. Если что, выдается ошибка "Слишком мало параметров. Требуется 2". Помогите, не могу понять в чем проблема? Вот код:
begin
i:=DbLookupComboBox1.KeyValue;
begin
with Query1 do
begin
Active := False;
SQL.Clear;
// SQL.TEXT:='UPDATE Персонал SET Персонал.Имя = "'+Edit1.Text+'", Персонал.Фамилия = "'+Edit2.Text+'", Персонал.Зарплата = '+Edit3.Text+', Персонал.Id_Должность = '+IntToStr(i)+#13#10+'WHERE Персонал.Id='+IntToStr(IDPers)+';';
SQL.TEXT:='UPDATE Персонал SET Персонал.Имя = "Василий", Персонал.Фамилия = "Уткин", Персонал.Зарплата = 4000, Персонал.Id_Должность =3 '+#13#10+' WHERE Персонал.Id= 2;';

ExecSQL;
end;
end;



Еще есть вариант такого кода:
with Query1 do
begin
Active := False;
SQL.Clear;
SQL.Add('UPDATE Ia?niiae SET Ia?niiae.Eiy = "'+Edit1.Text+'", Ia?niiae.Oaieeey = "'+Edit2.Text+'", Ia?niiae.Ca?ieaoa = '+Edit3.Text+', Ia?niiae.Id_Aie?iinou = '+IntToStr(i)+' WHERE Ia?niiae.Id=:id');
ParamByName('Id').AsInteger:=IDPers ;
ExecSQL;
end;
end;

[Просто ПАрень]

База MS Access, способ доступа - BDE, ключевое поле - ID. Все поля числового и текстового типа. Мне кажется ошибка из-за того что передается текст.
В чем причина и как это исправить? Заранее спасибо.

[Аватар]

Так попробуй

SQL.TEXT:='UPDATE [Персонал] SET [Имя] = :Name, [Фамилия] = :Fio, [Зарплата] = :Bablo, [Id_Должность] = :Position WHERE Id=:Id';
ParamByName('Name').AsString:=Edit1.Text;
ParamByName('Fio').AsString:=Edit2.Text;
ParamByName('Bablo').AsInteger:=StrToInt(Edit3.Text);
ParamByName('Position').AsInteger:=i;
ParamByName('Id').AsInteger:=IDPers;
ExecSQL;

[Просто ПАрень]

Спасибо, у меня все получилось, если кому интересно то вот код:

with Query1 do
begin
SQL.Clear;
SQL.Add('UPDATE Персонал SET Имя =:newI, Фамилия =:newF, Зарплата =:newZ, Id_Должности =:newId');
SQL.Add('WHERE Id=:Id');
ParamByName('newI').AsString:=Edit1 .Text;
ParamByName('newF').AsString:=Edit2 .Text;
ParamByName('newZ').AsInteger:=StrT oInt(Edit3.Text);
ParamByName('newId').AsInteger:=i;
ParamByName('Id').AsInteger:=IDPers ;
ExecSQL;
end;