Campo que so aceite um registro se tiver ´@´. Banco IB.
Ola galera!!!
Sera que no IB tem como criar um campo que aceite valores para serem salvos apenas se contiver o @ para validar e-mail??
Obrigado :P
Sera que no IB tem como criar um campo que aceite valores para serem salvos apenas se contiver o @ para validar e-mail??
Obrigado :P
Glauber_marques
Curtidas 0
Respostas
Sremulador
02/10/2004
function VerificaMail(MAIL: string): Boolean;
var
I, Q: integer;
M: String;
begin
M:= ´´;
Q:= 0;
Result:= False;
for I:= 1 TO LENGTH(MAIL) do begin
M:=Copy(MAIL, I, 1);
if M <> ´@´ then
Q:= Q + 1;
if Q = LENGTH(MAIL) then
result:= true;
end;
var
I, Q: integer;
M: String;
begin
M:= ´´;
Q:= 0;
Result:= False;
for I:= 1 TO LENGTH(MAIL) do begin
M:=Copy(MAIL, I, 1);
if M <> ´@´ then
Q:= Q + 1;
if Q = LENGTH(MAIL) then
result:= true;
end;
GOSTEI 0
Afarias
02/10/2004
no IB vc teria de usar uma UDF (uma função tipo POS no delphi), ex::
create domain dm_email as varchar(80) check (pos(´@´, value) > 0);
create table teste1 ( nome varchar(30), email dm_email);
T+
create domain dm_email as varchar(80) check (pos(´@´, value) > 0);
create table teste1 ( nome varchar(30), email dm_email);
T+
GOSTEI 0
Glauber_marques
02/10/2004
Valeu galera!!!!!
Brigaduu!!
Brigaduu!!
GOSTEI 0