registro no existe

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