"ADOQUERY3: Parameter 'p' not found" error (POR FAVOR AYUDA)

[[Caral]]

Hola
Lo que se me ocurre es que el adoquery2 no este open;
Saludos

[JuanchoDev]

begin
if edit2.Text = edit9.Text then
begin
adoquery2.Close;
adoquery2.SQL.Text:='select id from colaboradores where usuario= :f';
adoquery2.Parameters.ParamByName('f').Value:=edit1.Text;
adoquery2.Open;


alguna otra idea...?

[JuanchoDev]

El error estaba en:
adoquery4.Close;
adoquery4.SQL.Text:='select id from roles where rol= :w';
adoquery4.Parameters.ParamByName('w').Value:=combobox1.Text ;
adoquery4.Open;
adoquery3.Fields[9].AsInteger:=adoquery4.Fields[10].AsInteger;

No podia ser adoquery4.Fields[10].AsInteger;
Ya que el adoquery4 solo retorna Fields[0].asinteger...


Ahora para que te de 1 millon de gracias ;-)
Mira lo que me pasa...
En la primer iteracion corre bien y modifica todo
En la segunda modificacion (cuando cambio otro registro) da error "Objeto Parameter mal definido. Se proporciono informacion incompleta o incoherente"

adoquery4.Close;
adoquery4.SQL.Text:='select id from roles where rol=:f';
adoquery4.Parameters.ParamByName('f').Value:=combobox1.Text ;
adoquery4.Open;
adoquery3.Fields[9].AsInteger:=adoquery4.Fields[0].AsInteger ;
adoquery4.Close;
adoquery3.Fields[10].AsString:=edit10.Text;
adoquery3.Post;
showmessage('Registro modificado exitosamente!');
adoquery3.Close;


Como veras tomé la precaución de cerrar el qry4.close

Espero ideas y no te molesto mas!

[[Caral]]

Hola
Puedes colocar el codigo completo para verlo?.
Usa las etiquetas delphi, encierras el codigo entre :
[DELPHI ]aqui [ /DELPHI]
En el centro de estos pones el codigo.
Que base de datos usas?.
Saludos
PD: Si presionas avanzado veras un boton al lado del de sql, es el que pone las etiquetas.

[JuanchoDev]

Uso Access

Código Delphi [-]
 
procedure TForm3.Modificar1Click(Sender: TObject);
var cons1, cons2, cons3:string;

begin
if edit2.Text = edit9.Text then
begin
adoquery2.Close;
adoquery2.SQL.Text:='select id from colaboradores where usuario=';
adoquery2.Parameters.ParamByName('p').Value:=edit1.Text;
adoquery2.Open;
adoquery3.Close;
adoquery3.SQL.Add('select colaboradores.id, colaboradores.usuario, colaboradores.password, colaboradores.nombre,colaboradores.apellido, colaboradores.direccion, colaboradores.telefono, colaboradores.email, colaboradores.web,colaboradores.rol, colaboradores.fecha ');
adoquery3.SQL.Add('from colaboradores, roles ');
adoquery3.SQL.Add('where colaboradores.rol=roles.id and colaboradores.id=:a');
adoquery3.Parameters.ParamByName('a').Value:=adoquery2.Fields[0].AsString;
adoquery3.Open;
adoquery3.Edit;
adoquery3.Fields[1].AsString:=edit1.Text;
adoquery3.Fields[2].AsString:=edit2.Text;
adoquery3.Fields[3].AsString:=edit3.Text;
adoquery3.Fields[4].AsString:=edit4.Text;
adoquery3.Fields[5].AsString:=edit5.Text;
adoquery3.Fields[6].AsString:=edit6.Text;
adoquery3.Fields[7].AsString:=edit7.Text;
adoquery3.Fields[8].AsString:=edit8.Text;
//averiguo el rol
adoquery4.Close;
adoquery4.SQL.Text:='select id from roles where rol=:f';
adoquery4.Parameters.ParamByName('f').Value:=combobox1.Text  ;
adoquery4.Open;
adoquery3.Fields[9].AsInteger:=adoquery4.Fields[0].AsInteger ;
adoquery3.Fields[10].AsString:=edit10.Text;
adoquery3.Post;
showmessage('Registro modificado exitosamente!');

end
else
showmessage('Las Contraseñas no fueron confirmadas correctamente, deben ser iguales');

end;

[[Caral]]

Hola
A ver esto:

Código Delphi [-]
procedure TForm3.Modificar1Click(Sender: TObject);
var cons1, cons2, cons3:string;
begin
if edit2.Text = edit9.Text then
begin

adoquery2.Close;
adoquery2.SQL.Text:='select id from colaboradores where usuario= :X';
adoquery2.Parameters[0].Value:= edit1.Text;
adoquery2.Open;

adoquery3.Close;
adoquery3.SQL.Add('select colaboradores.id, colaboradores.usuario, colaboradores.password, colaboradores.nombre,colaboradores.apellido, colaboradores.direccion, colaboradores.telefono, colaboradores.email, colaboradores.web,colaboradores.rol, colaboradores.fecha ');
adoquery3.SQL.Add('from colaboradores, roles ');
adoquery3.SQL.Add('where colaboradores.rol=roles.id and colaboradores.id=:a');
adoquery3.Parameters[0].Value:= adoquery2.Fields[0].AsString;
adoquery3.Open;

//averiguo el rol
adoquery4.Close;
adoquery4.SQL.Text:='select id from roles where rol= :B';
adoquery4.Parameters[0].Value:= combobox1.Text  ;
adoquery4.Open;

adoquery3.Edit;
adoquery3.Fields[9].AsInteger:= adoquery4.Fields[0].AsInteger ;
adoquery3.Fields[10].AsString:= edit10.Text;
adoquery3.Fields[1].AsString:= edit1.Text;
adoquery3.Fields[2].AsString:= edit2.Text;
adoquery3.Fields[3].AsString:= edit3.Text;
adoquery3.Fields[4].AsString:= edit4.Text;
adoquery3.Fields[5].AsString:= edit5.Text;
adoquery3.Fields[6].AsString:= edit6.Text;
adoquery3.Fields[7].AsString:= edit7.Text;
adoquery3.Fields[8].AsString:= edit8.Text;
adoquery3.Post;
showmessage('Registro modificado exitosamente!');

end
else
showmessage('Las Contraseñas no fueron confirmadas correctamente, deben ser iguales');

end;

Saludos

[JuanchoDev]

che te agradezco la buena onda...