helyoWAP

Autores: Helio Fonseca Rosa e Andrea de Mello Rosa

Esta página contém 3 figuras grandes. Aguarde a carga se a conexão estiver lenta.

Para você conferir no campo do simulador mais abaixo, gravei este programa com o nome bancow3.asp, com a opção "somente texto" na pasta c:/inetpub/wwwroot/asp.

Programa bancow3.asp

<%
Response.ContentType = "text/vnd.wap.wml" 
%>
<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"
" http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card>
<p>
***** HELYOWAP *****<br/>
**ACCESS/NORTHWIND**<br/>
<%
DIM conNorthwind
DIM recProducts
const cntCaminho = "c:\inetpub\wwwroot\asp\northwind.mdb"
Set conNorthwind = Server.CreateObject("ADODB.Connection")
Set recProducts = Server.CreateObject("ADODB.Recordset")
conNorthwind.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &
 cntCaminho
recProducts.Open "Products",conNorthwind
%>
Produto :
<%
Response.Write recProducts.Fields("ProductName")
%>
<br/>
Fornecedor :
<%
Response.Write recProducts.Fields("SupplierID")
recProducts.Close
conNorthwind.Close
%>
</p>
</card>
</wml>

Como foi dito acima , a constante que define o caminho do banco poderia ser const cntCaminho = "c:\Program Files\Microsoft Office\Office\Samples\northwind.mdb" , com o mesmo resultado, caso não tivesse sido feita a mudança de endereço do banco.

Abaixo está o resultado no simulador. Observe o seguinte detalhe: na tabela dos Produtos mostrada acima, aparecia o nome do Supplier (fornecedor) e não o código. Na tela do simulador aparece o código. Isto se deve ao fato que o campo "SupplierID" é numérico e contém realmente um código numérico, não visível (confira na tabela de descrição do campo). Mais adiante vamos voltar ao assunto e mostrar como transformar o código em nome.

Vamos introduzir uma pequena modificação no script para que possamos ver os três primeiros produtos da tabela. O script modificado está na cor azul :

Programa bancow4.asp

<%
Response.ContentType = "text/vnd.wap.wml" 
%>
<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"
" http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card>
<p>
***** HELYOWAP *****<br/>
**ACCESS/NORTHWIND**<br/>
<%
DIM conNorthwind
DIM recProducts
const cntCaminho = "c:\inetpub\wwwroot\asp\northwind.mdb"
Set conNorthwind = Server.CreateObject("ADODB.Connection")
Set recProducts = Server.CreateObject("ADODB.Recordset")
conNorthwind.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & cntCaminho
recProducts.Open "Products",conNorthwind
For i = 0 to 2
Response.Write recProducts.Fields("ProductName") & "<br/>"
recProducts.MoveNext
Next
recProducts.Close
conNorthwind.Close
%>
</p>
</card>
</wml>

Eis o resultado no simulador:

Mais uma modificação. Agora desejamos acessar através do simulador todos os produtos da tabela. As modificações estão em azul:

Programa bancow5.asp

<%
Response.ContentType = "text/vnd.wap.wml" 
%>
<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"
" http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
  <card>
     <p>
      ***** HELYOWAP *****<br/>
      **ACCESS/NORTHWIND**<br/>
<%
DIM conNorthwind
DIM recProducts
const cntCaminho = "c:\inetpub\wwwroot\asp\northwind.mdb"
Set conNorthwind = Server.CreateObject("ADODB.Connection")
Set recProducts = Server.CreateObject("ADODB.Recordset")
conNorthwind.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & cntCaminho
recProducts.Open "Products",conNorthwind
Do While Not RecProducts.Eof
Response.Write  recProducts.Fields("ProductID") & " " 
& recProducts.Fields("ProductName") & "<br/>"
recProducts.MoveNext
Loop
recProducts.Close
conNorthwind.Close
%>
</p>
</card>
</wml>

Eis o resultado parcial obtido com a rolagem da tela do simulador: