Como interagir seu site com um banco de dados Access

Como interagir seu site com um banco de dados Access

Para programadores acostumados com plataformas cliente/servidor, ainda parece ser um desafio executar uma tarefa aparentemente simples que é publicar seus dados de forma dinâmica na Web.

Programadores VBA que trabalham frequêntemente com Access e Excel sofrem dessem “mau”. Por isso, proponho aqui uma alternativa para facilmente colocar seus dados de um banco de dados em uma página ASP.

Existem outras tecnologias que permitem a mesma proeza. Tentarei colocar aqui as alternativas mais utilzadas e consolidadas.

Este tutorial foi retirado no site da Locaweb, que apesar de parecer uma simples página de um provedor, possui bastante conteúdo interessante a ser explorado.

Introdução

Este tutorial mostra como manipular uma base de dados Access 2000 através do Asp (Active Server Pages), que é uma linguagem com a sintaxe do Visual Basic interpretada no servidor.

Você precisará de um servidor de Internet capaz de executar scripts Asp. O padrão do Windows é o Internet Information Services. Para ver um tutorial de instalação, veja este link.

Crie seu Banco de Dados

Em seu computador, crie um banco de dados chamado tutorial.mdb. Crie uma tabela chamada Agenda com os campos nome e telefone. Acrescente alguns registros à esta tabela que deverá ficar da seguinte forma:

Crie uma Página para Mostrar os Dados

Com seu editor html favorito, crie uma página que mostra em uma tabela, nome e telefone. Coloque algumas linhas nesta tabela com informações fictícias, totalmente desvinculadas das informações da base de dados. Não se preocupe com isto, que será “corrigido” depois. O resultado deverá ser algo do tipo:

__________________________

João 22-3344
José 5555-0000
__________________________

Na hora de salvar a página, use o nome agenda.asp (note que usamos a extensão “.asp” ao invés de “.htm”).

Corrija o Código para Mostrar os Dados reais

Use um editor de texto, ou o modo de visualização do seu programa favorito para editar o código HTML da página criada. Acrescente o seguinte código no início do arquivo (antes do tag “<HTML>”):

<%
ConnString=”Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\home\xyz\dados\tutorial.mdb;”
Set Conexao = Server.CreateObject(“ADODB.Connection”)
Conexao.Open ConnString
Set Registros = Server.CreateObject(“ADODB.Recordset”)
Registros.Open “Clientes”, Conexao
%>

Note que o banco de dados esta dentro do servidor, sob o diretório e:\home\xyz\dados , onde xyz é seu login de FTP.

Em seguida faça a seguinte modificação no código da tabela (note as modificações feitas):

Antes Depois
<table border=”1″ width=”250″>
<tr>
<td>João</td>
<td>22-3344</td>
</tr>
<tr>
<td>José</td>
<td>5555-0000</td>
</tr>
</table>
<table border=”1″ width=”250″>
<% While Not Registros.EOF %>
<tr>
<td><%= Registros(“nome”) %></td>
<td><%= Registros(“telefone”)%></td>
</tr>
<%
Registros.MoveNext
Wend
%>
</table>

Importante: Ao final do script é necessário fechar e destruir os objetos e liberar as variáveis, atribuindo o valor “Nothing”, na ordem inversa à que foram criadas. No exemplo acima, colocar ao final da página:

<%
Registros.Close
Conexao.Close
Set Registros = Nothing
Set Conexao = Nothing
%>

Atualize os Arquivos no Servidor e Teste

Uilize seu programa de FTP ou se for o caso o FrontPage, para publicar os arquivos agenda.asp para o diretório raiz do seu site (pasta “web”) e tutorial.mdb para o diretório de dados (pasta “dados”).

Para testar, entre na página http://seusite/agenda.asp e verifique os resultados.

Abraços

Tomás Vásquez
www.tomasvasquez.com.br

Criando um formulário no Word

Por Patricia Daltro

Imagine que trabalhamos em uma loja e precisamos emitir para os fornecedores, semanalmente, um relatório de compra de produtos.

O padrão seria sentarmos e digitarmos no Word esse relatório. Especificando os produtos e a quantidade desejada.

Esse tipo de tarefa fica muito mais rápido e profissional quando automatizada. Isso é, criamos um sistema que já traga os produtos digitados, dando-nos a opção apenas de selecioná-los e liste os fornecedores, de maneira que bastariamos clicar sobre o nome do fornecedor desejado, marcar os produtos e solicitar a impressão.

Fazer isso não é nem um pouco complicado. Resolvemos essa equação usando a Ferramenta Formulário do Word.

Normalmente, quando pensamos em formulário, pensamos em programas como Access, um software da Microsoft – pertencente ao grupo do Microsoft Office, que nos permite criar, atualizar e modificar banco de dados, além de outras coisas.

Mas, se o nosso objetivo é somente a criação de um formulário simples, feito o exemplo acima, podemos deixar o Access de lado e construí-lo todo no Word.

Para a criação de um Formulário o primeiro passo é exibirmos a Ferramenta Formulário – clique em Exibir (na Barra de Menu) – opção Barra de Ferramentas – Formulário.

Entendendo a Barra de Ferramentas Formulário:

Um formulário é composto de diversos campos, cada um deles tem uma função específica, para facilitar a vida de quem digita e se tornar claro para quem o preenche.

Quando exibimos a Barra de Ferramentas Formulário, somos apresentados a esse campos de formulário, (que no caso do Word se restringe a três).

Caixa de texto – Neste campo o usuário poderá digitar valores tais como: nome, endereço, e-mail, etc. Mas pode também ser configurado para aceitar valores numericos tais como: telefone, cep etc.

Caixa de verificação – Neste campo o usuário marca as opções desejadas. Podemos configurar tamanho e se a caixa aparecerá previamente marcada.

Lista Suspensa – Neste campo as opções são listadas como um menu suspenso, aonde o usuário clica sobre a opção desejada para selecionar.

Após escolhermos os tipos de campos a serem aplicados em nosso formulário, podemos usar o botão Opção de Formatação para formatarmos os campos, definindo especificações para cada um deles.

Os próximos botão na Barra de Ferramentas Formulário é o Desenhar Tabela e o Inserir Tabela. Parece estranho esses botões na construção de um formulário, mas o uso de tabelas na elaboração de um documento/formulário é o mais indicado, pois ajuda a alinhar e organizar nossos campos.

O botão inserir Quadro, serve para criarmos uma caixa de texto.

O penúltimo botão permite a visualização das marcas dos campos do formulário.

E o último botão, tem a finalidade definida no próprio nome: Proteger Formulário.
Essa proteção não é garantia da não alteração do que foi feito, pois o que esse botão faz é criar um bloqueio nos ítens do formulário, mas basta clicar novamente sobre ele que é desbloqueado.
Uma proteção mais efetiva será vista no final desse artigo.

Agora que já entendemos os componentes do formulário, vamos passar para a etapa da construção.

1) Clique em Exibir – (na Barra de Menu) – opção Barra de Ferramentas – e selecione Formulários;

2) Vamos iniciar nosso formulário desenhando a tabela – faça uma tabela de duas (02) colunas e três (03) linhas;

3) Na primeira célula digite Responsável:;

4) Na segunda célula da primeira linha – insira um campo de formulário tipo caixa de texto;

5) Vamos definir as propriedades do Caixa de Texto – podemos fazer isso de duas maneiras: clicando 2X sobre a caixa de texto ou selecionando-a e clicando no Botão Opção de Formatação, na Barra de Ferramentas Formulário;

6) Na janela de formatação que se abre devemos definir na caixa tipo, se o valores a serem digitados são númericos, de texto ou de cálculos;

7) Na opção maximum lenght – definimos o número máximo de caracteres que este campo pode aceitar;

8 ) Por último definimos o formato dos caracteres – só é válido se formos usar números. Encerre clicando em OK.

9) Na Primeira célula – segunda linha digite Fornecedores;

10) Na segunda célula – segunda linha insira um campo de Lista Suspensa;

11) Para formatar esse campo repita o procedimento nº 5;

12) Para adicionar os nomes dos fornecedores, clicamos na primeira caixa de texto e digitamos o nome;

13) Clique em adicionar, repita o procedimento até o último fornecedor (use o exemplo abaixo:


14) Encerre clicando em OK.

15) Na última linha da tabela, na primeira célula, digite; Produtos;

16) Na segunda célula, insira 5 campos do tipo Caixa de Verificação;

17) Digite ao lado de cada uma o nome do produto (conforme o exemplo abaixo):

18) Finalize o formulário clicando no Botão Proteger Formulário.

Protegendo o Formulário

Com esses procedimentos o seu formulário estaria pronto, mas para que o trabalho fique completo, vamos protegê-lo realmente de possíveis modificações. Para isso, clique em:

a) Ferramentas – na Barra de Menu – opção Proteger Documentos;

b) Marque a opção Formulários na Janela que aparecerá;

c) Digite uma senha e clique em OK;

d) Confirme a senha digitada e pronto o seu formulário estará protegido.

Salvando o Formulário como Modelo

A última etapa do trabalho é salvar o formulário como um modelo, de maneira que ele esteja pronto para o uso todas as vezes que se quiser utilizá-lo.

1) Clique em Arquivo – na Barra de Menu – Salvar Como;
2) Dê um nome para o seu trabalho;
3) Clique na caixa Tipo de Arquivo e selecione modelo.dot;
4) Clique em Salvar.

Com isso, você terá sempre o formulário pronto para o uso, bastando clicar em Arquivo – Novo – e selecionando o formulário criado.

Tomás Vásquez
www.tomasvasquez.com.br

Tocando som WAV no VBA

Quanto um sistema se torna bastante completo e profissional, merece contar alguns recursos de interface e interação para enriquecer seu valor.

O código abaixo executa um arquivo de áudio no padrão .wav através do VBA.

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Declare Function PlaySound Lib "winmm.dll" _
           Alias "PlaySoundA" (ByVal lpszName As String, _
           ByVal hModule As Long, ByVal dwFlags As Long) As Long
 
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
 
Sub PlayWAV()
    WAVFile = "Som.wav"
    WAVFile = ThisWorkbook.Path & "\" & WAVFile
    Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
End Sub

Neste caso, o arquivo tem o nome “Som.wav” localizado na mesma pasta do arquivo .xls.
Fonte: Fórum Julio Battisti
Abraços
Tomás Vásquez
www.tomasvasquez.com.br