Buscar tres campos iguales

[Casimiro Noteví]

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.