Buscar tres campos iguales

Hola de nuevo...
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 información.
Hice el sigte código, 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 código puse cuando ya introducí el primer, segundo y al tercer recién pongo este código de programación:
Donde:
NomE=Nombre
ApePE=Apellido Paterno
ApeME=Apellido Materno
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;
Ayuda por fa...
Giovy

1 respuesta

Respuesta
1
es una solucion Sencilla,
procedure TFinscripcion.ApeMEExit(Sender: TObject);
begin
    with Query1 do
      begin
        Close;
        SQL.Clear;
        SQL.add('SELECT * FROM BDinscripcion WHERE NomE ='+#39+nome.text+#39+' and apepe=' + #39 + apepe.text + #39 + ' and apeme=' + #39 + apeme.text + #39);
active:=true;
        if recorcount=1 then
          begin
            MessageDlg('Datos EXISTENTE',mtError,[mbOk],0);
            NomE.SetFocus;
          end;
      end;
end;

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas