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
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 de adeszeus
1