Ver Mensaje Individual
  #9  
Antiguo 09-12-2016
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Reputación: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Intenta de esta manera:

Código Delphi [-]
var
  IdCliente: Integer;
begin
 _DM.consulta1.SQL.Text:='SELECT * From clientes Where id_cliente=:miid';
  if TryStrToInt(edit11.text, IdCliente) then
   _DM.consulta1.ParamByName('miid').value:= IdCliente
  else
   _DM.consulta1.ParamByName('miid').value:= Null; // debes incluir la unidad Variants en el uses

   // segun los componentes, tambien es posible que este definido el metodo Clear;
   _DM.consulta1.ParamByName('miid').Clear; // equivale a asignar Null
 _DM.consulta1.open;
end;
Responder Con Cita