::Nao estou conseguindo cadastrar...

[nickian 0]

Olá pessoal,

 

poderiam me ajudar com o código correto para poder fazer meu formulario aceitar o cadastro? Vejam o código abaixo e o erro, acho que está faltando algum código para poder dar certo.

 

Preciso urgentemente disso.

 

Obrigada, Abraços.

++++++++++++++++++++++++++++++++++++++++++++++++++++++

<%

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

conexao.Open "DBQ=" & Server.MapPath("ContatosCezarLiper.mdb") &";driver={microsoft Access Driver (*.mdb)}"

nome = Request.Form("Nome")

email = Request.Form("email")

idade = Request.Form("Idade")

bairro = Request.Form("Bairro")

estado = Request.Form("Estado")

sexo = Request.Form("Sexo")

sql = "insert into contatos(nome,email,bairro,data de nascimento,estado,profissao,sexo) values('"&nome&"','"&email&"','"&bairro&"','"&datadenascimento&"','"&estado&"','"&profissao&"','"&sexo&"')"

Set rsInsert =Conexao.Execute(sql) MINHA LINHA 12 DO ERRO

Set rsInsert = Nothing

Conexao.Close

Set Conexao = Nothing

%>

++++++++++++++++++++++++++++++++++++++++++++++++++++++

 

ERRO QUE ESTÁ APRESENTANDO:

 

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

 

[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.

 

/isv/Cadastrado.asp, line 12

 

+++++++++++++++++++++++++++++++++++++++++++++++++++++

[Neco 0]

Que estranho.....sql = "insert into contatos (nome, email, bairro, data de nascimento, estado, profissao, sexo) values (' "&nome&" ',' "&email&" ',' "&bairro&" ',' "&datadenascimento&" ',' "&estado&" ',' "&profissao&" ',' "&sexo&" ')"Primeiro: Isso ta tudo na mesma linha no seu codigo? Se estiver, não tem erro, o codigo ai tá certo.....Segundo: não vi no seu codigo o request.form do datadenascimento.Fora isso não vi um possível erro.... ;)/> Abraços

[WLJ 0]

Todos campos são texto mesmo?

[nickian 0]

Todos sao textos , menos o de "data de nascimento" eu coloquei data/hora.Será que é por isso ? Tenho que acrescentar algum código por isso ?grata.

[Salgado 4]

Para data e hora acrescente "#" antes e depois.

 

sql = "insert into contatos(nome, email, bairro, data de nascimento, estado, profissao, sexo) values('"& nome &"', '"& email &"', '"& bairro &"', #"& datadenascimento &"#, '"& estado &"', '"& profissao &"', '"& sexo &"');"

[nickian 0]

Já alterei. Mas continua dando o mesmo erro! Tem outro código que possa substituir esse ?grata.

[Salgado 4]

Tem via ADO:

<%

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

conexao.Open "DBQ=" & Server.MapPath("ContatosCezarLiper.mdb") &";driver={microsoft Access Driver (*.mdb)}"

nome = Request.Form("Nome")

email = Request.Form("email")

idade = Request.Form("Idade")

bairro = Request.Form("Bairro")

estado = Request.Form("Estado")

sexo = Request.Form("Sexo")

 

Set rsInsert =Server.CreateObject("ADODB.RecordSet")

RsInsert.Open contatos,Conexao

 

RsInsert.AddNew

RsInsert("nome")=nome

RsInsert("email")=email

RsInsert("bairro")=bairro

RsInsert("data de nascimento")=Cdate(datadenascimento)

RsInsert("estado")=estado

RsInsert("profissao")=profissao

RsInsert("sexo")=sexo

RsInsert.Update

 

RsInsert.Close

Set rsInsert = Nothing

Conexao.Close

Set Conexao = Nothing

%>

E uma coisa, evite dar nomes com espaços em campos de tabelas, isso pode acarretar em problemas.

[WLJ 0]

Adicione a linha em vermelho e coloque aqui no forum o que aparece...

 

sql = "insert into contatos(nome,email,bairro,data de nascimento,estado,profissao,sexo) values('"&nome&"','"&email&"','"&bairro&"','"&datadenascimento&"','"&estado&"','"&profissao&"','"&sexo&"')"

Response.Write(sql)

Set rsInsert =Conexao.Execute(sql)

[gastao 0]

data de nascimento entre tralhas #"&data_nascimento&"#

[nickian 0]

Oi Pessoal,

demorei a postar pois tentei de tudo apresentado aqui nas respostas e nada deu certo, refiz o codigo e vasculhei cada item para ver se tinha esquecido algo, até tirei qualquer espaço de letra que tinha no meu bco. de dados como podem ver abaixo. Mas continua apresentando o seguinte erro:

 

++++++++++++++++++++++++++++++++++++

MEU CÓDIGO REFEITO:

 

<%

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

conexao.Open "DBQ=" & Server.MapPath("ContatosCezarLiper.mdb") &";driver={microsoft Access Driver (*.mdb)}"

nome = Request.Form("nome")

email = Request.Form("email")

nascimento = Request.Form("nascimento")

bairro = Request.Form("bairro")

estado = Request.Form("estado")

sexo = Request.Form("sexo")

sql = "insert into contatos(nome,email,nascimento,bairro,estado,profissao,sexo) values ('"&nome&"','"&email&"','"&nascimento&"','"&bairro&"','"&estado&"','"&profissao&"','"&sexo&"')"

Set rsInsert =Conexao.Execute(sql) MINHA LINHA 11 DO ERRO

Set rsInsert = Nothing

Conexao.Close

Set Conexao = Nothing

%>

+++++++++++++++++++++++++++++++++++++++++

 

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

 

[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

 

/isv/Cadastrado.asp, line 11 +++++++++++++++++++++++++++++++++++++++++++

 

Valeu pela paciência, mas só vcs mesmos pra me ajudarem!!!

 

Abraços

[WLJ 0]

Adicione a linha em vermelho e coloque aqui no forum o que aparece...

 

sql = "insert into contatos(nome,email,bairro,data de nascimento,estado,profissao,sexo) values('"&nome&"','"&email&"','"&bairro&"','"&datadenascimento&"','"&estado&"','"&profissao&"','"&sexo&"')"

Response.Write(sql)

Set rsInsert =Conexao.Execute(sql)