Buscar tres campos iguales

[sisne]

Holas...
El problemita que tengo es que debo buscar en toda la base de datos cuando tres campos introducidos sean iguales a los que anteriormente ya fueron introducidos, y si son iguales pues no tiene que guardar dicha informacion.

Hice el sigte codigo, pero pues no me deja si un nombre o apellidos se parezcan a los de la Base de datos. Estoy usando SQL Server, pero prefiero programarlo en Delphi.

Este codigo puse cuando ya introduci el primer, segundo y al tercer recien pongo este codigo de programacion:
Donde:
NomE=Nombre
ApePE=Apellido Paterno
ApeME=Apellido Materno

Código Delphi [-]
procedure TFinscripcion.ApeMEExit(Sender: TObject);
begin
    with Query1 do
      begin
        Close;
        SQL.Text:= 'SELECT * FROM BDinscripcion WHERE NomE = '+QuotedStr(NomE.Text);
        SQL.Text:= 'SELECT * FROM BDinscripcion WHERE ApePE = '+QuotedStr(ApePE.Text);
        SQL.Text:= 'SELECT * FROM BDinscripcion WHERE ApeME = '+QuotedStr(ApeME.Text);
        Open;
        if not IsEmpty then
          begin
            MessageDlg('Datos EXISTENTE',mtError,[mbOk],0);
            NomE.SetFocus;
          end;
      end;
end;

Gracias

[[Caral]]

Hola
No entiendo lo que quieres hacer pero analicemos el codigo:
1- Empecemos, usemos el query1, empecemos, cerremos el query1 (hasta aqui todo bien).

Código Delphi [-]
procedure TFinscripcion.ApeMEExit(Sender: TObject);
begin
    with Query1 do
      begin
        Close;

2- seleccionemos todo de la tabla BDinscripcion domde el nombre sea como el text (primer intento)

Código Delphi [-]
 SQL.Text:= 'SELECT * FROM BDinscripcion WHERE NomE = '+QuotedStr(NomE.Text);

3- Te arrepientes y ahora quieres que:
seleccionemos todo de la tabla BDinscripcion domde el apellido paterno sea como el text (segundo intento)

Código Delphi [-]
SQL.Text:= 'SELECT * FROM BDinscripcion WHERE ApePE = '+QuotedStr(ApePE.Text);

4- Te vuelves a arrepentir y ahora quieres que:
seleccionemos todo de la tabla BDinscripcion domde el apellido materno sea como el text y abres la tabla (tercer y ultimo intento),
este es el dato que recibes despues de hacer todo lo demas.

Código Delphi [-]
SQL.Text:= 'SELECT * FROM BDinscripcion WHERE ApeME = '+QuotedStr(ApeME.Text);
Open;

5- Si encontró el dato y no esta vacío el APELLIDO MATERNO entonces envia el mensaje.

Código Delphi [-]
  if not IsEmpty then
          begin
            MessageDlg('Datos EXISTENTE',mtError,[mbOk],0);
            NomE.SetFocus;
          end;
      end;
end;

Creo que te darás cuenta de lo que significa esto, verdad?.
Saludos

[Casimiro Notevi]

Bueno, Caral, ya te lo ha explicado, esto está mal.

1  -  SQL.Text:= 'SELECT * FROM BDinscripcion WHERE NomE = '+QuotedStr(NomE.Text);
2  -  SQL.Text:= 'SELECT * FROM BDinscripcion WHERE ApePE = '+QuotedStr(ApePE.Text);
3  -  SQL.Text:= 'SELECT * FROM BDinscripcion WHERE ApeME = '+QuotedStr(ApeME.Text);

Evidentemente, 2 sobreescribe a 1, y 3 sobreescribe a 2, así que siempre se ejecuta el 3.

Tienes varias posibilidades, pero quizás la más cómoda puede ser añadir un campo a cada registro que sea la suma completa de los campos.

