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

[[Caral]]

Hola
Lo mas sencillo para que lo entiendas:

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;
     If AdoItebiBuscar.Fields[0].AsString = edcodbuscar.Text then
     begin
     Showmessage(' El codigo ya existe, seleccione otro ');
     end
     else
     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;
     If AdoItebiBuscar.Fields[2].AsString = editebibuscar.Text then
     begin
     Showmessage(' El NO SE QUE ES ya existe, seleccione otro ');
     end
     else
     EdCodBuscar.text:= AdoItebiBuscar.Fields[0].AsString;
     EdFechaBuscar.text:= AdoItebiBuscar.Fields[1].AsString;
     EdItebiBuscar.Text:= AdoItebiBuscar.Fields[2].AsString;
end;

A ver?
Saludos

[[AzidRain]]

Mucha complicación para algo tan simple, suponiendo que la consulta debe devolver únicamente un registro es obvio que si la propiedad RowCount del query es igual a cero es que no existe el registro.

[agustin173]

Recuerda caral es que busque el registro y si no trae nada que me diga que 'registro no existe'

voy aprobar el codigo que pusiste luego te digo.

[[Caral]]

Hola

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;
     If AdoItebiBuscar.Fields[0].AsString <> edcodbuscar.Text then
     begin
     Showmessage(' El codigo NO existe, seleccione otro ');
     end
     else
     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;
     If AdoItebiBuscar.Fields[2].AsString <> editebibuscar.Text then
     begin
     Showmessage(' El NO SE QUE ES NO existe, seleccione otro ');
     end
     else
     EdCodBuscar.text:= AdoItebiBuscar.Fields[0].AsString;
     EdFechaBuscar.text:= AdoItebiBuscar.Fields[1].AsString;
     EdItebiBuscar.Text:= AdoItebiBuscar.Fields[2].AsString;
end;

Es lo mismo, solo que en vez de igual, diferente.
Tambien se puede hacer cun un record count, como dice Azid, es casi lo mismo, una comparacion.
Saludos

[[AzidRain]]

Creo que es el resultado puede ser el mismo Caral pero es más optimizado hacer esto:

Código Delphi [-]
With AdoIteBuscar Do
Begin
  If Active Then Close;
  SQL.Clear;
  SQL.Add('Select codigo, fecha, itebis From itebis where   codigo=:codigo_buscar');
  ParamByName('codigo_buscar').AsString := editIteBuscar.Text;
  Open;
  If RecordCount= 0 Then ShowMessage('El código no existe');
End;

Es mucho más compacto y sencillo de entender

[[Caral]]

Hola
Es lo bueno de delphi, para gustos los colores :

Código Delphi [-]
  AdoIteBuscar.Close;
  AdoIteBuscar.SQL.Text: 'Select codigo, fecha, itebis From itebis where codigo = :cod');
  AdoIteBuscar.Parameters[0].Value := editIteBuscar.Text;
  AdoIteBuscar.Open;
  If AdoIteBuscar.RecordCount = 0 Then ShowMessage('El código no existe');

Hay muchas maneras de cazar a ese raton.
Saludos

[[AzidRain]]

La forma de acceder a los parámetros que pusiste es otra variante pero para mi gusto no es tan cómoda como hacerlo por su nombre ya que cuando tienes varios parámetros el código resultante puede no ser tan legible. Bueno y Agustin? Ya no nos comentó si le funcionó...

[[Caral]]

Hola
Cuando no regresan a por mas es: funciono o no les agrado la respuesta.
Se hizo lo que se pudo.
Saludos

[[AzidRain]]

JAjaja, tienes razón, mi estimado Caral...jajaja, creo que nomás nos "utilizó" para sacar su chamba, que estarás de acuerdo, no erá taaan difícil y con los nortes que le ibamos dando bien pudo haberlo deducido por sí mismo...pero de cualquier forma estuvo bueno el intercambio para conocer diversos estilos.

[agustin173]

Caral espero que estes bien

no te habia podido responder porque estaba en el interior del pais haciendo unos trabajos y lo que estoy haciendo no es una chamba como dice Azirain

es un trabajo de la universidad que estoy haciendo, les pido disculpa por no contestar a tiempo.

voy a probarlo, en el trascurso del dia le dire si me funciono

disculpen la tardanza.

[agustin173]

Caral Azirain

muchas gracias me funciono.

y vuelvo a pedir disculpas a ustedes y a todos los del foro pero fue por asunto de trabajo.

y gracias tambien a los que ayudaron dando sus aportes tambien muchas gracias.

[[AzidRain]]

No te preocupes agustin, se entiende y no tienes nada de que preocuparte, solo nos pareció raro que no regresaras. Ojalá y continúes por aquí, aprenderás mucho, te lo aseguro.

[agustin173]

Gracias por entender Azidrain

Espero que caral haya recibido mis disculpas tambien.