TUTORIAIS DE ASP
 
3. Conectividade com Base de dados
Página: 1 2 3 4 5 6
 

Se estás a criar uma aplicação baseada na Web, é provavel que essa aplicação venha a ter formulários, e que requeira algum tipo de Base de dados. O ADO (ActiveX Data Objects) fornece-te um conjunto de ferramentas poderosas para aceder e manipular origens de dados.
 

Consulta Simples : Ilustra como podes utilizar o ADO e o ASP em conjunto para efectuar consultas simples a Base de Dados. Iremos observar como obter um pequeno conjunto de registo a partir de uma Base de dados em Microsoft Access.

Vamos observar o seguinte código, que guardamos como "simples.asp"
<%@ LANGUAGE = VBScript %>
<% Option Explicit %>

<HTML>
<HEAD>
<TITLE>Simples Query ADO </TITLE>
</HEAD>

<BODY BGCOLOR="White" topmargin="10" leftmargin="10">

<!-- Mostra cabeçalho-->

<font size="4" face="Arial, Helvetica">
<b>Simples Query ADO com ASP</b></font><br>

<hr size="1" color="#000000">

Contactos com a Base de Data Autores :<br><br>

<%
Dim oConn
Dim oRs
Dim filePath
Dim Index


' Identifica o caminho da Base de dados
filePath = Server.MapPath("authors.mdb")


' Cria ADO Connection Component para conectar
' com a Base de Dados


Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath


' Executa a SQL query e guarda os resultados
' num recordset

Set oRs = oConn.Execute("SELECT * From authors")
%>


<TABLE border = 1>
<%
Do while (Not oRs.eof) %>

<tr>
<% For Index=0 to (oRs.fields.count-1) %>
<TD VAlign=top><% = oRs(Index)%></TD>
<% Next %>
</tr>

<% oRs.MoveNext
Loop
%>

</TABLE>

<%
oRs.close
oConn.close
%>

</BODY>
</HTML>

 
 

Acionando o nosso já conhecido PWM, e obteremos qualquer coisa como a imagem de cima.

Obs: A Base de dados que serviu para este teste, é a Autores.Mdb
 

ANÚNCIOS

 



 
 
 
  Tutoriais | Fóruns de Discussão | Notícias | Jogos | Dicas | Flash | Downloads | Livros
Gifs Animados | Loja Online | Publicitar no Truques e Dicas | Contactos