Determinar cual es el campo que existe

[agustin173]

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.

[marcoszorrilla]

Yo creo que habria que lanzar la consulta tantas veces como campos quieres comparar y guardar los resulados positivos en una variable de tipo texto.

Var
xxx:String

xxxx:='Se encontraron resultados en los campos:';
Si consulta no está vacía:

xxx:=xxx+Nombre_del_campo;

así hasta completar los 4 campos.

Primero lanzar una con los 4 campos a la vez por si no hubiese ningún resultado no seguir con el resto.

Un Saludo.

[agustin173]

marcoszorillas podrias explicarme mejor con el codigo porque no se mucho de programacion

por favor

[marcoszorrilla]

Código Delphi [-]
var
  Msk: string;
  Msk1: String;
  cCampos:String;
begin
// Determina si Existe un Registro en la Base de Datos
cCampos:='Los siguientes campos se encontraron en la busqueda';
 with temp do
  begin
    close;
    sql.Clear;
    sql.Add('select Rnc,Suplidor,Telefono,Email from Suplidor');
    sql.Add('where Rnc = '+QuotedStr(MERnc.Text));
     open;
  end;
   if not temp.IsEmpty then
     cCampos:=cCampos+':RNC';//segundo campo
with temp do
  begin
    close;
    sql.Clear;
    sql.Add('select Rnc,Suplidor,Telefono,Email from Suplidor');
    sql.Add('where Suplidor = '++QuotedStr(EDSuplidor.Text));
     open;
  end;
   if not temp.IsEmpty then
     cCampos:=cCampos+':Suplidor';

Y así hasta testar todos los campos.

Un Saludo.

[agustin173]

marcoszorrilla este codigo no me funciona tienes otra idea amigo por favor

[agustin173]

por favor alguien puede ayudarme a con el codigo que necesito por favor

muchachos ayudenme que estoy desde ayer sin solucionar este lio

si tengo que explica mejor diganmelo

[ecfisa]

Empezado por agustin173

marcoszorrilla este codigo no me funciona tienes otra idea amigo por favor

Hola Agustin.

Según lo que leí, el código que puso marcos, debería funcionar correctamente.

Hubiera sido mejor que pusieras el error generado o explicar mejor el resultado que buscas, yo interpreto tu planteo como marcos.

Igual te pongo un código (que básicamente hace lo mismo) y pone además la cantidad de veces que está repetido el dato. Por ahí podés sacar alguna idea de él.

Código Delphi [-]

function TForm1.Mensaje(cp1,cp2,cp3,cp4:string): string;
const
   Consulta ='SELECT COUNT(*) AS CANTIDAD FROM TU_TABLA WHERE %s = %s';
begin
  with Query do
  begin
    Close;
    SQL.Text:= Format(Consulta,['Rnc',QuotedStr(cp1)]);
    Open;
    if not IsEmpty then
     Result:= 'Rnc: ' + FieldByName('CANTIDAD').AsString+#10#13;

    Close;
    SQL.Text:= Format(Consulta,['Suplidor',QuotedStr(cp2)]);
    Open;
    if not IsEmpty then
     Result:= Result + 'Suplidor: '+FieldByName('CANTIDAD').AsString+#10#13;

    Close;
    SQL.Text:= Format(Consulta,['Telefono',QuotedStr(cp3)]);
    Open;
    if not IsEmpty then
      Result:= Result+'Telefono: '+FieldByName('CANTIDAD').AsString+#10#13;

    Close;
    SQL.Text:= Format(Consulta,['Email',QuotedStr(cp4)]);
    Open;
    if not IsEmpty then
      Result:= Result+'Email: '+ FieldByName('CANTIDAD').AsString;
  end;
end;

La función la pensé para ser usada con un ShowMessage, de ahí (#10#13).

Saludos.

[Cañones]

Empezado por agustin173

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.

Declarando como Unique los campos. Esto no te permitirá que en una columna se repita un valor.
Vas a ahorrar mucho tráfico con la DB.

Saludos.