6 replies to this topic

[leleko]

perai, vc quer um formulário? é isso?
no qual o usuário preencheria estes campos e os mesmos iriam para o bd?

"Preciso colocar um pequeno banco de dados em meu site que guarde os seguintes dados."

pelo que pude intender, acho que é isso que vc quer.. ou nao?

[cybermix]

para voce fazer o que voce quer 1º crie um banco de dados com uma tablea chamada dados e os campos para inserir esse dados q vc relacionou e crie um formulario em html com os campos relacionados por vc ok? dai na parte "<form action"
vc coloca "<form action=valida.asp method=post>.
ai vai como sera o arquivo valida.asp

<%
Set db = Server.CreateObject("ADODB.Connection")
conexao = "DBQ=" & Server.MapPath("db.mdb")
DB.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & conexao

sql = "insert into dados (nome, idade, endereco, cidade, estado, telefone, email) VALUES ('"&request.form("nome")&"', '"&request.form("idade")&"', '"&request.form("endereco")&"', '"&request.form("cidade")&"', '"&request.form("estado")&"', '"&request.form("telefone")&"', '"&request.form("email")&"')"
db.execute(sql)

response.write "dados inseridos com sucesso"
%>

:ok:

[crazybaby]

para voce fazer o que voce quer 1º crie um banco de dados com os campos para inserir esse dados q vc relacionou e crie um formulario em html com os campos relacionados por vc ok? dai na parte "<form action"
vc coloca "<form action=valida.asp method=post>.
ai vai como sera o arquivo valida.asp

<%
Set db = Server.CreateObject("ADODB.Connection")
conexao = "DBQ=" & Server.MapPath("db.mdb")
DB.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & conexao

sql = "insert into dados (nome, idade, endereco, cidade, estado, telefone, email) VALUES ('"&request.form("nome")&"', '"&request.form("idade")&"', '"&request.form("endereco")&"', '"&request.form("cidade")&"', '"&request.form("estado")&"', '"&request.form("telefone")&"', '"&request.form("email")&"')"
db.execute(sql)

response.write "dados inseridos com sucesso"
%>

:ok:

ql a tabela q se está inserindo aí cyber?dados?

[cybermix]

sim pq?

[crazybaby]

sim pq? 

atoa é só pra saber usar esse seu metodo!
o meu é mais diferente !eu uyso assim:

<%
If request.form("senha") = request.form("confirmsenha") Then
nome=request.Form("nome")
login=request.Form("login")
senha=request.Form("senha")
icq=request.form("icq")
msn=request.Form("msn")
email=request.form("email")
estado=request.form("estado")
cidade=request.form("cidade")

DB = server.mappath ("bancodedados.mdb")
Set conn = Server.CreateObject( "adodb.Connection" )
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & db & ";"

sql = "select * from usuarios where login = '"&login&"'"
set teste=conn.execute(sql)

if not teste.eof then
response.write "Esse login ja exsite escolha outro"
end if

set rs = server.createobject("adodb.recordset")

RS.open "usuarios", conn, 1, 3

if rs.recordcount = 0 then
rs.close
rs.open "usuarios", conn, 2, 2
rs.addnew
rs("nome") = nome
rs("login") = login
rs("senha") = senha
rs("icq") = icq
rs("msn") = msn
rs("email") = email
rs("estado") = estado
rs("cidade") = cidade
rs.update
rs.close
conn.close
response.write "Cadastro realizado com sucesso!"
Response.Write"<p>"
Response.Write"<a href=index.html>"
response.write "Clik aki pára voltar e logar."
Response.Write"</a>"
Response.Write"</p>" 
else
rs.movelast
rs.addnew
rs("nome") = nome
rs("login") = login
rs("senha") = senha
rs("icq") = icq
rs("msn") = msn
rs("email") = email
rs("estado") = estado
rs("cidade") = cidade
rs.update
rs.close
conn.close
response.write "Cadastro realizado com sucesso!"
Response.Write"<p>"
Response.Write"<a href=index.html>"
response.write "Clik aki pára voltar e logar."
Response.Write"</a>"
Response.Write"</p>"
end if
Else
Response.Write ("As senhas digitadas não são iguais!Clique em voltar e redigite novamente.")
Response.Write"<p>"
Response.Write"<a href=java script:history.back()>"
Response.Write"Click aki pra voltar"
Response.Write"</p>"
Response.Write"</a>"
End If
%>

o meu é um cacet.e de taum grande! putz pra frazer isso aki naum foi brincadeira naum teu é bem menor vou catar ele!

[KAKO-]

Olá Amigos, eu tb sou novo nesse assunto de ASP. Dae eu li e executei todas essas mensagens anteriores. (so para testar)

e no meu dominiu deu essa seguinte mensagem

#################################################
Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x85c Thread 0xad0 DBC 0x1138672c Jet'.

/teste/teste/valida.asp, line 12
#################################################

Se alguem puder me ajudar a verificar isso eu agradeço.
[]'s