[Resolvido] Problema em Cadastro

[Pavanelli 0]

Galera,

 

Estou desenvolvendo de cadastro, porém quando clico em cadastrar é gerado o erro abaixo, alguém poderia me ajudar?

 

Microsoft VBScript runtime error '800a01a8'

 

Object required: ''

 

/grava_manut.asp, line 12

 

Abaixo colocarei a linha 12 do arquivo grava_manut.asp.

 

CODE

conexao.Execute("INSERT INTO manutencao (data,carro,motivo,mecanica,manutencao) VALUES ('" & data & "','" & carro & "','" & motivo & "','" & mecanica & "','" & manutencao & "')")

 

Alguém poderia me ajudar?

O cadastro esta sendo feito em um banco de dados access

 

Grato

[Jow Xavier 0]

Cara posta o seu código completo, e tbm o seu banco de dados ai !!!

[Ted k' 126]

é coloca o resto ai que assim fica dificil, estou achando que é campo vazio que não poder ir sem preencher!!

[Pavanelli 0]

Abaixo estou postando o codigo da pagina grava_manut.asp que esta apresentando o problema.

 

CODE

<%

Response.Expires = 0

Dim msg, conexao, conrs, data, carro, motivo, mecanica, manutencao

 

data = request.form("data")

carro = request.form("Carro")

motivo = request.form("motivo")

mecanica = request.form("mecanica")

manutencao = request.form("manutencao")

 

ConnString=("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\LOGIN\dados\manutencao.mdb;")

conexao.Open ConnString

Set conrs = Server.CreateObject("ADODB.Recordset")

 

conexao.Execute("INSERT INTO manutencao (data,carro,motivo,mecanica,manutencao) VALUES ('" & data & "','" & carro & "','" & motivo & "','" & mecanica & "','" & manutencao & "')")

 

msg = "Manutenção Cadastrada!"

%>

 

Meu banco esta configurado conforme abaixo:

 

id Integer (AutoNumber)

Data Date

Carro VarChar (50)

Motivo VarChar (50)

Mecanica VarChar (50)

Manutencao Text

 

Grato

[JBNC 0]

Prezado,

 

Acho que falta isto.

 

SET Conexao=createobject("ADODB.CONNECTION")

OBS: isto funciona se o sua conexão for em ODBC.

 

Espero que tenha ajudado.

Um abraço.

 

JBNC... :)

[Mário Monteiro 179]

Voce criou a conexao?

[Pavanelli 0]

Galera,

 

Fico grato em saber que podemos contar com pessoas como vocês, mas realmente eu havia esquecido de criar a conexão.

 

Mas após criar a conexão quando os dados vão ser gravados agora esta apresentando o um erro onde os dados não não inseridos na base de dados.

 

<%
Response.Expires = 0
Dim msg, conexao, conrs, data, carro, motivo, mecanica, manutencao

data = request.form("data")
carro = request.form("Carro")
motivo = request.form("motivo")
mecanica = request.form("mecanica")
manutencao = request.form("manutencao")

Set Conexao=CreateObject("ADODB.Connection")
Set conrs = Server.CreateObject("ADODB.Recordset")

ConnString=("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\pavanelli\dados\manutencao.mdb;")
Conexao.Open ConnString

Conexao.Execute("INSERT INTO manutencao (data,carro,motivo,mecanica,manutencao) VALUES ('" & data & "','" & carro & "','" & motivo & "','" & mecanica & "','" & manutencao & "')")

response.write("Manutenção Cadastrada!")
%>

[Jow Xavier 0]

Cara posta o erro e tbm o seu código HTML !!! ou ñ ele apenas não grava os dados ???

[berkowitz 2]

qual o erro?

[Pavanelli 0]

Não esta inserindo os dados na base...

 

Ele executa o insert e aparece a msg que foi cadastrado, mas no banco de dados não foi inserido.

 

Abaixo esta o codigo:

 

<%Response.Expires = 0
Dim msg, conexao, conrs, data, carro, motivo, mecanica, manutencao

data = request.form("data")
carro = request.form("Carro")
motivo = request.form("motivo")
mecanica = request.form("mecanica")
manutencao = request.form("manutencao")

ConnString=("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=CAMINHO_BASE_DADOS\dados\manutencao.mdb;")
Set conrs = Server.CreateObject("ADODB.Connection")
conrs.Open ConnString


conrs.Execute("INSERT INTO manutencao (data,carro,motivo,mecanica,manutencao) VALUES ('" & data & "','" & carro & "','" & motivo & "','" & mecanica & "','" & manutencao & "')")

Response.write("Manutenção Cadastrada!")>%

[Mário Monteiro 179]

Nao aparece mesmo o erro?

[Pavanelli 0]

Galera,

 

Percebi que estava utilizando o insert para banco SQL, quando se utiliza banco Access tem alguns parametros na string SQL que muda.

 

Agradeço a atenção de todos que se disponibilizaram para tentar me ajudar.

 

So fico com uma duvida agora, como altero o titulo do topico para informar que foi resolvido?

[Mário Monteiro 179]

resolvido entao