[Léo Beck]

Galera,
estou ficando louco.
Sou ccompletamente iniciante em .ASP, mas preciso de um código para inserir os dados de um formulário no meu banco Acccess.

Estou usando o código abaixo:

CODE

<%
const DATABASE_NAME="meu_banco.mdb"
dim Con
filepathx = Server.MapPath("\projetoCamila\db\meu_banco.mdb")
Set dbconex = Server.CreateObject("ADODB.Connection")
dbconex.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePathx

Codigo = Request.Form("id")
questao_1 = Request.Form("questao_1")
questao_2 = Request.Form("questao_2")
Obs = Request.Form("Obs")

Connection.Execute "insert into meu_banco (id,questao_1,questao_2,Obs) values ('" & Codigo & "','" & questao_1 & "','" & questao_2 & "','" & Obs & "')"


Conexao.Close
Set Conexao = Nothing
%>

Porém, sempre que o usuário preenche o formulário na página HTML, ao enviar os dados, a página retorna o seguinte erro.

CODE

Microsoft VBScript runtime  error '800a01a8'

Object required: 'INSERT INTO meu_banc'

/projetoCamila/db/cadastro.asp, line 14

A linha 14 em questão é:

CODE

Connection.Execute "insert into meu_banco (id,questao_1,questao_2,Obs) values ('" & Codigo & "','" & questao_1 & "','" & questao_2 & "','" & Obs & "')"

Alguém pode me ajudar?
Qual é exatamente o erro?

Abraços!

[kinquest]

Acredito que o erro é que você abre uma conexão

dbconex

Executa outra

Connection

E fecha uma terceira...

Conexao


Tente usar o mesmo nome... ou tente fazer via recordset, que separa e alivia a visualização e a procura de erros do código...


const DATABASE_NAME="meu_banco.mdb"
dim Con
filepathx = Server.MapPath("\projetoCamila\db\meu_banco.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePathx

Codigo = Request.Form("id")
questao_1 = Request.Form("questao_1")
questao_2 = Request.Form("questao_2")
Obs = Request.Form("Obs")

set rs = server.createobject("adodb.recordset")

rs.open "insert into meu_banco (id,questao_1,questao_2,Obs) values ('" & Codigo & "','" & questao_1 & "','" & questao_2 & "','" & Obs & "')", conn