gravando em BD Access com Asp

[benevhides 0]

Bom dia,

 

Estou tentando gravar os dados de um formulario em um bd no acess. Porém retorna o seguinte erro:

 

Tipo de erro:

Microsoft JET Database Engine (0x80004005)

Erro não especificado

/conexaobd5.asp, line 4

 

 

Esses são os codigos que estou utlizando:

 

arquivo: acessopol.asp

 

<!-- #include file="conexaobd5.asp" -->
<!-- #include file="ADOVBS.inc" -->
<%

dim conconexao

'Aqui você pode inserir mais dados, siga o exemplo abaixo

Session("cod") = Request.Form("cod")
Session("Local") = Request.Form("Local")
Session("Renach") = Request.Form("Renach")
Session("Solicitante") = Request.Form("Solicitante")
Session("Operador") = Request.Form("Operador")
Sub ProcessaPagina

Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "form", conconexao, adOpenDynamic, adlockoptimistic, adcmdtable

rs.Addnew

'Aqui você pode inserir mais dados, siga o exemplo abaixo

rs.fields("Local") = Session("Local")
rs.fields("Renach") = Session("Renach")
rs.fields("Solicitante") = Session("SOlicitante")
rs.fields("Operador") = Session("Operador")
rs.update
end sub

processapagina
%>

 

arquivo: conexãobd5.asp

 

<%@ Language=VBScript %>
<%
Set conex = Server.CreateObject ("ADODB.Connection")
conex.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("visual1.mdb")&";"
%>

 

Tentei usar o seguinte codigo para o arquivo conexãobd5

 

<%@ Language=VBScript %>
<%
option explicit 

dim connstring

response.expires=-1 

Set conconexao = Server.CreateObject("ADODB.Connection")
conconexao.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("visual1.mdb")
%>

 

 

o erro que retorna é seguinte:

 

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0xcf0 Thread 0xa34 DBC 0x14cc7b4 Jet' do Registro.

/conexaobd5.asp, line 10

 

 

neste ultimo caso ja tenho um formulario funcionando no mesmo modelo, mas o novo não funciona. Por favor me ajudem.

[xanburzum 169]

verifique suas permissões nos arquivo do bd e na pasta, precisa ter direitos administrativos (ler,gravar etc)

[benevhides 0]

Tambem estou achando que são as permissões, mas o bd está habilitado para gravar, ler e etc. Como informei tenho outro formulario configurado com as mesmas permissões que funciona normalmente.

[xanburzum 169]

recoloque as permissões tanto no aqruivo como na pasta

e para teste ao inves de fazer um INSERT no bd tente dar um simples SELECT e veja o resultado

[benevhides 0]

Fiz como indicou. o erro mudou para:

 

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A03EA)

Erro de sintaxe

/acessopol.asp, line 14

 

corrigi os erros de sintaxe, mas volta para o erro do inicio.

[xanburzum 169]

quando você esta executando o code , você esta deixando o banco aberto no access, se estiver feche-o antes de executar

[luizsnpjr 0]

Eu ia escrever exatamente isso xanburzum, porque o access cria um "arquivo temporário" sempre que você abre ele, e se você abre ele, não pode usa-lo na programação, já tive muitos problemas com isso antes. Se possível, mude para MySQL é muito bom, leve e free, mas claro, depende do que você está pretendendo fazer.

[BrunoHP 0]

Bom se eu entendi, espero que te ajude!

 

Seu

Session("cod") = Request.Form("cod")
Session("Local") = Request.Form("Local")
Session("Renach") = Request.Form("Renach")
Session("Solicitante") = Request.Form("Solicitante")
Session("Operador") = Request.Form("Operador")

 

Gosto de fazer assim ex:

 

BRcod = Request.Form("cod")
BRlocal = Request.Form("Local")
BRrenach = Request.Form("Renach")
BRsolicitante = Request.Form("Solicitante")
BRoperador = Request.Form("Operador")

 

Ou:

 

BRcod = Session("cod")
BRlocal = Session("Local")
BRrenach = Session("Renach")
BRsolicitante = Session("Solicitante")
BRoperador = Session("Operador")

 

Dai é so chamar as variáveis.