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.