Ir para conteúdo
Fórum Script Brasil
  • 0

Erro ao inserir dados no BD Access

Martinsrj

Perguntado por Martinsrj,

 Share

Pergunta

Martinsrj

Martinsrj

Postado
Postado

Olá pessoal, beleza?

Estou com uma grande dificuldade na resolução do erro abaixo. Não sei como solucionar.

Aguardo por uma resposta para resolução do mesmo.

Abraços.

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 = "/martiz/mac.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, 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"))

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

Set rsProjeto = conexaoDatabase.Execute(strIns)

%>
<html>
<head>
<title>Cadastro de Dados</title>
</head>
<body>
Visitante foi cadastrado com sucesso.
</body>
</html>

Link para o comentário
Compartilhar em outros sites

12 respostass a esta questão

Posts Recomendados

  • 0
Martinsrj

Martinsrj

Postado
  • Autor
Postado

Agora está dando esse 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 JET Database Engine (0x80040E14)

Instrução SQL inválida. 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT' ou 'UPDATE' esperado.

/martins/resp.asp, line 13

tenta abrir a conexao assim ó:

conexaoDatabase.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & cntCaminho

se não funcionar, de uma olhada nesse link: http://support.microsoft.com/kb/315456/pt-br

Link para o comentário
Compartilhar em outros sites
  • 0
Martinsrj

Martinsrj

Postado
  • Autor
Postado

Olá campeão!

Faz o seguinte acessa esse link do site http://pastebin.com/ o meu código está nesse endereço:

http://pastebin.com/f3c59189a (aqui informa exatamente qual é a linha 13).

Notificando a mensagem de erro:

Não é possível exibir a página

Ocorreu um problema com a página que você está tentando acessar e não é possível exibi-la.

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

Experimente o seguinte:

Clique no botão Atualizar ou tente novamente mais tarde.

Abra a localhost:81 home page e procure os links para as informações desejadas.

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 JET Database Engine (0x80040E14)

Instrução SQL inválida. 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT' ou 'UPDATE' esperado.

/martins/resp.asp, line 13

Tipo de navegador:

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

Página:

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

Banco é esse:

http://martinsrj.com/gifs_imagemgeral/access1.jpg

Versão:

http://martinsrj.com/gifs_imagemgeral/access2.jpg

Desde já agradeço ajuda!

Martinsrj, me confirma por gentileza qual é a sua linha 13? porque no codigo acima na linha 13 está vazia...

Me confirma por gentileza tb qual o BD que você está usando, ok?

[]'s Rafael Spilki

Link para o comentário
Compartilhar em outros sites
  • 0
Martinsrj

Martinsrj

Postado
  • Autor
Postado

Olá Rafael obrigado pela atenção!

Fiz algumas mudanças no código e fui no menu Ferramentas do access > Macro > segurança > marcado a opção Baixo.

Agora está dando esse erro:

Ocorreu um problema com a página que você está tentando acessar e não é possível exibi-la.

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

Experimente o seguinte:

Clique no botão Atualizar ou tente novamente mais tarde.

Abra a localhost:81 home page e procure os links para as informações desejadas.

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 (0x80040E14)

