Ir para conteúdo
Fórum Script Brasil
  • 0

Consulta E Inserção


Josi_sd

Pergunta

oi gente olha eu denovo,,rs.... sad.gif

oi,,pessoal...eu preciso de uma ajuda pra cadastrar um usuario,,,

é o seguinte ,,,antes de efetuar o cadastro quero q faça uma consulta através do CPF pra saber se o usuario já existe,,,mas não estou conseguindo,,alguém pode me dizer o q tem de errado com este código....desde já agradeço

Set Obj = Server.CreateObject("ADODB.Connection")

obj.Open "DRIVER={Microsoft Access Driver (*.MDB)};DBQ="&Server.MapPath("Banco_Site.mdb")

StrConsulta = "select CPF from cliente where CPF <> '"&CPF&"' "

set Rs = Obj.execute(StrConsulta)

if (StrConsulta = "select CPF from cliente where CPF ='"&CPF&"' ") = true then

Session("OBS")= "<B>Usuário já existente ! Tente Novamente</B>"

Response.Redirect ("principal.asp")

else

Str = "insert into cliente(nome,endereco,cidade,cep,UF,telefone,bairro,est_civil,sexo,RG,org_exp,CPF,email,login,senha)values('"&nome&"','"&endereco&"','"&cidade&"','"&cep&"','"&UF&"','"&telefone&"','"&bairro&"','"&est_civil&"','"&sexo&"','"&RG&"','"&org_exp&"','"&CPF&"''"&email&"','"&login&"','"&senha&"')"

Set sql = Obj.execute(Str)

Session ("OBS")= "<B>Usuário cadastrado com sucesso</B>"

Response.Redirect ("comprar.asp")

Rs=nothing

Obj.close

End if

Link para o comentário
Compartilhar em outros sites

8 respostass a esta questão

Posts Recomendados

  • 0
faça o segiunte

ASP

sql="select * from cpf where cpf='"&cpf&"'"

set rs=conn.execute(sql)

if rs.eof then

' insere

else

'cpf existe

end if

rs.close

set rs=nothing

coloquei o codigo de acordo com a sequencia logica q me passou,,,esta chamando as paginas de acordo com if ...else,,,mas não esta gravando no banco....o q esta faltando

Set Obj = Server.CreateObject("ADODB.Connection")

obj.Open "DRIVER={Microsoft Access Driver (*.MDB)};DBQ="&Server.MapPath("Banco_Site.mdb")

Str = "select * from cliente where CPF ='"&CPF&"' "

set Rs = Obj.execute(Str)

if Rs.eof then

Str = "insert into cliente(nome,endereco,cidade,cep,UF,telefone,bairro,est_civil,sexo,RG,org_exp,CPF,email,login,senha)values('"&nome&"','"&endereco&"','"&cidade&"','"&cep&"','"&UF&"','"&telefone&"','"&bairro&"','"&est_civil&"','"&sexo&"','"&RG&"','"&org_exp&"','"&CPF&"''"&email&"','"&login&"','"&senha&"')"

Session ("OBS")= "<B>Usuário cadastrado com sucesso</B>"

Response.Redirect ("comprar.asp")

else

Session("OBS")= "<B>Usuário já existente ! Tente Novamente</B>"

Response.Redirect ("principal.asp")

Rs.close

Rs=nothing

End if

Link para o comentário
Compartilhar em outros sites

  • 0

Set Obj = Server.CreateObject("ADODB.Connection")

obj.Open "DRIVER={Microsoft Access Driver (*.MDB)};DBQ="&Server.MapPath("Banco_Site.mdb")

Str = "select * from cliente where CPF ='"&CPF&"' "

set Rs = Obj.execute(Str)

if Rs.eof then

Str = "insert into cliente(nome,endereco,cidade,cep,UF,telefone,bairro,est_civil,sexo,RG,org_exp,CPF,email,login,senha)values('"&nome&"','"&endereco&"','"&cidade&"','"&cep&"','"&UF&"','"&telefone&"','"&bairro&"','"&est_civil&"','"&sexo&"','"&RG&"','"&org_exp&"','"&CPF&"''"&email&"','"&login&"','"&senha&"')"

Session ("OBS")= "<B>Usuário cadastrado com sucesso</B>"

OBJ.EXECUTE(STR)

Response.Redirect ("comprar.asp")

else

Session("OBS")= "<B>Usuário já existente ! Tente Novamente</B>"

Response.Redirect ("principal.asp")

Rs.close

Rs=nothing

End if

Link para o comentário
Compartilhar em outros sites

  • 0

pessoal se eu colocar Obj.execute(Str),,,,ocorre este tipo de erro

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)

[Microsoft][Driver ODBC para Microsoft Access] Número de valores da consulta e campos de destino não coincidem.

/incluiCliente.asp, line 53

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...