Verificar No Bd se item ja consta no BD e Retornar Mensagem

[terra 1]

Olá,

 

 

Preciso fazer o seguinte: o usurio vai se cadastrar e coloca o e-mail e também o nome de usuário, quuero verificar no BD se o e-mail e também o nome usuário já constam no BD, de um campo soment eu fiz, mas não consigo fazer para os dois de uma vez. Tipo

 

 

AutorNomeExiste = FalseDo While Not objRs.EOFIf objRs("Autornome") = Trim(Request.Form("autornome")) ThenAutorNomeExiste = TrueEnd IfobjRs.MoveNext LoopIf AuthorNomeExiste = True ThenResponse.Write("nome ja existe") ElseAutoremailExiste = FalseDo While Not objRs.EOFIf objRs("Autoremail") = Trim(Request.Form("autoremail")) ThenAutorEmailExiste = TrueEnd IfobjRs.MoveNext LoopIf AutorEmailExiste = True ThenResponse.Write("e-mail ja existe") ElseobjRs.AddNew......

 

não da certo nem a pau, será que alguém pode me ajudar.

 

 

 

 

 

valeu

[jrcardozo 4]

isso você faz no sql

select campos from tabela where login = '"&varLogin&"' or email='"&varEmail&"'

depois de executar verifica

if rs.eof thenresponse.write("não existe no cadastro")elseresponse.write("email ou login existente")end if

[Rafaelso 0]

você não usa comando sql? pois seria bem mais práticopor exemplo:sql = "select * from tabela where Autoremail like '"& Trim(Request.Form("autoremail")) &"'"set objRs = conexao.execute(sql)if objRs.eof then AutorEmailExiste = Falseelse AutorEmailExiste = Trueend if

[jrcardozo 4]

eu só mudareia no sql uma coisa, não utilizar LIKE e sim =

[terra 1]

olá,obrigado pelo interesse.Funcionou em parte, gostaria de uma mensagem para cada campo repetido, tipo:o usuario digita no campo o e-mail o codigo faz a verificação no BD e se ja existir informa ao usuario: "email exite no BD" o usuario volta e entra com novo e-mail, ai OK. Ai o codigo verica o campo Nome de usuário, se ja existir da a mensagem "Nome de usuario exite no BD, escolha outro" do jeito que vcs colocaram ele iforma nome de usuario ou e-mail existente e não um de cada vez, acham que da para fazer?Eu fiz assim, seguindo o exemplo e mudei somente uma coisa acrescentei o NOT. Veja:

objRs.Open "SELECT * FROM Autor Where AutorNome = '"& Trim(Request.Form("nome")) &"' or AutorEmail='"& Trim(Request.Form("email")) &"'", objConn, 3, 3 if Not ObjRs.eof then 'sem o NOT não funcionouresponse.write("email ou login existente")

valeu

[jrcardozo 4]

coloque

Response.Write("e-mail ja existe") response.end()

faça o mesmo para o login

[P0nt0 0]

coloque

Response.Write("e-mail ja existe") response.end()

faça o mesmo para o login

é melhor fazer 2 sqls pq se ja tiver só o email? ou só o loguin ?e os 2..qual mensagem vai aparecer ?? ... é melhor fazer 2 sqls e depois montar mensagem q vai aparecer... bom, so novato nisso..c tiver falando bobeira desculpa ai hehe..

[jothaz 1]

Camaradas,Desculpe-me a intomissão mas submeter a página a cada campo informado para verificar duplicidade acho que não é a melhor solução. Vai ficar mto pesado e não vejo nenhum beneficio nisto.Faça via Javascript ou submeta a página e trate os erro em conjunto. Fica mto mais robusto, confiável e é a melhor pratica.Qdo se desenvolve Desktop pode-se dar a este luxo (validar a cada campo informado) mas na internet ou msm no mainframe não.Bom isto é somente a minha visão e não quer dizer que reflete uma verdade incontestável.t+

[P0nt0 0]

.Bom isto é somente a minha visão e não quer dizer que reflete uma verdade incontestável.t+

ta certo...mas tua opnião conta mais q a minha..até pra mim mesmo uhauha

[terra 1]

Olá,Obriagado pelo interesse de todos. Não da certo de jeito nenhum. São apenas dois campos para verificar : email e apelido (nick), pra um campo da beleza sem problema, mas quando coloca os dois não da nada ou a da a mensagem padrão do windows. "Microsoft JET Database Engine (0x80040E21)As alterações solicitadas para a tabela não foram satisfatórias já que criariam valores duplicados no índice, chave primária ou relação. Altere os dados no campo ou campos que contêm os dados duplicados, remova o índice ou redefina o índice para possibilitar entradas duplicadas e tente novamente."Valeu mesmo

[Salgado 4]

Poste o seu código completo.

[jrcardozo 4]

Segue a lógica, simples, funcional e de desempenho satisfatório

sql="select email,login from usuarios where login='"&varLogin&"' or email='"&varEmail&"'"set rs = con.execute(sql)if not rs.eof thenif rs("email")=varEmail thenresponse.write("email existe")elseresponse.write("login existe")end ifelse'////segue o código pois não localizaou email ou login////'end if

[terra 1]

Olá,valeu a todos pela grande ajuda. Finalmente funcionou assim:

objRs.Open "SELECT * FROM Autor WHERE AutorNome='"& Trim(Request.Form("nome")) &"' or AutorEmail='"& Trim(Request.Form("email")) &"'", objConn, 3, 3 if not objrs.eof thenif objRs("AutorNome")=Trim(Request.Form("nome")) thenResponse.Write("<br><br><p align='center'>Este e-mail já esta cadastrado no nosso banco de dados. Use o botão do Browser / Navegador para voltar e corrigir ou clique <a href='java script:history.go(-1)'>aqui</a>!</p>") elseResponse.Write("<br><br><p align='center'>Este apelido já existe. Escolha outro. Use o botão do Browser / Navegador para voltar ou clique <a href='java script:history.go(-1)'>aqui</a>!</p>") end if

Valeu mesmo pelo interesse de todos

[jrcardozo 4]

beleza!! essa "solução" podemos dizer que é uma POG huahuah, porém funcional e lógicaabraço