[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na instrução INSERT INTO.

/martins/resp.asp, line 32

1   <%@LANGUAGE="VBSCRIPT"%>
2   <%
3   Option Explicit
4
5   DIM conexaoDatabase
6   DIM rsProjeto
7   '-- const cntCaminho = "/martinsrj/databases/dbExpomac.mdb"
8   const cntCaminho = "C:\antonio\bd\dbExpomac.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
15 varCod_dados = Trim (Request.Form("txtNome"))
16 varNome = Trim (Request.Form("txtCod_dados"))
17 varEmail = Trim (Request.Form("txtEmail"))
18 varTelefone = Trim (Request.Form("txtTelefone"))
19 varCelular = Trim (Request.Form("txtCelular"))
20 varCPF = Trim (Request.Form("txtCPF"))
21 varDatanasc = Trim (Request.Form("txtDataNasc"))
22 
23 strIns = "INSERT into dados"
24 strIns = strIns & "(cod_dados, nome, email, telefone, celular, cpf, datanasc)"
25 strIns = strIns + "VALUES ('" + varNome + "',"
26 strIns = strIns + "'" + varEmail + "',"
27 strIns = strIns + "'" + varTelefone + "',"
28 strIns = strIns + "'" + varCelular + "',"
29 strIns = strIns + "'" + varCPF + "',"
30 strIns = strIns + "'" + varDatanasc + "',"
31
32  Set rsProjeto = conexaoDatabase.Execute(strIns)

%>
<html>
<head>
<title>Cadastro de Dados</title>
</head>
<body>
Visitante foi cadastrado com sucesso.
</body>
</html>
<%
rsProjeto.Close
conexaoDatabase.Close
set conexaoDatabase = nothing
%>

A correria é grande... me atenho ao fórum... se puderes posta aí especificamente as infs necessária para que possamos tentar lhe ajudar, ok?

[]'s Rafael Spilki

Link para o comentário
Compartilhar em outros sites
  • 0
Rafael Spilki

Rafael Spilki

Postado
Postado

Uhm... Todos os campos estão como texto no seu bd? Lembre - se que para campos númericos deves usar apenas aspas duplas, ou seja sem apostrofe!

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

Set rsProjeto = conexaoDatabase.Execute(strIns)
se algum campo for numerico nos values deverá estar apenas assim: 
("&varCPF &")

[]'s Rafael Spilki

Link para o comentário
Compartilhar em outros sites
  • 0
Martinsrj

Martinsrj

Postado
  • Autor
Postado

Rafael, fiz o que você passou:

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"))

23  strIns = "INSERT into dados"
24  strIns = strIns & "(cod_dados, nome, email, telefone, celular, cpf, datanasc)"
25  strIns = strIns + "VALUES ('" + varCod_dados + "',"
26  strIns = strIns + "'" + varNome + "',"
27  strIns = strIns + "'" + varEmail + "',"
28  strIns = strIns + "'" + varTelefone + "',"
29  strIns = strIns + "'" + varCelular + "',"
30  strIns = strIns + "'" + varCPF + "',"
31  strIns = strIns + "'" + varDatanasc + "',"
32
33  strIns = "INSERT INTO dados (cod_dados, nome, email, telefone, celular, cpf, datanasc) VALUES ('"&varCod_dados &"','"&varNome &"','"&varEmail &"','"&varTelefone &"','"&varCelular &"','"&varCPF &"','"&varDatanasc &"')"
34
35  Set rsProjeto = conexaoDatabase.Execute(strIns)

%>
<html>
Agora está dando esse 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] A operação deve usar uma consulta atualizável. /martins/resp.asp, line 35 Tipo de navegador: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 1.1.4322) Página: POST 108 bytes to /martins/resp.asp
Uhm... Todos os campos estão como texto no seu bd? Lembre - se que para campos númericos deves usar apenas aspas duplas, ou seja sem apostrofe! 
strQuery = "INSERT INTO dados (cod_dados, nome, email, telefone, celular, cpf, datanasc) VALUES ('"&varNome &"','"&varEmail &"','"&varTelefone &"','"&varCelular &"','"&varCPF &"','"&varDatanasc &"')"

Set rsProjeto = conexaoDatabase.Execute(strIns)
se algum campo for numerico nos values deverá estar apenas assim: 
("&varCPF &")

[]'s Rafael Spilki

Link para o comentário
Compartilhar em outros sites
  • 0
Rafael Spilki

Rafael Spilki

Postado
Postado

Aquele codigo que lhe passei deveria substituir essa parte aqui:

23  strIns = "INSERT into dados"
24  strIns = strIns & "(cod_dados, nome, email, telefone, celular, cpf, datanasc)"
25  strIns = strIns + "VALUES ('" + varCod_dados + "',"
26  strIns = strIns + "'" + varNome + "',"
27  strIns = strIns + "'" + varEmail + "',"
28  strIns = strIns + "'" + varTelefone + "',"
29  strIns = strIns + "'" + varCelular + "',"
30  strIns = strIns + "'" + varCPF + "',"
31  strIns = strIns + "'" + varDatanasc + "',"

ou seja, tire isso do seu código ou coloque ' (aspas simples) na frente de todas as frases para as "anular", faça o teste e poste aqui os resultados...

[]'s Rafael Spilki

Link para o comentário
Compartilhar em outros sites
  • 0
Martinsrj

Martinsrj

Postado
  • Autor
Postado

Desculpa, realmente não havia prestado atenção.

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)

%>
Agora com 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
Aquele codigo que lhe passei deveria substituir essa parte aqui: 
23  strIns = "INSERT into dados"
24  strIns = strIns & "(cod_dados, nome, email, telefone, celular, cpf, datanasc)"
25  strIns = strIns + "VALUES ('" + varCod_dados + "',"
26  strIns = strIns + "'" + varNome + "',"
27  strIns = strIns + "'" + varEmail + "',"
28  strIns = strIns + "'" + varTelefone + "',"
29  strIns = strIns + "'" + varCelular + "',"
30  strIns = strIns + "'" + varCPF + "',"
31  strIns = strIns + "'" + varDatanasc + "',"

ou seja, tire isso do seu código ou coloque ' (aspas simples) na frente de todas as frases para as "anular", faça o teste e poste aqui os resultados...

[]'s Rafael Spilki

Link para o comentário
Compartilhar em outros sites
  • 0
Rafael Spilki

Rafael Spilki

Postado
Postado

substitua essa parte aqui:

Set conexaoDatabase = Server.CreateObject("ADODB.Connection")
Set rsProjeto = Server.CreateObject("ADODB.Recordset")
conexaoDatabase.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & cntCaminho
rsProjeto.Open "dados",conexaoDatabase
por essa aqui: 
set conexaoDatabase=server.createobject("adodb.connection")
cntCaminho="DBQ=" & "C:\antonio\bd\exemplo.mdb"
conexaoDatabase.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cntCaminho

[]'s Rafael Spilki

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,5k
    • Posts
      652,4k
×
×
  • Criar Novo...