Search Avançado
Onde procurar

This topic

Fóruns

Membros

Help Files
Novas postagens

Javascript Disabled Detected

You currently have javascript disabled. Several functions may not work. Please re-enable javascript to access full functionality.

Sistema De Mural De Mensagens...

Started By Bart, 02/11/2003, 09:03

Faça o login para participar

33 replies to this topic

#1 Bart

Ativo

Usuários
331 posts

Sexo:Não informado
Localidade:Coromandel
Interesses:Chegando pra ser o melhor!

Posted 02/11/2003, 09:03

Ae galera tou fazendo o sistema de mural pro meu site em ASP, mas numm to conseguindo fazer ele gravar as mensagens no mural...olhem os códigos aí

enviarmgs.asp

<html>
<head>
<font face="Arial" size="2">Nome:<br>
&nbsp;</font><form method="GET" action="verifica.asp">
  <input type="text" name="txtnome" size="31" style="font-size: 8 pt; font-family: Arial; font-weight: bold"><p><font face="Arial" size="2">
  Título:</font></p>
  <p>
  <input type="text" name="txttitulo" size="31" style="font-size: 8 pt; font-family: Arial; font-weight: bold"></p>
  <p><font size="2" face="Arial">Mensagem:</font></p>
  <p>
  <textarea rows="11" name="txtmensagem" cols="68" style="font-size: 8 pt; font-family: Arial; font-weight: bold"></textarea></p>
  <p><input type="submit" value="Enviar Mensagem" name="B1">&nbsp;&nbsp; <input type="reset" value="Limpar" name="B2"></p>
  </p>
</form>
<p>&nbsp;</p>

esse agora é a página que verifica e insere no banco de dados, mas num ta inserindo

verifica.asp

<%@Language=VBScript%>
<%
nome = Request.Form("txtnome")
titulo = Request.Form("txttitulo")
mensagem = Request.Form("txtmensagem")

Set con = Server.CreateObject("ADODB.Connection")
con.Open DSN

Set SQL = con.Execute("Insert into MURAL(nome,titulo,mensagem) values('" & nome & ", " & titulo", " & mensagem "'))
%>

As mensagens não tão ficando gravadas no banco de dados, nada ta ficando gravado no banco.
oq devo fazer ?

Edição feita por: Bart, 02/11/2003, 09:16.

Sims Ville - The Sims 2 é aqui!
Green Day Maniacs.com - Breve

#2 K I L L I N G

Batera na veia, ASP no coração

Banidos
398 posts

Sexo:Não informado

Posted 02/11/2003, 09:45

Olha soh..
vc tem que mostrar o lugar onde vai inserir etc

set conn = server.createobject("adodb.connection")
local = server.mappath("banco.mdb")
conn.open "DRIVER = {Microssoft Access Driver (*.mdb)}; DBQ=" & local
set rs = server.createobject("ADODB.Recordset")
SQL = "SELECT * FROM mural"
conn.open SQL, conn, 3, 3

rs.addNew
rs("nome")=nome
rs("titulo")=titulo
rs("mensagem")=mensagem
rs.update

http://www.fiquecomigo.com
http://www.fiquecomigo.com.br
Encontre o amor da sua vida aqui!

Vinícius Nunes Lage
vinibaterabol@msn.com

#3 Bart

Ativo

Usuários
331 posts

Sexo:Não informado
Localidade:Coromandel
Interesses:Chegando pra ser o melhor!

Posted 02/11/2003, 09:51

Ae killing coloquei esse código seu e deu esse erro

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Driver Manager] Nome da fonte de dados não encontrado e nenhum driver padrão especificado
/mural/verifica.asp, line 4

substitui todo o meu código da página verifica.asp e deu esse erro.

outra coisa, pra q serve esse código

conn.open SQL, conn, 3, 3

qdo devo usá-lo ? pra q esses números ?

Sims Ville - The Sims 2 é aqui!
Green Day Maniacs.com - Breve

#4 crazybaby

Cyber Eye

Banidos
1112 posts

Sexo:Não informado
Localidade:Divinopolis-MG
Interesses:ASP & Design

Posted 02/11/2003, 10:37

pronto taí arrumado ate!

<%@Language=VBScript%>
<%
nome = Request.Form("txtnome")
titulo = Request.Form("txttitulo")
mensagem = Request.Form("txtmensagem")

Set con = Server.CreateObject("ADODB.Connection")
con.Open DSN

