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 Caral, definitivamente explicas muy bien y das ejemplos demasiado claros!
MUCHISISIMAS GRACIAS por tu ayuda.

Exacto es lo que preciso....
Si introduzco nombres, apellidos paternos y maternos ; y si por si acaso en registros anteriores ya existen pues no se me acepten guardarlos.
Pueden existir en la Base de Datos registros de hermanos, pero obviamente con diferentes nombres...me referia a ello.

El and y varias comparaciones no sabia como hacerlas por eso coloqué varios where, en el anteriorrrr msj.

Otra vez MuChAsSsSsSs GRACIAS!

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

[[Caral]]

Hola
En el caso de que el ID no sea igual SI se podrían repetir los nombre etc.
Osea, si alguien se equivoca SI se podrían duplicar los datos.
El problema que veo con tu sistema es que:
Igual que se pueden repetir los datos con un diferente ID se pueden repetir los datos al escribir MAL un nombre, apellido etc.
Osea: Siempre cabe el error, pero es menos probable con un solo campo.
Saludos

[sisne]

Hola nuevamente Caral.
Si tienes razon respecto a los IdE en mi caso.
Ejectué el codigo que me sugeriste donde esta con Where y and.

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;

Solo que ahora me aparece error, con el sigte msj.

Project Pbecarios.exe raised exception class EDBEngineError with message 'General SQL error'. [Microsoft][ODBC SQL Server Driver][SQL Server]Linea 1: sintaxis incorrecta cerca de'='.'.Process stopped. Use Step or Run to continue.

[[Caral]]

Hola
El error lo dice todo (error de escritura).
Esto puede suceder por multiples razones.
1- los campos no son los adecuados, osea en este caso string.
2- algun campo esta vacio.
3- la sentencia sql no es correcta.
Volvamos:
Si los campos son correctos entonces no se necesita QuotedStr.
Si la sentencia esta incorrecta lo podemos averiguar facilmente con un mensaje, algo asi:

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);
        Showmessage(SQL); // aqui nos dirá como esta escrita la sentencia, no nos muestra los datos, solo la sentencia.
        Open;
      
        if not IsEmpty then
          begin
            MessageDlg('Datos EXISTENTE',mtError,[mbOk],0);
            NomE.SetFocus;
          end;
      end;
end;

Si vemos la concatenacion de esta sentencia nos la mostrara asi:

Código SQL [-]
SELECT * FROM BDinscripcionWHERE NomE = Dato1AND ApePE = dato2AND ApeME = dato3

Ves el error???.
No quiero decirlo, prefiero que lo encuentres, asi es como se aprende.
Saludos

[sisne]

Hola Caral.
Tienes razón encontré el errorcito
Gracias eh!