rsousa Postado Agosto 24, 2004 Denunciar Share Postado Agosto 24, 2004 Crieu uma pagina de cadastro no ex:incluir.html e outra pagina para conexão com o banco, já fiz varios testes e não esta gravando no banco. Se alguémpuder me ajudar ficarei muito grato, segue incluir.asp.<html><head><title>incluir2</title><%'Busca dos dados que foram submetidos txtnome = request.form("txtnome") txtcpf = request.form("txtcpf") txtrg = request.form("txtrg") sexo = request.form("sexo") txtdt_nasc = request.form("txtdt_nasc") txtend = request.form("txtend") txtbairro = request.form("txtbairro") txtcidade = request.form("txtcidade") optuf = request.form("optuf") txtcep = request.form("txtcep") txtref_entrega = request.form("txtref_entrega") txtfax = request.form("txtfax") txt_email = request.form("txt_email") txtsenha = request.form("txtsenha") txtconf_senha=request.form("txtconf_senha")'instrucao SQL instrucaoSQL = "insert into clientes (nome,cpf,rg,sexo,dt_nasc,endereco,bairro,cidade,cod_uf,cep,ref_entrega,tel,fax, e-mail,senha,confirma senha)"'& " values ('"& txtnome &"','"& txtcpf & "','"& txtrg &"','"& sexo &"','"& txtdt_nasc &"','"& txtend &"','"& txtbairro &"','"& txtcidade &"','"& txtoptuf &"','"& txtcep &"','"& txtref_entrega &"','"& txt_email &"','"& txtsenha &"','"& txtconf_senha &"')"'conexao com o banco de dadosset conn = Server.CreateObject("ADODB.Connection")caminho = "DBQ=" & Server.MapPath("../livraria.mdb")conn.open "Driver={Microsoft Access Driver (*.mdb)}; " & caminho'executar sqlset rs = conn.execute(instrucaoSQL)response.write (rs)rs.closeresponse.redirect("../principal.asp")%></head><body></body></html> Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 dark0 Postado Agosto 24, 2004 Denunciar Share Postado Agosto 24, 2004 não grava porque?Dá algum erro?O que acontece? Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
rsousa
Crieu uma pagina de cadastro no ex:incluir.html e outra pagina para conexão
com o banco, já fiz varios testes e não esta gravando no banco. Se alguém
puder me ajudar ficarei muito grato, segue incluir.asp.
<html>
<head><title>incluir2</title>
<%
'Busca dos dados que foram submetidos
txtnome = request.form("txtnome")
txtcpf = request.form("txtcpf")
txtrg = request.form("txtrg")
sexo = request.form("sexo")
txtdt_nasc = request.form("txtdt_nasc")
txtend = request.form("txtend")
txtbairro = request.form("txtbairro")
txtcidade = request.form("txtcidade")
optuf = request.form("optuf")
txtcep = request.form("txtcep")
txtref_entrega = request.form("txtref_entrega")
txtfax = request.form("txtfax")
txt_email = request.form("txt_email")
txtsenha = request.form("txtsenha")
txtconf_senha=request.form("txtconf_senha")
'instrucao SQL
instrucaoSQL = "insert into clientes (nome,cpf,rg,sexo,dt_nasc,endereco,bairro,cidade,cod_uf,cep,ref_entrega,tel,fax, e-mail,senha,confirma senha)"
'& " values ('"& txtnome &"','"& txtcpf & "','"& txtrg &"','"& sexo &"','"& txtdt_nasc &"','"& txtend &"','"& txtbairro &"','"& txtcidade &"','"& txtoptuf &"','"& txtcep &"','"& txtref_entrega &"','"& txt_email &"','"& txtsenha &"','"& txtconf_senha &"')"
'conexao com o banco de dados
set conn = Server.CreateObject("ADODB.Connection")
caminho = "DBQ=" & Server.MapPath("../livraria.mdb")
conn.open "Driver={Microsoft Access Driver (*.mdb)}; " & caminho
'executar sql
set rs = conn.execute(instrucaoSQL)
response.write (rs)
rs.close
response.redirect("../principal.asp")
%>
</head>
<body>
</body>
</html>
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.