Nenhuma resposta neste tópico

[viniciusjau]

bom esse é o primeiro tutorial que escrevo, então se alguém achar algum erro, por favor postem !!

vamos lá.... a idéia é a seguinte ao invés de criar uma conexão com seu Banco de dados pra em cada arquivo ASP você cria apenas um arquivo e todos os outros vão buscar essa conexão nesse arquivo....

isso ajuda bastante quando vc precisa mudar seu BD de nome ou de lugar no servidor.....

crie um banco de dados com o nome banco.mdb
com se guinte estrutura

tabela: CONTATO
campos:
AUTO_NUM  (auto numeração)
NOME (texto)
TELEFONE (texto)
COMENTARIO (memorando)

o arquivo de conexão:
conexao.asp

<%
Set Conn = Server.CreateObject("ADODB.Connection")
'cria a session
Session("conectado") = "false"

Sub connect()
If not Session("conectado") Then
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("banco.mdb")
Session("conectado") = "true"
End If
End Sub

Sub disconnect()
If Session("conectado") Then
Conn.Close
Set Conn = Nothing
Session("conectado") = "false"
End If
End Sub
%>

agora vou fazer um arquivo pra testar esse meu codigo de conexão
index.asp

<!--#include file="conexao.asp" --> ' chamar o arquivo conexao.asp
<% connect %> ' abrimos a conexão
<table width="550" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="180"><strong><font color="#666699" size="2" face="Arial, Helvetica, sans-serif">Nome</font></strong></td>
    <td width="280"><strong><font color="#666699" size="2" face="Arial, Helvetica, sans-serif">telefone</font></strong></td>
    <td width="90"><strong><font color="#666699" size="2" face="Arial, Helvetica, sans-serif">Coment&aacute;rio</font></strong></td>
  </tr>
</table>

<%
Set rs = Conn.Execute("SELECT * FROM contato ORDER BY auto_num") 'selecionamos a tabela contato e ordenamos os registro pelo campo de auto numeração

If not rs.EOF Then
Do until rs.eof 'loop
%>
<table width="550" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="180"><font size="2" face="Arial, Helvetica, sans-serif"><%=rs("nome")%></font></td>
    <td width="280"><font color="#003366" size="2" face="Arial, Helvetica, sans-serif"><%=rs("telefone")%></font></td>
    <td width="90"><font size="2" face="Arial, Helvetica, sans-serif"><%=rs("comentario")%></font></td>
  </tr>
</table>
<%  rs.MoveNext
  Loop

Else

  Response.Write("O banco de dados ainda está sem registros.") ' se o bacno estier vazio exibe essa msg

End if
%>
<% disconnect %> 'fechamos a conexão

o legal de usar esses arquivos pra conectar é a facilidade pra abrir e fechar conexões

'apaguem os cometários depois das aspas simples pro script rodar legal

qualquer coisa postem ae

-----------------------------------------------------------------------------------------------
Para uma maior organização desta seção, todas as duvidas relacionadas a este tutorial devem ser tiradas na seguinte sala:
http://forum.wmonlin...p?showforum=113