Ver Mensaje Individual
  #2  
Antiguo 14-03-2010
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Reputación: 27
Caral Va por buen camino
Hola
Normalmente, según tengo entendido, para crear componentes en ejecución se necesita que este ligado al padre.
Me da la impresión de que podría estar por ahí el error, ademas de que al crear el componente simplemente lo haces, sin definir la variable MiQry
Prueba asi, tal vez te sirva.
Código Delphi [-]
procedure TFInsertar.btnhayresultadosClick(Sender: TObject);
var
  MiQry : TZReadOnlyQuery;
  isql : string;
begin
  isql := 'select cdgo from tb03P where (centro = :centrotemp and fecha = :fechatemp);';
  try
   MiQry := TZReadOnlyQuery.Create(Self);
   with MiQry do
   begin
    Parent := Form1; // donde estará el ZReadOnlyQuery
    MiQry.Connection := Data.ZConnectTGS;
    MiQry.SQL.Clear;
    MiQry.sql.Text := isql;
    MiQry.ParamByName('centrotemp').Asinteger := dbedtcentro.Field.Value;
    MiQry.ParamByName('fechatemp').AsDate := bdedtfecha.Date;
    MiQry.Open;

    if MiQry.RecordCount >0 then begin
      labAlerta.Visible := True;
      MessageDlg('No se permite Duplicar Datos en la Fecha Seleccionada, por favor revíselo... ', mtError, [mbOK], 0);
      bdedtfecha.SetFocus;
    end else begin
      labAlerta.Visible := False;
    end;
  finally
    MiQry.Close;
    MiQry.Free;
  end;
end;
end;
No se, digo...., aunque también, digo, no se....
Saludos
__________________
Siempre Novato
Responder Con Cita