• 0
Sign in to follow this  
§uiciDa£

2 Duvidas

Question

ae galera eu tnho duas duvidas q eu sei qvcs matam de prima ;)

1ª - como q eu faço um search onde a pessoa digita somente o nome, ele te responde com o cadastro inteiro da pessoa (o cadastro esa no access)

2ª - Com o q eu faço um lugar para a pessoa editar sua conta tipo, ela colocou em e-mail na hra de cadastrat, masi agora quer colocar otro, pra ela editar...

entenderam ?

bom é so isso hehehe...

vlw pela força

Share this post


Link to post
Share on other sites

5 answers to this question

Recommended Posts

  • 0

Tente isto, é só fazer os ajustes necessários:

mostra.asp

<%
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")

conStr = "Driver={Microsoft Access Driver (*.mdb)};Dbq="
conStr = conStr &"caminho_do_bd\nome_do_bd.mdb"
conn.Open conStr

sql = "Select * From nome_da_tabela Where nome_do_campo = '"& nome_digitado &"'"
rs.Open, conn, 3, 3
%>
<form action="atualiza.asp" method="post">
Nome:<input type="text" name="nome" value='<%=rs("nome")%>'><br>
E-mail:<input type="text" name="email" value='<%=rs("email")%>'><br>
<input type="submit" value="Atualizar">
</form>
<%
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>
atualiza.asp
<%
nome = Request.Form("nome")
email = Request.Form("email")

Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")

conStr = "Driver={Microsoft Access Driver (*.mdb)};Dbq="
conStr = conStr &"caminho_do_bd\nome_do_bd.mdb"
conn.Open conStr

sql = "Update nome_da_tabela Set nome_da_tabela.nome_campo_email = '"& email &"' Where nome_da_tabela.nome_campo_nome = '"& nome &"'"
rs.Open, conn, 3, 3

Response.Write "Cadastro atualizado com sucesso!"

rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>

Espero ter ajudado, qualquer dúvida volte a postar.

;)

Share this post


Link to post
Share on other sites
  • 0

ae cara o mostra.asp ta com o seguinte problema

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

[Microsoft][Driver ODBC para Microsoft Access] Não foi possível encontrar o arquivo '(desconhecido)'.

/arteoral/search.asp, line 7

"

e o q q eu tnho q colocar na pagina atualizado.asp ?

a line 7 é

"conn.Open conStr"

Share this post


Link to post
Share on other sites
  • 0

Onde está escrito "caminho_do_bd\nome_do_bd.mdb" é para você substituir pelo endereço e nome do seu banco de dados ex.:

c:\databases\bd1.mdb

Share this post


Link to post
Share on other sites
  • 0
Guest Aprendiz

ae, tipo, substitui isso:

conStr = "Driver={Microsoft Access Driver (*.mdb)};Dbq="

conStr = conStr &"caminho_do_bd\nome_do_bd.mdb"

por isso:

conStr = "Driver={Microsoft Access Driver (*.mdb)};"

conStr = conStr &"dbq="& server.mappath("members.mdb") &""

agora deve funcionar direito...

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this