Ir para conteúdo

POWERED BY:

Arquivado

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

Alex Galindo

inserir dados numa tabela

Por , em ASP Clássico

Recommended Posts

Alex Galindo    0

Alex Galindo
Postado

Gente ainda não consegui inserir dados na tabela, me salvem por favor!

meu banco:

Código - Auto-numeração - Chave primária;

. Autor - Texto - 50 caracteres;

. Notícia - Texto - 50 caracteres.

. Data - Data;

. Títuto - Texto - 50 caracteres.

 

pagina teste.asp

 

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
</head>

<body>

<form name="aspacc" method="post" action="inserir.asp">
Título: <input type=text name=titulo><br>
Noticia: <input type=text name=noticia><br>
Autor da Noticia: <input type=text name=autor><br>
<input type=submit value=Enviar>
</form>

</body>
</html>
___________________________________________________________________________

 

pagina inserir.asp

 

<%
titu = Request.form("titulo")
noticia = Request.form("noticia")
autor = Request.form("autor")
if len(titu)=0 or len(noticia)=0 or len(autor)=0 then
response.write("Preencha todos os campos")
else
set banco = Server.CreateObject("ADODB.Connection")
'Dim caminho
Dim banco
'caminho = "testes/dados.mdb"
banco.open "DBQ="& Server.MapPath("dados.mdb") &",DRIVER={Microsoft Access Driver (*.mdb)};UID=;PWD="
data = date
set INSE = Banco.Execute("INSERT INTO noticias (titulo,data,noticia,autor) VALUES ('"& titulo &"',"& data &",'"& noticia &"','"& autor &"')")
reponse.write("Notícia enviada com sucesso")
End if
banco.close
%>
____________________________________________________________________________

 

caminho fisico: c:inetpub/wwwroot/testes/testes.asp

 

erro nessa linha:

set INSE = Banco.Execute("INSERT INTO noticias (titulo,data,noticia,autor) VALUES ('"& titulo &"',"& data &",'"& noticia &"','"& autor &"')")

 

ele não acha a fonte de dados mais o banco ta criado certo e acho q o codigo tb está certo, então porque isso nao roda!!!

 

Se puderem me ajudar? Não sei mais o q fazer, sem idéias ja! Grato!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Felipe Fonseca    0

Felipe Fonseca
Postado 

Set objConn = Server.CreateObject("ADODB.Connection")
	objConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("_database.mdb")) 

	Insert= "INSERT INTO TABELA (CAMPO1) VALUES ('VALOR 1')"
	Set RS = objConn.Execute(Insert)

Teste ai ...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Alex Galindo    0

Alex Galindo
Postado

coloquei agora so um campo autor.

mudei o banco tambem com um campo só.

 

coloquei a linha q você me disse ficou assim:

<%
autor = Request.form("autor")
if len(autor)=0 then
response.write("Preencha todos os campos")
else

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dados.mdb")) 

Insert= "INSERT INTO noticias (autor) VALUES ('autor')"
Set RS = objConn.Execute(Insert)

reponse.write("Notícia enviada com sucesso")
End if
banco.close
%>

________________________________

 

ta dando erro agora nessa linha aqui:

 

Set RS = objConn.Execute(Insert) - (mensagem de erro:A operação deve usar uma consulta atualizável).

 

 

eu tenho que declarar: RS e Insert (tipo: Dim RS e Dim Insert, depois do Else?)

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