Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Martinsrj

Erro de inserir dados no Banco de Access

Por , em ASP Clássico

Recommended Posts

Martinsrj    0

Martinsrj
Postado

Olá pessoal, beleza?

Creio que deve ser um erro bobo... mas nao estou encontrando e nao sei como resolver essa situação.

Aguardo desde já ajuda dos mais experientes.

Aparece o seguinte erro:

 

HTTP 500.100 - Servidor interno Erro - erro do ASP

Internet Information Services

 

--------------------------------------------------------------------------------

 

Informações técnicas (para a equipe de suporte)

 

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 0xe6c Thread 0xabc DBC 0x12d5244 Jet' do Registro.

/martins/resp.asp, line 11

 

 

Tipo de navegador:

Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 1.1.4322)

 

Página: ...

 

 

1  <%@LANGUAGE="VBSCRIPT"%>
2  <%
3  Option Explicit
4 
5  DIM conexaoDatabase
6  DIM rsProjeto
7  const cntCaminho = "c:\antonio\bd\dbExemplo.mdb"
8  '-- const cntCaminho = "/mmdb"
9  Set conexaoDatabase = Server.CreateObject("ADODB.Connection")
10  Set rsProjeto = Server.CreateObject("ADODB.Recordset")
11  conexaoDatabase.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & cntCaminho
12  rsProjeto.Open "dados",conexaoDatabase
13
14  Dim strIns, varNome, varEmail, varTelefone, varCelular, varCPF, varDatanasc
15  varNome = Trim (Request.Form("txtNome"))
16  varEmail = Trim (Request.Form("txtEmail"))
17  varTelefone = Trim (Request.Form("txtTelefone"))
18  varCelular = Trim (Request.Form("txtCelular"))
19  varCPF = Trim (Request.Form("txtCPF"))
20  varDatanasc = Trim (Request.Form("txtDataNasc"))
21
22  strIns = "INSERT into dados"
23  strIns = strIns & "(nome, email, telefone, celular, cpf, datanasc)"
24  strIns = strIns + "VALUES ('" + varNome + "',"
25  strIns = strIns + "'" + varEmail + "',"
26  strIns = strIns + "'" + varTelefone + "',"
27  strIns = strIns + "'" + varCelular + "',"
28  strIns = strIns + "'" + varCPF + "',"
29  strIns = strIns + "'" + varDatanasc + "',"
30
31  Set rsProjeto = conexaoDatabase.Execute(strIns)
32
33  %>
34  <html>
35  <head>
36  <title>Cadastro de Dados</title>
37  </head>
38  <body>
39  Visitante foi cadastrado com sucesso.
40  </body>
41  </html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Verifique se o banco de dados está realmente nesse caminho, e se a pasta está com permissão de leitura e escrita.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Martinsrj    0

Martinsrj
Postado

você tem razão. Estou desconfiado que seja isso mesmo, porem estou utilizando o Access 2003 e nao sei verificar isso no access.

 

Verifique se o banco de dados está realmente nesse caminho, e se a pasta está com permissão de leitura e escrita.

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Como assim? Isso tudo você verifica através do IIS e do Windows Explorer. No caso de já está em um servidor na Web, você verifica via painel.

 

Dê uma pesquisada aqui no Fórum, temos vários tópicos relacionados a esse assunto e explicando os passos para verificar permissões.

 

Qualquer dúvida poste aqui.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Martinsrj    0

Martinsrj
Postado

Realizei algumas modificações no código:

8   const cntCaminho = "C:\antonio\bd\exemplo.mdb"
9   Set conexaoDatabase = Server.CreateObject("ADODB.Connection")
10 Set rsProjeto = Server.CreateObject("ADODB.Recordset")
11 conexaoDatabase.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & cntCaminho
12 rsProjeto.Open "dados",conexaoDatabase
13
14  Dim strIns, varCod_dados, varNome, varEmail, varTelefone, varCelular, varCPF, varDatanasc
varCod_dados = Trim (Request.Form("txtCod_dados"))
varNome = Trim (Request.Form("txtNome"))
varEmail = Trim (Request.Form("txtEmail"))
varTelefone = Trim (Request.Form("txtTelefone"))
varCelular = Trim (Request.Form("txtCelular"))
varCPF = Trim (Request.Form("txtCPF"))
varDatanasc = Trim (Request.Form("txtDataNasc"))

'strIns = "INSERT into dados"
'strIns = strIns & "(cod_dados, nome, email, telefone, celular, cpf, datanasc)"
'strIns = strIns + "VALUES ('" + varCod_dados + "',"
'strIns = strIns + "'" + varNome + "',"
'strIns = strIns + "'" + varEmail + "',"
'strIns = strIns + "'" + varTelefone + "',"
'strIns = strIns + "'" + varCelular + "',"
'strIns = strIns + "'" + varCPF + "',"
'strIns = strIns + "'" + varDatanasc + "',"

strIns = "INSERT INTO dados (cod_dados, nome, email, telefone, celular, cpf, datanasc) VALUES ('"&varCod_dados &"','"&varNome &"','"&varEmail &"','"&varTelefone &"','"&varCelular &"','"&varCPF &"','"&varDatanasc &"')"

Set rsProjeto = conexaoDatabase.Execute(strIns)

%>

Porém agora dá o seguinte erro:

HTTP 500.100 - Servidor interno Erro - erro do ASP

Internet Information Services

 

--------------------------------------------------------------------------------

 

Informações técnicas (para a equipe de suporte)

 

Tipo de erro:

Provider (0x80004005)

Erro não especificado

/martins/resp.asp, line 11

 

 

Tipo de navegador:

Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 1.1.4322)

 

Página:

POST 102 bytes to /martins/resp.asp

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

este erro deu no servidor?

 

se sim altere para o caminho real no servidor

Compartilhar este post

Link para o post
Compartilhar em outros sites

dark0    0

dark0
Postado

Opa

 

esse erro, em 90% dos casos, é falta de permissão de escrita no banco ou na pasta do banco, para o usuario do Servidor web.

 

Se você roda localmente, creio que seja só dar a permissão correta.

 

Se você roda na web, precisa colocar o banco de dados na pasta que seu HOST disponibiliza para dados, e mudar o caminho em seu codigo

 

Abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito