
Insert Into
#1
Posted 29/11/2010, 21:21
da erro nesta lins "set rsInfo = adoCon.Execute("INSERT INTO cadastro "
acho q ta meio certo, peguei todos os dados do formulario e queria enviar para o banco.
<%
nome = Request.Form("nome")
sobrenome = Request.Form("sobrenome")
email = Request.Form("email")
nascimento = Request.Form("nascimento")
login = Request.Form("login")
senha = Request.Form("senha")
curso = Request.Form("curso")
periodo = Request.Form("periodo")
'Declarando variáveis
Dim adoCon, strCon, rsInfo
Dim caminho_banco
'Definindo caminho do banco
caminho_banco = Server.MapPath("dados/banco.mdb")
'Definindo string de conexão
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & caminho_banco
'Criando objeto
Set adoCon = Server.CreateObject("ADODB.Connection")
'Abrindo conexão
adoCon.Open strCon
set rsInfo = adoCon.Execute("INSERT INTO cadastro (nome,sobrenome,email,nascimento,login,senha,curso,periodo) VALUES ('"& nome &","& sobrenome &","& email &","& nascimento &","& login &","& senha &","& curso &","& periodo &"')")
'Fechando conexão
adoCon.Close
Set adoCon = Nothing
response.write("enviada com sucesso")
%>
o que ta dando
#2
Posted 09/02/2011, 14:34
Olá galera, queria uma ajuda, estou iniciando estudo sobre asp, e estou com problema em uma coisa que acredito que seja facil para muito mas não consigo resolver, e apenas uma pagina de cadastro que envia as informação para um banco access.
da erro nesta lins "set rsInfo = adoCon.Execute("INSERT INTO cadastro "
acho q ta meio certo, peguei todos os dados do formulario e queria enviar para o banco.
<%
nome = Request.Form("nome")
sobrenome = Request.Form("sobrenome")
email = Request.Form("email")
nascimento = Request.Form("nascimento")
login = Request.Form("login")
senha = Request.Form("senha")
curso = Request.Form("curso")
periodo = Request.Form("periodo")
'Declarando variáveis
Dim adoCon, strCon, rsInfo
Dim caminho_banco
'Definindo caminho do banco
caminho_banco = Server.MapPath("dados/banco.mdb")
'Definindo string de conexão
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & caminho_banco
'Criando objeto
Set adoCon = Server.CreateObject("ADODB.Connection")
'Abrindo conexão
adoCon.Open strCon
set rsInfo = adoCon.Execute("INSERT INTO cadastro (nome,sobrenome,email,nascimento,login,senha,curso,periodo) VALUES ('"& nome &","& sobrenome &","& email &","& nascimento &","& login &","& senha &","& curso &","& periodo &"')")
'Fechando conexão
adoCon.Close
Set adoCon = Nothing
response.write("enviada com sucesso")
%>
o que ta dando
mude essa linha e veja se resolve:
StrCon = "INSERT INTO cadastro (nome,sobrenome,email,nascimento,login,senha,curso,periodo) VALUES ('"& nome &"','"& sobrenome &"','"& email &"','"& nascimento &"','"& login &"','"& senha &"','"& curso &"','"& periodo & "')" set rsInfo = adoCon.Execute(StrCon)
Você esqueceu de colocar ' nos valores.
Espero ter ajudado
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)