ADOQuery.Parameters.ParamByName

[ТипичныйСтудент]

есть 2 таблицы одной бд sqlite3:

CREATE TABLE [it] (
[id] INTEGER  NULL,
[name] VARCHAR(20)  NULL,
[zavnom] VARCHAR(15)  NULL,
[invnom] VARCHAR(15)  NULL,
[mesto] VARCHAR(15)  NULL,
[user] VARCHAR(10)  NULL,
[po] VARCHAR(15)  NULL,
[licenz] VARCHAR(10)  NULL,
[foto] BLOB  NULL
)
CREATE TABLE [vibor] (
[idv] INTEGER  NULL,
[masterid] INTEGER  NULL,
[userv] VARCHAR(15)  NULL
)

на форме дельфи имеется ADOQuery, в котором SQL:

select * from vibor 
inner join it on vibor.masterid= it.id

так же есть 2 DBGridEh и 2 кнопки: "Выбрать" и "Возврат".
"Выбрать"

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  DataSource1.DataSet.Active:=True;
  ADOQuery1.Open;
  ADOQuery1.Append;
  ADOQuery1.FieldByName('idv').Value        :=  Form1.DataSource1.Dataset.FieldByName('id').Value;
  ADOQuery1.FieldByName('userv').Value     :=  Form1.DataSource1.Dataset.FieldByName('user').Value;
  ADOQuery1.FieldByName('masterid').Value :=  Form1.DataSource1.Dataset.FieldByName('id').Value;
  ADOQuery1.Post;
  ADOQuery1.Active    := False;
  ADOQuery1.Active    := True;
  ADODataSet1.Active := False;
  ADODataSet1.Active := True;
end;

"Возврат"

procedure TForm1.Button2Click(Sender: TObject);
begin
  try

   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add('DELETE FROM vibor WHERE idv=:prm');
   ADOQuery1.Parameters.ParamByName('prm').Value:= idv;
   ADOQuery1.ExecSQL;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add('select * from vibor inner join it on vibor.masterid= it.id ');
   ADOQuery1.Active:=True;

  except
   on e:Exception do
  en

параметр prm создан в дизайне, Datatype:=ftInteger.
но вот в чем проблема, ругается на столбец itv, мол нет его (хотя он то есть)! если вместо itv написать другое условие - работает, но мне нужно именно itv, т.е. чтоб удалялась текущая запись.

подскажите, пожалуйста...

[Stilet]

ругается на столбец itv,мол нет его (хотя он то есть)

Где? Я только [idv] INTEGER NULL, вижу.

Еще такой момент:

ADOQuery1.Parameters.ParamByName('prm').Value:= idv;
ADOQuery1.SQL.Add('DELETE FROM vibor WHERE idv=:prm');

параметры по идее сначала определяй.

И еще: Текст ошибки нужно приводить дословно.

[ТипичныйСтудент]

Сообщение от Stilet

Где? Я только [idv] INTEGER NULL, вижу.

Еще такой момент:

ADOQuery1.Parameters.ParamByName('prm').Value:= idv;
ADOQuery1.SQL.Add('DELETE FROM vibor WHERE idv=:prm');

параметры по идее сначала определяй.

И еще: Текст ошибки нужно приводить дословно.

[Error] Unit1.pas(293): Undeclared identifier: 'idv' при запуске проекта, т.е. в строке

ADOQuery1.Parameters.ParamByName('prm').Value:= idv;

если поменяю эти строчки местами (определение параметров и удаление), то не работает=(

[Stilet]

Undeclared identifier: 'idv'

Это не относится к БД. Он не на поле ругается )
У тебя нет в программе переменной idv.

[ТипичныйСтудент]

хм, создала переменную

var
idv: integer;

в код на кнопку добавила

procedure TForm1.SpeedButton2Click(Sender: TObject);
    idv:=ADOQuery1.FieldByName('idv').Value;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add('DELETE FROM vibor WHERE idv=:prm');
   ADOQuery1.Parameters.ParamByName('prm').Value:= idv;
   ADOQuery1.ExecSQL;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add('select * from vibor inner join it on vibor.masterid= it.id ');
   ADOQuery1.Active:=True;

  except
   on e:Exception do
  end;
end;

теперь запускается, но ничего не делается....
_________________________
ВСЕ РАБОТАЕТ!!!!!!!!!!!!!!!!!!!!!!
ОГРОМНОЕ, ОГРОМНОЕ, ОГРОМНОЕ СПАСИБО!!!!!!

[Serge_Bliznykov]

Послушайте мой совет - создайте ОТДЕЛЬНЫЙ запрос для удаления данных,не трогайте Вы ADOQuery1 - пусть он служит только для отображения данных!


hint. просто киньте на форму ещё один TADOQuery, пропишите ему прямо в DesingTime текст запроса DELETE...., и добавьте нужный параметр

[evg_m]

хм, создала переменную

теперь запускается, но ничего не делается....

Но ведь ее еще надо и задать (присвоить ей некотрое значение), а именно
значение поля idv текущей записи (той которую хотите удалить).

[ТипичныйСтудент]

Сообщение от evg_m

теперь запускается, но ничего не делается....

Но ведь ее еще надо и задать (присвоить ей некотрое значение), а именно
значение поля idv текущей записи (той которую хотите удалить).

правда?
а ниже посмотреть? я ж написала, что в код добавила строку, где и ПРИСВОИЛА ПЕРЕМЕННОЙ ЗНАЧЕНИЕ

idv:=ADOQuery1.FieldByName('idv').Value;

учту, просто у меня этот DBGridEh не основной и нужен для выборки как-раз таки нескольких данных из основного, так что думаю и так (с одним ADOQuery1) ничего страшного не будет...
а на будущее учту, спасибо!

[Stilet]

запускается, но ничего не делается....

procedure TForm1.SpeedButton2Click(Sender: TObject);
    idv:=ADOQuery1.FieldByName('idv').Value;
   ADOQuery1.active:=false;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add('DELETE FROM vibor WHERE idv=:prm');
   ADOQuery1.Parameters.ParamByName('prm').Value:= idv;
   if ADOQuery1.ExecSQL=0 then ShowMessage('Нет строк на удаление');

   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add('select * from vibor inner join it on vibor.masterid= it.id ');
   ADOQuery1.Active:=True;

  except
   on e:Exception do
  end;
end;

[ТипичныйСтудент]

спасибо! я вроде не мелким шрифтом написала, что все заработало...=) но все равно спасибо! с сообщением действительно лучше!!!