registro no existe

[[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.