registro no existe

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