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