Olá. Alguém pode dar uma mão? Uso ADO+ ACCESS. O que está errado no meu update abaixo(Raised Exception class EoleException with message 'Objeto parameter definido incorretamente. As informações são inconsistentes ou incompletas'.), pois gostaria que ao localizar o registro já existente, fizesse um update(para alterar o registro existente e evitar a duplicidade de registros). Caso contrário, salvar os demais dadoas do Listview. procedure TForm1.BitBtnSalvarClick(Sender: TObject);
Var i : Integer;
begin
inherited;
DM2.ADOQry.SQL.Clear;
DM2.ADOQry.Close;
for i := 0 to item.Items.Count - 1 do
begin
DM2.ADOQry.SQL.text:= 'Select * from tab Where num_processo like :ParamNumProcListview';
DM2.ADOQry.Parameters.ParamByName('ParamNumProcListview').Value:=(item.Items[i].SubItems[0]);
DM2.ADOQry.Open;
if not DM2.ADOQry.IsEmpty then
begin
showmessage(dm2.ADOQrynum_processo.Value);
//DM2.ADOQry.Close;
//DM2.ADOQry.SQL.Clear;
with dm2.ADOQry do
begin
DM2.ADOQry.SQL.Add('Update tab set nome= :ParamNomeListview, num_processo= :ParamNumProcListview, obs= :ParamObsListview where num_processo= :ParamNumProcListview');
DM2.ADOQry.Parameters.ParamByName('ParamNomeListview').Value:=(item.Items[i].Caption);
DM2.ADOQry.Parameters.ParamByName('ParamNumProcListview').Value:=(item.Items[i].SubItems[0]);
DM2.ADOQry.Parameters.ParamByName('ParamObsListview').Value:=(item.Items[i].SubItems[1]);
showmessage(item.Items[i].Caption);
DM2.ADOQry.ExecSQL;
end;
end
else
begin
//DM2.ADOQry.Close;
//DM2.ADOQry.Open;
DM2.ADOQry.Insert;
DM2.ADOQry.FieldByName('nome').AsString:= item.Items[i].Caption;
DM2.ADOQry.FieldByName('num_processo').AsString:= item.Items[i].SubItems[0];
DM2.ADOQry.FieldByName('obs').AsString:= item.Items[i].SubItems[1];
DM2.ADOQry.Post;
end;
end;
item.Clear;
Edit1.SetFocus;
end; Obrigado...
