[Resolvido] Inserir campo

[GabrielFerrari 41]

Estou me aventurando pelo ASP desde segunda feita :P

Fuçando aqui e ali estou caminhando até que bem.

 

Graças ao santo google (e o Ted k' com links) resolvi todos meus problemas e dúvidas até agora

Porém esse está um pouco mais difícil

 

Estou tentando inserir um campo na tabela.

E ele sempre me retorna o seguinte erro:

 

Tipo de erro:

ADODB.Recordset (0x800A0E78)

Operação não permitida quando o objeto está fechado.

/inserir.asp, line 25

Procurei e todos que encontrei o erro estava na conexão.

Porém mesmo com esse ero ele está gravando o campo na tabela.

 

Meu código está assim:

 

<%
Dim objConn, strCaminho, nome
%>

<%
nome = Request.Form("nome")

%>

<%
strCaminho = Server.MapPath("db/novo2.mdb")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strCaminho & ";"
Set rs = Server.CreateObject("adodb.recordset")
SQL = "Insert Into informacoes (nome) Values ('"&nome&"')"
rs.Open SQL,objConn
do while not rs.eof
%>
<%
rs.movenext
loop
rs.close
objConn.Close
Set rs = Nothing
Set objConn = Nothing
%>

Alguém pode me ajudar ?

Obrigado.

[xanburzum 169]

tenta assim

 

SQL = "Insert Into informacoes (nome) Values ('"&nome&"')"
rs.Open SQL,objConn,1,3
rs.close
objConn.Close
Set rs = Nothing
Set objConn = Nothing
%>

naun precisa fazer o while...

[GabrielFerrari 41]

Deu a mesma coisa.

 

 

naun precisa fazer o while...

Preciso entender pra que serve isso.

Estou me baseando em um código para tentar fazer isso.

 

 

Obrigado xanburzum \o

[xanburzum 169]

dá uma olhada neste exemplo simples, pode te ajudar

Em versões mais antigas do MDAC, o erro pode ser ligeiramente diferente

Isto pode ser causado por tentar definir uma propriedade que tem de ser definida antes de o objeto está aberto.

 

<% Option explicit
   'declaro as var
   dim varlogin, varemail, varsenha, conexao, conDBQ, constring, rsinsert, SQLinsert
   'recupero todos os dados
   varnome=trim(request.form("nome"))
   'crio a conexao
   %>
   <!--#include file="conn/conexao1.asp"-->
   <% 'abrir a conexao
   call abreconexao
  'crio o rsinsert para inseiri os dados no bd
   		 set rsinsert=server.createobject("ADODB.Recordset")
		'crio o SQLinsert pra incluir no bd
		SQLinsert="INSERT INTO informacoes (nome) Values ('"&varnome&"')"
		rsinsert.open SQLinsert,conexao,1,3
		response.redirect("administracao.asp?msg=1")
		set rsinsert=nothing
	call fechaconexao %>

rodou certinho, unica diferença , k redireciono para a pagina administracao.asp com um parametro na url msg=1

[Ted k' 126]

bom exemplo o do xan...

 

marmota, tente assim!

 

<%
Dim objConn, strCaminho, nome
nome = Request.Form("nome")

strCaminho = Server.MapPath("db/novo2.mdb")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strCaminho & ";"

objConn.execute("Insert Into informacoes (nome) Values ('"&nome&"')")
response.Write("cadastrado com sucesso")

objConn.Close
%>

[xanburzum 169]

verifique a versaun do MDAC e dê um response.write na sua string SQL

SQLinsert="INSERT INTO informacoes (nome) Values ('"&varnome&"')"
response.write(SQLinsert)
response.end()

[GabrielFerrari 41]

xanburzum Está me retornando esse erro:

Tentei achar algo sobre mas não consegui solucionar.

 

Tipo de erro:

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

Instrução esperada

/inserir2.asp, line 9

Option explicit

 

 

Vou pesquisar agora que estou com tempo sobre esse MDAC

Por que não sei nem o que é. rs

 

Ted k'

 

Funfo a mexirica com seu código.

 

 

 

 

Muito obrigado a vocês 2 pela força :)

[Ted k' 126]

beleza filho, qualquer dúvida posta æ!