Ошибка синтаксиса в Acceess

[Droid]

Народ помогите плз может вы найдете ошибку .... пол ночи сижу не понимаю че за ошибка, проверял раз 50 точно...Безымянный.JPG
----------------------------------------------------------

procedure TPOVOROT.Button5Click(Sender: TObject);
var
ds: string;
begin
Groupbox1.Caption:='Ппц';
ds:=dblcb9.Text;
dm.adoq_p.close;
dm.adoq_p.SQL.Clear;
dm.adoq_p.SQL.Add('SELECT data_ucheta AS [Дата учета],kol AS [Количество пац], vozrast AS [Возраст], prichina AS [Причина]');
dm.adoq_p.SQL.Add('FROM diagnoz,kabinet,pacient,prichina_netr,uchet,vozrast_p');
dm.adoq_p.SQL.Add('WHERE vozrast_p.id_vozrasta=pacient.id_vozrasta AND diagnoz.id_dz=pacient.id_dz AND kabinet.id_kabineta=pacient.id_kabineta');
dm.adoq_p.SQL.Add('AND prichina_netr.id_prichina_netudosp=pacient.id_prichina_netudosp AND uchet.id_uch=pacient.id_uch ');
dm.adoq_p.SQL.Add('AND dz=:d AND nomer_kab='+dblcb10.Text+'');
dm.adoq_p.Parameters.ParamByName('d').Value:=ds;
dm.adoq_p.Open;
DBGrid1.Columns[0].Width:=100;
DBGrid1.Columns[1].Width:=100;
DBGrid1.Columns[2].Width:=100;
DBGrid1.Columns[3].Width:=100;
end;

[soleil@mmc]

обрати внимание

dm.adoq_p.SQL.Add('AND dz=:d AND nomer_kab='''+dblcb10.Text+'''');
dm.adoq_p.prepare;
dm.adoq_p.Parameters.ParamByName('d').Value:=ds;

ну и вторую подстановку тоже можно через параметр сделать

[red404]

dm1.ADOQuery1.Close;
dm1.ADOQuery1.sql.Clear;
dm1.ADOQuery1.sql.Add('UPDATE Вычисления');
dm1.ADOQuery1.SQL.Add('SET ФИО=:p2, Номер_Компьютера=:p3, IP_адрес=:p4, Дата_начала=:p6, Дата_разрыва=:p7, Сумма=:pSUM, кол_во_мин=:p1 ');
DM1.ADOQuery1.SQL.Add('WHERE Номер_компьютера=:pkl1 AND Дата_начала=:pkl2 ');
//    showmessage(dm1.ADOQuery2.FieldByName('ФИО').AsString+'  '+dm1.ADOQuery2.FieldByName('Номер_Компьютера').AsString+'  '+dm1.ADOQuery2.FieldByName('IP_адрес').AsString+'  '+dm1.ADOQuery2.FieldByName('Дата_начала').AsString+'  '+dm1.ADOQuery2.FieldByName('Дата_разрыва').AsString);
dm1.ADOQuery1.prepared;
dm1.ADOQuery1.Parameters.ParamByName('p2').Value:=dm1.ADOQuery2.FieldByName('ФИО').AsString;
dm1.ADOQuery1.Parameters.ParamByName('p3').Value:=dm1.ADOQuery2.FieldByName('Номер_Компьютера').AsInteger;
dm1.ADOQuery1.Parameters.ParamByName('p4').Value:=dm1.ADOQuery2.FieldByName('IP_адрес').AsString;
dm1.ADOQuery1.Parameters.ParamByName('p6').Value:=dm1.ADOQuery2.FieldByName('Дата_начала').AsDateTime;
dm1.ADOQuery1.Parameters.ParamByName('p7').Value:=dm1.ADOQuery2.FieldByName('Дата_разрыва').AsDateTime;
dm1.ADOQuery1.Parameters.ParamByName('p1').Value:=sec3 div 60;
dm1.ADOQuery1.Parameters.ParamByName('pSUM').Value:=summa;
DM1.ADOquery1.Parameters.ParamByName('pkl1').Value:=strtoint(ComboBox1.Text);
DM1.ADOquery1.Parameters.ParamByName('pkl2').Value:=(datetostr(datetimepicker1.Date)+' '+Timetostr(DateTimePicker3.Time));
dm1.ADOQuery1.execsql;

А что делать в таком случае?
Ошибка осталась после добавления "prepared"

[red404]

Извиняюсь, перешёл сюда из этой темы..