Ver Mensaje Individual
  #1  
Antiguo 08-11-2010
agustin173 agustin173 is offline
Miembro
 
Registrado: jun 2010
Posts: 158
Reputación: 17
agustin173 Va por buen camino
Determinar cual es el campo que existe

hola muchachos como estan todos

Necesito una pequeña luz para resolver un problema

Tengo 4 campos y quiero que me diga cual o cuales fueron los campos que encontro iguales en la base de dato Me explico mejor.

Estoy usando delphi 7
una tabla llamada = suplidor
Con cuatro campos llamados = (RNC, Suplidor, Telefono y Email)
Un Adoquery llamado = Temp
2 Maskedit llamados = (MERnc y METelefono)
2 Edit llamados = (EDSuplidor y EDEmail)

Pongo el Codigo

Código Delphi [-]
var
  Msk: string;
  Msk1: String;
begin
// Determina si Existe un Registro en la Base de Datos
 with temp do
  begin
    close;
    sql.Clear;
    Msk:= MERnc.EditMask;  // salvar mascara
    Msk1:= METelefono.EditMask;
    MERnc.EditMask:= '';   // borrarla
    METelefono.EditMask:= '';
    sql.Add('select Rnc,Suplidor,Telefono,Email from Suplidor');
    sql.Add('where Rnc = '+QuotedStr(MERnc.Text));
    sql.Add('or Suplidor = '+QuotedStr(EDSuplidor.Text));
    sql.Add('or Telefono = '+QuotedStr(METelefono.Text));
    sql.Add('or Email = '+QuotedStr(EDEmail.Text));
    MERnc.EditMask:= Msk; // restaurarla;
    METelefono.EditMask:= Msk1;
    open
  end;
   if not temp.IsEmpty then
     raise exception.Create('Registro Existe');

Lo que deseo es, tengo cuatro campos si ustedes ven cuando encuentra los datos en la base de dato esta me dice en general que registro existe, pero deseo que lo haga campo por campo que si fue RNC, me diga RNC Existe, si Fue TElefono Me diga Telefono Existe, si fueron 2 o mas me lo diga en un solo letrero es eso posible ayundenme por favor.
Responder Con Cita