• 0
Sign in to follow this  
KvT

Buscar Informações No Banco De Dados

Question

A alguns dias atras eu criei um tópico perguntando como se fazia uma conexao com um BD em ACCESS e perguntei também como fazia para inserir os dados nesse BD com um codigo ASP.

pois bem depois de estudar bastante e de grandes ajudas consegui produzir esse codigo...

que funciona...

mas não consigo de forma alguma puxar do banco de dados e emprimir em forma de lista...

para colocar no banco utilizei esse codigo abaixo:

<% 

inome = Request.Form("fnome")                     'fnome = campo nome de um form
iendereco = Request.Form("fendereco")
idatahora = Request.Form("fdatahora")

Set conn = Server.CreateObject("ADODB.Connection")
conn.open "kim"

Sql = "insert into tabela1 (nome, endereco, datahora) values ('"&inome&"','"&iendereco&"','"&idatahora&"')"

conn.Execute(Sql)

conn.close
%>
<html>
<head>
<title></title>
</head>
<body bgcolor="#ffffff" text="#000000" leftmargin=0 topmargin=0>
<font face="Arial" size=2>

Nome :<% Response.write inome %>
<br>Endereço :<% Response.write iendereco %>
<br>Data & Hora :<% Response.write idatahora %>

<br><br><br>
<p style="color:#00FF00">INFORMAÇÕES INCLUIDAS COM SUCESSO</p>
<BR>
<BR><br>
<A HREF="index.htm" style="color:#FF0000">Pagina Inicial</A>
</font>
</center>
</body>
</html>
Reparem que utilizei o insert, com isso gostaria de saber como faço apra imprimir? meu codigo ficou mais ou mesnos assim:
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "kim"

vSql = "Select * from kim"

Set rs=conn.Execute(vSql))

conn.close 
%>

<html>
<body leftmargin=0 topmargin=0 bgcolor="#ffffff">
<% Do While Not tabela1.Eof %>
<br>&nbsp;&nbsp;&nbsp;Nome: <%Response.Write tabela1.Fields("nome") %>
<br>&nbsp;&nbsp;&nbsp;Endereço: <%Response.Write tabela1.Fields("endereco") %>
<br>&nbsp;&nbsp;&nbsp; Data & Hora: <%Response.Write tabela1.Fields("datahora") %>
<br>
<br><br>
[<a href="index.htm">Página Inicial</a> ]
</center>
</body>
</html>

e agora o que eu faço onde estou errando no segundo codigo?

por favor preciso de ajuda...

QUal o comando que é o inverso de insert?

Desde já agradeço pela ajuda

Abraço para todos

Edited by andreia_sp

Share this post


Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 0

Bom sugestoes de melhoras:

<%

inome = Request.Form("fnome") 'fnome = campo nome de um form

iendereco = Request.Form("fendereco")

idatahora = Request.Form("fdatahora")

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

conn.open "kim"

conn.execute("insert into tabela1 (nome, endereco, datahora) values ('"&inome&"','"&iendereco&"','"&idatahora&"')")

%>

<html>

<head>

<title></title>

</head>

<body bgcolor="#ffffff" text="#000000" leftmargin=0 topmargin=0>

<font face="Arial" size=2>

Nome :<%= inome %>

<br>Endereço :<%= iendereco %>

<br>Data & Hora :<%= idatahora %>

<br><br><br>

<p style="color:#00FF00">INFORMAÇÕES INCLUIDAS COM SUCESSO</p>

<BR>

<BR><br>

<A HREF="index.htm" style="color:#FF0000">Pagina Inicial</A>

</font>

</center>

</body>

</html>

Na parte da exibição o que está errado é que você fecha a conexao e depois faz o loop na tabela, ou seja, feche a conexao DEPOIS de fazer o loop nos dados. E tambem voce não está mandando mover para o proximo registro:

<%

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

conn.open "kim"

vSql = "Select * from kim"

Set rs=conn.Execute(vSql)

%>

<html>

<body leftmargin=0 topmargin=0 bgcolor="#ffffff">

<% While Not rs.Eof %>

<br>&nbsp;&nbsp;&nbsp;Nome: <%= rs("nome") %>

<br>&nbsp;&nbsp;&nbsp;Endereço: <%= rs("endereco") %>

<br>&nbsp;&nbsp;&nbsp; Data & Hora: <%= rs("datahora") %>

<% rs.movenext

wend

%>

<br>

<br><br>

[<a href="index.htm">Página Inicial</a> ]

</center>

</body>

</html>

<%

set rs = nothing

conn.close

%>

tenta aí ;)

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