Determinar cual es el campo que existe

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

[agustin173]

como estas ecfisa

el codigo que marco me dio no hace nada no me da error ni nada

simplemente cuando le doy al boton no hace nada, es como si no funcionara

voy a probar lo que me diste haber te cuento luego.

[agustin173]

ecfisa tampoco me funciono me voy a explicar mejor

Lo que deseo es que cuando encuentre un registro en la base de datos ya sea por RNC, Suplidor, Telefono o Email me diga registro existe.

el codigo que puse al principio me lo dice osea funciona bien.

lo que deseo es que me diga si el registro encontrado igual en la base dec dato fue el RNC o si fue El Suplidor o si fue El telefono o Si fue el Email.

Ejemplo:

si digito el RNC y el Suplidor y los registro ya existe de ambos me diga RNC y Suplidor Existe y asi con los demas

Vuelvo a Colocar 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');

Todo esto sucede antes de grabar la informacion en la base de dato estoy evitando duplicar informacion.

haber ecfisa y marcos si me pueden ayudar ahora que me explique mejor si no se entiene por favor haganmelo saber, es que el proyecto de la universidad tengo que entregarlo.

[ecfisa]

Hola de nuevo Agustín.

El código funciona, ya que lo probé.
Lo que sucede es que antes no entendí bién lo que buscabas y lo anterior no es lo adecuado para lo que intentas hacer.

Este creo que va más acorde:

Código Delphi [-]
function TForm1.DatoExiste(Campo, Valor: string): Boolean;
begin
  with Query do
  begin
    Close;
    SQL.Text:='SELECT ' + Campo + ' FROM SUPLIDOR WHERE ' + Campo + ' = '+ QuotedStr(Valor);
    Open;
    if IsEmpty then
      Result:= False
    else
    begin
      ShowMessage('Dato existente, vuelva a ingresarlo');
      Result:= True;
    end;
    Close;
  end;
end;

Ejemplo de llamada

Código Delphi [-]
procedure TForm1.btAceptarClick(Sender: TObject);
begin
  ... 
  if DatoExiste('Telefono',METelefono.Text) then
    METelefono.SetFocus;
  ...
end;

Recordá desactivar Save Literal Characters, haciendo doble click sobre la propiedad EditMask en cada TMaskEdit. (o desactivarla desde código y restaurarla después de la comprobación)

Saludos.