Ir para conteúdo

POWERED BY:

Arquivado

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

fabio Avila

[Resolvido] Não consigo Inserir dados

Por , em ASP Clássico

Recommended Posts

fabio Avila    1

fabio Avila
Postado

Ola Amigos,

 

Não estou conseguidno fazer a inserção de dados em meu BD, esta dando erro .:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[Microsoft][Driver ODBC para Microsoft Access] A operação deve usar uma consulta atualizável.

 

Abaixo o arquivo que faz a inserção

 

<%
'Recupero os dados
nome = (Request("nome"))
contato = (Request("contato"))
regiao = (Request("regiao"))
uf = (Request("uf"))



'Faço a conexão com o bd
cnpath="DBQ=" & Server.MapPath("bd.mdb") 
DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath 
 
Set Conn = Server.CreateObject("ADODB.Connection") 

Conn.Open DataSource

'Adiciono no bd
sqlString = "INSERT INTO Representantes"&_
            "(nome, contato, regiao, uf) VALUES ( '" & nome & "', '" & contato & "', '" & regiao & "', '" & uf & "')"
            
Conn.Execute sqlString
%>
<html>
<head>
<title>Notícia adicionada com sucesso.</title>
</head>
<body>
<p> </p>
<p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Notícia 
  adicionada com sucesso.</font></p>
<p align="center"><a href="admin.asp"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Clique 
  aqui para volta à administração.</font></a></p>
<div align="center"></div>

Arquivo de Conexão

<%
sub AbreConexao
set conexao = server.createobject("ADODB.Connection")
conexao.Open="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("bd.mdb")
end sub
sub FechaConexao
conexao.close
set conexao = nothing
end sub

Call AbreConexao
%>

Abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

Patrique    0

Patrique
Postado

Cara mão entendi o por que da postagem do arquivo de conexão sendo que no primeiro code ele não é utilizado na aplicação.

 

teste assim

 

<%
'Recupero os dados
nome = (Request("nome"))
contato = (Request("contato"))
regiao = (Request("regiao"))
uf = (Request("uf"))



'Faço a conexão com o bd
cnpath="DBQ=" & Server.MapPath("bd.mdb") 
DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath 
 
Set Conn = Server.CreateObject("ADODB.Connection") 

Conn.Open DataSource

'Adiciono no bd
Conn.Execute("INSERT INTO Representantes(nome, contato, regiao, uf) VALUES('" & nome & "','" & contato & "','" & regiao & "','" & uf & "')")
%>
<html>
<head>
<title>Notícia adicionada com sucesso.</title>
</head>
<body>
<p> </p>
<p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Notícia 
  adicionada com sucesso.</font></p>
<p align="center"><a href="admin.asp"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Clique 
  aqui para volta à administração.</font></a></p>
<div align="center"></div>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Humberto Rodrigues    0

Humberto Rodrigues
Postado

Tente assim:

 

'Adiciono no bd

sqlString = "INSERT INTO Representantes"&_
            "(nome, contato, regiao, uf) VALUES ( '" & nome & "', '" & contato & "', '" & regiao & "', '" & uf & "')"
            
set rs = server.createobject("ADODB.Recordset")
rs.open sqlString, conn, 3, 3

Repare que troquei o:

 

Conn.Execute sqlString

 

Pela execução do código via Recodset. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

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