Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Olá pessoal!
Tô cansado, de virote, com fome mas preciso fazer isso...
O camarada cadastra na newsletter, campo NAME e EMAIL...
tem que realizar uma busca no banco para verificar se o email já existe... ...então:
CHECKUSER = DB.EXECUTE ("SELECT * FROM CUSTOMERS WHERE EMAIL = '"&vEMAIL&"'")
IF CHECKUSER.EOF THEN
SET REGISTER = DB.EXECUTE ("INSERT INTO CUSTOMERS (NAME, EMAIL) VALUES ('"&vNAME&"', '"&vEMAIL&"')")
vMESSAGE = "Atenção! Seu cadastro ainda não foi realizado. Siga as instruções enviadas para o e-mail " & vEMAIL
ELSE
vMESSAGE = "Não chegou no fim do arquivo, portanto já existe este registro."
END IF
MAS NÃO FUNCIONA! MESMO COM O EMAIL JÁ CADASTRADO ELE REGISTRA DE NOVO!
CAMPOS OK, TABELA OK, BANCO ACCESS OK...
Já inverti para colocar IF NOT CHECKUSER.EOF, mas deu na mesma...
Valeu pela força!
Carregando comentários...