Consulta E Inserção

[Josi_sd]

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

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

[.Andreia.]

Posso estar errada, mas não é porque você mandou executar a consulta antes?

set Rs = Obj.execute(StrConsulta) e depois a consulta

[bareta]

faça o segiunte

[Josi_sd]

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

[.Andreia.]

cade o conexao.execute ?

[bareta]

ele da algum erro??? qual??

ou simplesmente redireciona?

veja pra qual pagina ele redireciona para ver qual opção que ficou cpf existente ou inexistente

[cyberalexxx]

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

[Josi_sd]

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

[.Andreia.]

Já conferiu as variáveis com os nomes dos campos na tabela ?