Me explico, tienes: id, nombre, apellido1, apellido2, domicilio, telefono
Pues añade a la tabla un campo que sea: nombrecompleto, entonces tu tabla sería algo así: id, nombre, apellido1, apellido2, domicilio, telefono, nombrecompleto

Al dar de alta un registro debes rellenar ese campo uniendo "nombre'+'apellido1,+'apellido2',
Puedes crear un índice único por ese campo, así lo tendrías controlado.

[sisne]

Holas!
Gracias por responder.

El problema es que no se usar indices
Lo que quiero que haga es, que cuando encuentre los tres campos iguales en otro registro pues que NO me permita guardarlos...
Dos campos cualquiera de los tres pueden repetirse, pero no los tres al mismo tiempo....

POr favor.....

[[Caral]]

Hola
Si amigo, pero lo que intento es que analice el codigo, nada mas.
Si entiende un poco mas esto entonces podra analizarlo mejor.
Ya me conoces, me gusta explayar.
Lo que necesita hacer es una consulta ligada, no necesita ni recorrer la tabla ya que tiene un where que limita el dato recibido.
En tal caso si quiere el nombre completo es mejor concatenar.
Saludos

[[Caral]]

Hola
Soy de la opinion de casimiro.
Un Campo ID (UNICO) y listo
Saludos

[sisne]

Hola Caral, tienes una manera de explicar muy bien, que se entiende todo los pasos claramente.

Colocar where y anidar con AND en programacion de delphi....no me ubico bien...podrias ayudarme aun...como seria?
Por favor

[[Caral]]

Hola
Veamos la solucion optima:
Creamos un campo ID (unico).
Simplemente comparamos ese campo:

Código Delphi [-]
procedure TFinscripcion.ApeMEExit(Sender: TObject);
begin
    with Query1 do
      begin
        Close; 
        SQL.Text:= 'SELECT ID FROM BDinscripcion WHERE ID = '+QuotedStr(ID1.Text);
       Open;
        if ID1.Text <> Query1.Files[0].AsString then
          begin
            MessageDlg('Datos EXISTENTE',mtError,[mbOk],0);
            NomE.SetFocus;
          end;
      end;
end;

Como veras si el ID no coincide envía el error.
Me parece mas sencillo.
Saludos

[[Caral]]

Hola
Ahora vamos a tratar de hacer lo mismo usando where y and (Como te gusta):

Código Delphi [-]
procedure TFinscripcion.ApeMEExit(Sender: TObject);
begin
    with Query1 do
      begin
        Close;
        SQL.Text:= 'SELECT * FROM BDinscripcion'+
                   'WHERE NomE = '+QuotedStr(NomE.Text)+
                   'AND ApePE = '+QuotedStr(ApePE.Text)+
                   'AND ApeME = '+QuotedStr(ApeME.Text);
        Open;
        if not IsEmpty then
          begin
            MessageDlg('Datos EXISTENTE',mtError,[mbOk],0);
            NomE.SetFocus;
          end;
      end;
end;

Saludos

[sisne]

Hola de nuevo Caral...

Empezado por Caral

Hola
Veamos la solucion optima:
Creamos un campo ID (unico).
Simplemente comparamos ese campo:

Código Delphi [-]
procedure TFinscripcion.ApeMEExit(Sender: TObject);
begin
with Query1 do
begin
Close;
SQL.Text:= 'SELECT ID FROM BDinscripcion WHERE ID = '+QuotedStr(ID1.Text);
Open;
if ID1.Text <> Query1.Files[0].AsString then
begin
MessageDlg('Datos EXISTENTE',mtError,[mbOk],0);
NomE.SetFocus;
end;
end;
end;



Como veras si el ID no coincide envía el error.
Me parece mas sencillo.
Saludos

En este caso pues si tengo un ID=IdE en mi caso...pero lo que no comprendo como puede revisar si los demas campos nombres y apellidos puedan repetirse en los otros registros con diferentes IdE.