Código Delphi
[-]Procedure TForm1.searchbtnClick(Sender: TObject);
begin
QryMostrar.Close;
DataSource.DataSet := QryBuscar;
QryBuscar.ParamByName('codigo').AsInteger:=StrToInt(codetxt.Text); QryBuscar.Open;
end;
Aparte te aconsejo que la sentencia SQL lo tengas asi:
Código SQL
[-]Select * from comments where codigo =:codigo;
No pongas las comillas para el parámetro
codigo.
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7