Set SQL = con.Execute("Insert into MURAL(nome,titulo,mensagem) values('" & nome & "', '" & titulo &"', '" & mensagem &"'))
%>

arrumei 4coisas...q foram o & (concatenação em duas variavieis)e a aspa simples em alguns q faltaam......

flow

Está com duvida? | Tchau | Entre | Você é visitante?

Regras do Fórum | Warn System

#5 Bart

Ativo

Usuários
331 posts

Sexo:Não informado
Localidade:Coromandel
Interesses:Chegando pra ser o melhor!

Posted 02/11/2003, 10:45

Ae crazy deu o seguinte erro

Microsoft VBScript (0x800A0409)
Set SQL = con.Execute("Insert into MURAL(nome,titulo,mensagem) values('" & nome & "', '" & titulo &"', '" & mensagem &"')

Sims Ville - The Sims 2 é aqui!
Green Day Maniacs.com - Breve

#6 crazybaby

Cyber Eye

Banidos
1112 posts

Sexo:Não informado
Localidade:Divinopolis-MG
Interesses:ASP & Design

Posted 02/11/2003, 10:52

testa aí....

<%@Language=VBScript%>
<%
nome = Request.Form("txtnome")
titulo = Request.Form("txttitulo")
mensagem = Request.Form("txtmensagem")

Set con = Server.CreateObject("ADODB.Connection")
con.Open DSN

Set SQL = con.Execute("Insert into MURAL(nome,titulo,mensagem) values('" & nome & "', '" & titulo &"', '" & mensagem &"')")
%>

Está com duvida? | Tchau | Entre | Você é visitante?

Regras do Fórum | Warn System

#7 Bart

Ativo

Usuários
331 posts

Sexo:Não informado
Localidade:Coromandel
Interesses:Chegando pra ser o melhor!

Posted 02/11/2003, 10:59

Ae crazy deu esse erro

Tipo de erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Driver Manager] Nome da fonte de dados não encontrado e nenhum driver padrão especificado
/mural/verifica.asp, line 8

Será que eu num tenho q conectar com o banco.mdb não ? Se sim em q parte do código devo conectar e qual o código para conexão ?

Sims Ville - The Sims 2 é aqui!
Green Day Maniacs.com - Breve

#8 Bart

Ativo

Usuários
331 posts

Sexo:Não informado
Localidade:Coromandel
Interesses:Chegando pra ser o melhor!

Posted 02/11/2003, 13:14

Ninguém ae sabe não ?

Sims Ville - The Sims 2 é aqui!
Green Day Maniacs.com - Breve

#9 crazybaby

Cyber Eye

Banidos
1112 posts

Sexo:Não informado
Localidade:Divinopolis-MG
Interesses:ASP & Design

Posted 02/11/2003, 13:15

Ae crazy deu esse erro

Tipo de erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Driver Manager] Nome da fonte de dados não encontrado e nenhum driver padrão especificado
/mural/verifica.asp, line 8

Será que eu num tenho q conectar com o banco.mdb não ? Se sim em q parte do código devo conectar e qual o código para conexão ?

claro q tem!!!!!

<%@Language=VBScript%>
<%
nome = Request.Form("txtnome")
titulo = Request.Form("txttitulo")
mensagem = Request.Form("txtmensagem")

set con = createobject("AdoDb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("banco.mdb")
con.open constr

Set SQL = con.Execute("Insert into MURAL(nome,titulo,mensagem) values('" & nome & "', '" & titulo &"', '" & mensagem &"')")
%>

Está com duvida? | Tchau | Entre | Você é visitante?

Regras do Fórum | Warn System

#10 Bart

Ativo

Usuários
331 posts

Sexo:Não informado
Localidade:Coromandel
Interesses:Chegando pra ser o melhor!

Posted 02/11/2003, 13:28

Ae crazy olha o erro ae

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Driver ODBC para Microsoft Access] A operação deve usar uma consulta atualizável.
/mural/verifica.asp, line 10

Sims Ville - The Sims 2 é aqui!
Green Day Maniacs.com - Breve

#11 crazybaby

Cyber Eye

Banidos
1112 posts

Sexo:Não informado
Localidade:Divinopolis-MG
Interesses:ASP & Design

Posted 02/11/2003, 13:36

Ae crazy olha o erro ae

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Driver ODBC para Microsoft Access] A operação deve usar uma consulta atualizável.
/mural/verifica.asp, line 10

a tabela mural esta em maiusculo...tenta coloikar em minusculo com um dos ultimos recursos q tenhu....

<%@Language=VBScript%>
<%
nome = Request.Form("txtnome")
titulo = Request.Form("txttitulo")
mensagem = Request.Form("txtmensagem")

set con = createobject("AdoDb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("banco.mdb")
con.open constr

Set SQL = con.Execute("Insert into mural(nome,titulo,mensagem) values('" & nome & "', '" & titulo &"', '" & mensagem &"')")
%>

Está com duvida? | Tchau | Entre | Você é visitante?

Regras do Fórum | Warn System

#12 Tarkan

Ex-Admins
651 posts

Sexo:Masculino
Localidade:Copacabana - RJ

Posted 02/11/2003, 13:40

Permissão de gravação.
Não se trata de permissão no BD, mas permissão no físico.
Experimente liberar a permissão para todos os usuários.
Quando ocorre este erro, pode ser 2 coisas:

1 - O banco de dados não está com permissão para escrita.
2 - Você está usando um cursor que não permite alterações na base de dados.

No seu servidor deve ter alguma pasta que tenha permissão para gravação, escrita, etc.
Justamente para não ocorrer este tipo de problema.

Caso não consiga resolver e queira se aprofundar no assunto, entre:
http://support.micro...B;en-us;q175168 (Site em inglês).
Ou então em: http://www.aspfaqs.c...Q.asp?FAQID=107

Abraços, boa sorte!

' nome: gustavo veiga
' profissão: ALOG Data Centers do Brasil (analista de sistemas)
' publicidade: ALOG Data Centers do Brasil

#13 Rodrigo

oi!

Usuários
995 posts

Sexo:Não informado
Interesses:Diretório de sites - http://www.acheinobrasil.com.br

Posted 02/11/2003, 13:40


<%@Language=VBScript%>

<%

nome = Request.Form("txtnome")

titulo = Request.Form("txttitulo")

mensagem = Request.Form("txtmensagem")



set con = createobject("AdoDb.connection")

constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("banco.mdb")

con.open constr, 1, 3



Set SQL = con.Execute("Insert into mural(nome,titulo,mensagem) values('" & nome & "', '" & titulo &"', '" & mensagem &"')")

%>

Diretório de sites brasileiros - Achei no Brasil