Adicionando Dados

[Guest Gladiator]

Eu estou tentando adicionar o meu texto no bd sql indo la na tabela e tentando colar direto. A variável é do tipo long text, mas mesmo assim não consigo. Eu so vou poder adicionar dados lá se for através de sistema formulário ???

Se tiver q ser assim..... alguém pode me dar um help ?!

vlws

[Victor]

Você quer que salve um texto quando abrir a página..Certo??

[Guest Gladiator]

Isso mesmo....a pessoa entra na página, preenche o formulário e os dados q ela preencheu no formulário, vão para o banco de dados no sql. alguém sabe onde tem um tuto sobre isso ?! alguém poderia me dar uma ajuda ?!

[Victor]

É só você usar o conn.execute...Assim:

Conn.execute "insert into tabela_bd (nome, email, mensagem) values ('"&request.form("nome")&"', '"&request.form("email")&"', '"&request.form("mensagem")&"')"

Caso tenha mais alguma dúvida posta ae, que te ajudaremos!!!

[]'s

Victor

[Guest Gladiator]

vlw victor !!

So uma rapidinha... depois eu denho q fechar esse conn e outras coisas como conexao, etc ?! Como eu posso fazer isso ?!

[Victor]

Depende da sua conexão ao banco de dados, mas se você usar esse pode deixa assim mesmo....Só fecho conexão quando é recordset, porque ele deixa mais lento

[]'s

Victor

[Guest Gladiator]

ae...

eu fiz um codigo, mas ele ta dando erro. Deem uma olhada....

<%
	Set Conn=Server.CreateObject("ADODB.Connection")
	Conn.CursorLocation=3
	Conn.open "DRIVER={SQL Server};DATABASE=Intranet;Network=DBMSSOCN;server=server-bd;uid=intraneti;pwd=intranet"
	Set RS=Server.CreateObject("ADODB.RecordSet")
	RS.Open sql, Conn
	If Not(rs.bof AND rs.eof) then
  For I =RS.recordcount to 1 step -1
           rs.absoluteposition=I	
  Next
	End If    
%>
<form>
    <p><span class="style1">T&iacute;tulo</span>: 
      <input name="titulo" type="text" id="titulo">
  </p>
    <p class="style2">&nbsp;</p>
    <p class="style2">Dica:
      <textarea name="dica" id="dica"></textarea>
</p>
    <p>&nbsp; </p>
    <button name="btnDelete" onclick="Conn.execute "insert into tbdicasword (titulo, dica) values ("&request.form("titulo")&", "&request.form("dica")&")"">salvar</button>
</form>

Essa n é a pag inteira..... é somente o que interessa.

[Guest Gladiator]

Quem puder me ajudar..... agradeço....!

[dark0]

err..

que erro esta dando?

[Victor]

<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.CursorLocation=3
Conn.open "DRIVER={SQL Server};DATABASE=Intranet;Network=DBMSSOCN;server=server-bd;uid=intraneti;pwd=intranet"
Set RS=Server.CreateObject("ADODB.RecordSet")
RS.Open sql, Conn
If Not(rs.bof AND rs.eof) then
 For I =RS.recordcount to 1 step -1
          rs.absoluteposition=I 
 Next
End If    
%>
<%
if request.form("acao") <> "" then
Conn.execute "insert into tbdicasword (titulo, dica) values ('"&request.form("titulo")&"', '"&request.form("dica")&"')"
else
%>
<form>
   <p><span class="style1">T&iacute;tulo</span>: 
     <input name="titulo" type="text" id="titulo">
 </p>
   <p class="style2">&nbsp;</p>
   <p class="style2">Dica:
     <textarea name="dica" id="dica"></textarea>
</p>
   <p>&nbsp; </p>
<input type="hidden" name="gravar"><input type="submit" name="gravar" value="gravar">
</form>
<%end if%>

Esse pode te ajudar melhor...Caso tenha mais alguma dúvida é só chamar que nós te ajudaremos!!!

[]'s

Victor

[Guest Gladiator]

Primeiro deu erro na linha 36, onde lá no final, tem um ELSE solto. Dai eu o substitui por um End If. Dps deu erro na linha 26, onde esta escrito:

RS.Open sql, Conn

Estou tentando substitui-lo por outra coisa..... qualquer coisa posta ai

[Victor]

Olhe esse agora, eu esqueci de algumas coisas

<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.CursorLocation=3
Conn.open "DRIVER={SQL Server};DATABASE=Intranet;Network=DBMSSOCN;server=server-bd;uid=intraneti;pwd=intranet"
Set RS=Server.CreateObject("ADODB.RecordSet")
RS.Open sql, Conn
If Not(rs.bof AND rs.eof) then
For I =RS.recordcount to 1 step -1
         rs.absoluteposition=I 
Next
End If    
%>
<%
if request.form("acao") <> "" then
Conn.execute "insert into tbdicasword (titulo, dica) values ('"&request.form("titulo")&"', '"&request.form("dica")&"')"
else
%>
<form>
  <p><span class="style1">T&iacute;tulo</span>: 
    <input name="titulo" type="text" id="titulo">
</p>
  <p class="style2">&nbsp;</p>
  <p class="style2">Dica:
    <textarea name="dica" id="dica"></textarea>
</p>
  <p>&nbsp; </p>
<input type="hidden" name="gravar"><input type="submit" name="gravar" value="gravar">
</form>
<%end if%>

Caso tanha mais dúvidas poste ai que te ajudaremos!!!

[]'s

Victor

[Guest Gladiator]

O erro continua sendo no

RS.Open sql, Conn

.....

[Victor]

Usa esse então que eu acabei de fazer:

conecta.asp

<%
local=Request.ServerVariables("SERVER_NAME")
if local="neme_do_computador" or local="localhost" then
	conexao= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\banco_de_dados\bd.mdb;Persist Security Info=False"
	endereco_virtual="http://"&local&"/"
	endereco_fisico="C:/Inetpub/wwwroot/"
end if

set conn = Server.CreateObject("adodb.connection")
conn.open conexao
%>

arquivo.asp

<!--#include file="conecta.asp"-->´
<%
Set RecSet = server.createobject("recordset")
%>
<%if request.form("acao") <> "" then
conn.execute "inset into tbdicasword (titulo, dica) values ('"&request.form("titulo")&"', '"&request.form("dica")&"')"
else
%>
<form action="arquivo.asp" method="post">
 <p><span class="style1">T&iacute;tulo</span>: 
   <input name="titulo" type="text" id="titulo">
</p>
 <p class="style2">&nbsp;</p>
 <p class="style2">Dica:
   <textarea name="dica" id="dica"></textarea>
</p>
 <p>&nbsp; </p>
<input type="hidden" name="gravar" value="acao"><input type="submit" name="gravar" value="gravar">
</form>
<%end if%>

Caso tenha mais alguma dúvida posta ae, que te ajudaremos!!!

[]'s

Victor

[Guest Gladiator]

vlw victor !!

[Victor]

vlw victor !!

Opa, espero ter ajudado, se der erro, ou tiver dúvida de alguma coisaé só falar....E se cadastra em nossa comunidade ai!!! Agradeço

[]'s

Victor