registro no existe

[agustin173]

como puedo hacer para que en una consulta con adoquery cuando no encuentre ningun registro en especifico me diga registro no existe.

tengo una tabla llamada itebis y dos edit por donde buscar que es edcodigo y editebis, que cuando le ponga valor a cualquiera de los edit me diga y no encuente nada con ese registro me diga registro no existe.

si existe que me traiga la consulta.

ya tengo el codigo de la consulta solo me falta el que me diga que registro no existe.

[osmuar_exp]

Hola, mira yo no conozco una consulta que retorne una leyenda o algo que te indique que la consulta fue vacia,
pero puedes aplicar esto...

Código Delphi [-]
 if adoquery.IsEmpty then
   begin
       //tu codigo
   end
else
   begin
     //más codigo
  end;

Saludos vacios.

[droguerman]

Código Delphi [-]
 if  Dataset.Locate('campo_codigo', edcodigo.text, [loCaseInsensitive]) then
begin
  showMessage('No existe el registro');
end
else
begin
  showMessage('el registro existe');
end;

[agustin173]

lo que yo quiero es que busque en la base de datos y me diga cuando no existe ese registro.

yo lo digito los valores por un edit.

es una consulta y cuando no me traiga registro que me diga registro no existe.

[[Caral]]

Hola
Los dos codigos anteriores sirven para lo que necesitas.
Que es lo que no entiendes?
Saludos

[agustin173]

Caral Hermano como estas me alegro mucho de verte si tu tienes razon pero cuando lo pongo no me funcionan

te voy a mandar el codigo fijate

Código Delphi [-]
 
Adoitebibuscar.close;
  Adoitebibuscar.SQL.Text := 'Select codigo, fecha, itebis From itebis ';
  if edcodbuscar.Text <> '' then
   begin
    Adoitebibuscar.SQL.Add(' where codigo = '+EdCodBuscar.Text);
    AdoitebiBuscar.Active := True;
    EdCodBuscar.text:= AdoItebiBuscar.Fields[0].AsString;
    EdFechaBuscar.text:= AdoItebiBuscar.Fields[1].AsString;
    EdItebiBuscar.Text:= AdoItebiBuscar.Fields[2].AsString;
  end
  else
   if editebibuscar.Text <> '' then
  begin
    Adoitebibuscar.SQL.Add(' where itebis = '+EditebiBuscar.Text);
    AdoitebiBuscar.Active := True;
    EdCodBuscar.text:= AdoItebiBuscar.Fields[0].AsString;
    EdFechaBuscar.text:= AdoItebiBuscar.Fields[1].AsString;
    EdItebiBuscar.Text:= AdoItebiBuscar.Fields[2].AsString;
  end;

este es el codigo, lo que deseo es que cuando no encuentre un registro me diga registro no existe, a lo mejor e puesto algo mal y por eso no me funciona cuando intento hacer otro 'else'.

como puedo arreglar ese desastre que hice.

[[Caral]]

Hola
Dame un minuto, te saco el codigo que ocupas.
Saludos