Hola
Ves, estoy mas perdido que tu.
Olvida el otro, no va a servir, este es:
Código Delphi
[-]
begin
i:=0;
cant:=DBListBox1.Count;
While (i <> cant) do begin
If(DBListBox1.Selected[i]=True)then
cod:=i+1;
i:=i+1;
end;
FormSistema.ADOQuery1.SQL.Text:='Select Cod_G From TContraseñas Where Cod_G = :cod ) ';
FormSistema.ADOQuery1.Parameters.ParamByName('cod').Value := StrToInt(Edit2.Text);
FormSistema.ADOQuery1.Active:=True;
end;
o tambien:
Código Delphi
[-]
begin
i:=0;
cant:=DBListBox1.Count;
While (i <> cant) do begin
If(DBListBox1.Selected[i]=True)then
cod:=i+1;
i:=i+1;
end;
FormSistema.ADOQuery1.SQL.Text:='Select Cod_G From TContraseñas Where Cod_G = :cod ) ';
FormSistema.ADOQuery1.Parameters[0].Value := StrToInt(Edit2.Text);
FormSistema.ADOQuery1.Active:=True;
end;
Ahora si vera el parametro cod.
Saludos