Buscar tres campos iguales

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