la consulta esta bien solo debes cambiar esto
Código Delphi [-]
procedure TfrmMain.FormShow(Sender: TObject);
begin
adoquery.Active := False;
adoquery.Parameters.ParamByName('prTipo').Value:=2;
adoquery.Active := True;
end;
__________________
...Yo naci en esta ribera del arauca vibr@d0r
Soy hermano de la espuma,
de la garza, de la rosa y del sol...
Viva Venezuela
|