Buscar tres campos iguales

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