Ir para conteúdo

POWERED BY:

Arquivado

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

Marcos Biasi

Inserir dados de Formulario

Por , em ASP Clássico

Recommended Posts

Marcos Biasi    0

Marcos Biasi
Postado

Pessoal, Estou inciando o aprendizado em programação ASP. Bom .. pretendo criar um formulário em HTML com campos para nome, data, texto, botão de envio etc e pretendo salvar estes dados em um banco de dados em Access que já criei com uma tabela através de um arquivo em asp.Eu ja consigo criar a conexão com este banco de dados mas não consegui inserir os novos dados no banco. Alguem pode me ajudar a inserir estes dados no banco ??Este é o arquivo do formulário:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Untitled Document</title><style type="text/css"><!--.style4 { font-size: x-large; font-family: Arial, Helvetica, sans-serif;}--></style></head><body><form id="dados_sp" name="dados_sp" method="post" action="insere.asp"> <div align="center"> <p><span class="style4">Bilhete de Defeito - On Line</span>:<br /> <br /> <input type="radio" name="motivo"> <strong>Inclusão na Base</strong> <input type="radio" name="motivo"> <strong>Retirada da Base</strong> <input type="radio" name="motivo"> <strong>Página de Bloqueio</strong> <input type="radio" name="motivo"> <strong>Suporte Linux </strong></p> </div> <div align="left"> <p><blockquote><strong>Nome do operador:</strong> <input name="nome" type="text" size="25" maxlength="25" /> <strong>RE: </strong> <input name="re" type="text" size="8" maxlength="6" /> <strong>DATA: </strong> <input name="data" type="text" size="8" maxlength="8" /> </p><br /> <p><strong>Nome e sobrenome do reclamante :</strong></p> <input name="cliente" type="text" size="25" maxlength="25" /> <br /><br /> </label> DDD <input name="ddd" type="text" size="5" maxlength="2" />Terminal <input name="terminal" type="text" size="10" maxlength="8" /> Localidade <input name="localidade" type="text" size="10" maxlength="5" /> <br /> <br /> <strong>Telefone de Contato: </strong><br /> <br /><label> DDD <input name="ddd2" type="text" size="5" maxlength="2" /></label><label> Telefone <input name="contato" type="text" size="10" maxlength="8" /> <br /><br /> </label></blockquote></div><div align="center"> <input type="submit" name="Enviar" value="Enviar" /></div> </label> </div></form></body></html>Este é o arquivo de inserção:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Untitled Document</title></head><body><%set conexao = Server.CreateObject("ADODB.Connection")conexao.provider= "Microsoft.Jet.OLEDB.4.0"conexao.connectionstring=Server.MapPath("bd1.mdb")conexao.open%><%SQL = "Select * from teste"set rs = conexao.execute(sql)response.write rs("nome")%><p>comando <%=SQL%> foi executado. <br>Os dados foram inseridos.</p></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Marcos Biasi    0

Marcos Biasi
Postado

Desculpe .. está errado .. bom o código para inserir está assim:<%set conexao = Server.CreateObject("ADODB.Connection")conexao.provider= "Microsoft.Jet.OLEDB.4.0"conexao.connectionstring=Server.MapPath("bd1.mdb")conexao.openSQL = "insert into teste(nome) Values('"&Snome&"')"conexao.Execute(SQL)%>Veja o erro que está dando !! : Tipo de erro:Microsoft JET Database Engine (0x80004005)A operação deve usar uma consulta atualizável./cadastro/insere.asp, line 21

Compartilhar este post

Link para o post
Compartilhar em outros sites

Marcos Biasi    0

Marcos Biasi
Postado

Poste o codigo completo para analisarmos..

Já resolvi o problema de permissão de acesso, porém o problema agora é o seguinte:Informações técnicas (para a equipe de suporte)Tipo de erro:Microsoft JET Database Engine (0x80040E14)Erro de sintaxe (operador faltando) na expressão de consulta ''dd, 'terminal', 'local', 'd2', 'telefone')'./cadastro/insere.asp, line 27isso acontece quando insiro mais que 4 itens no banco de dados. Segue o código:<html><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Untitled Document</title></head><body><% Dim Smotivo, Snome, Sre, Sdata, Scliente, Sddd, Sterminal, Slocalidade, Sddd2, StelefoneSmotivo = Request.Form("motivo")Snome = Request.Form("nome")Sre = Request.Form("re")Sdata = Request.Form("data")Scliente = Request.Form("cliente")Sddd = Request.Form("ddd")Sterminal = Request.Form("terminal")Slocalidade = Request.Form("localidade")Sddd2 = Request.Form("ddd2")Stelefone = Request.Form("telefone")%><%set conexao = Server.CreateObject("ADODB.Connection")conexao.provider= "Microsoft.Jet.OLEDB.4.0"conexao.connectionstring=Server.MapPath("bd1.mdb")conexao.openSQL = "Insert Into Banco(nome, re, data, cliente, ddd, terminal, localidade, ddd2, telefone) Values('"&Snome&"', '"&Sre&"', '"&Sdata&"', '"&Scliente&"', '"&Sddd&", '"&Sterminal&"', '"&Slocalidade&"', '"&Sddd2&"', '"&Stelefone&"')"'SQL = SQL & Request.Form("nome") & "," & Request.Form("re")& "'"conexao.execute(SQL)%><%IF ERR THENRESPONSE.WRITE "ERRO: " & ERR.DESCRIPTION & "<BR>" & ERR.NUMBERELSERESPONSE.REDIRECT "confirma.html"END IF %><p>comando <%=strSQL5%> foi executado. <br>Os dados foram inseridos.</p></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Marcos Biasi    0

Marcos Biasi
Postado

Esses campos estão definidos com números? Caso Positivo ... coloque sem as 'aspas simples' ficando assim: " & variavel & " saacow?

Valeu galera ... funcionou perfeitamente !!!!!!!!! tava faltando aspas mesmoAbs []

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