registro no existe

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