Introdução:

Com este tutorial irás aprender a fazer um motor de busca usando ASP + Flash + Base de dados Access. Muito útil para encontrar dados e informações nas bases de dados dos sites.

Downloads:

Ficheiro Fla Tutorial em PDF

1. Criação do ficheiro de Base de Dados Acess:

Clica em Ficheiros > Nova. Na janela que se abre, selecciona Base de dados. Grava a tua base de dados com o nome de "dados.mdb".
Depois clica em "Criar tabela na vista de estrutura" para criar os campos.

Os campos serão os seguintes:

id, nome, apelido, email, site e profissao

Nota: para facilitar e evitar erros, aconselhamos a escrever os nomes em minúsculas e sem acentos.

:Grava a base dados.

2. Criação do ficheiro ASP:

Agora vamos fazer o ficheiro ASP que irá fazer a ligação com a base de dados e enviar respostas para o teu Filme Flash. Abre um editor de textos da tua preferência, o bloco de notas por exemplo. Copia e cola o seguinte código:

<%@Language="VBScript"%> <% Option Explicit Dim oRS, oConn, strSQL Dim results Set oConn = Server.CreateObject("ADODB.Connection") Set oRS = Server.CreateObject("ADODB.Recordset") oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("dados.mdb") If UCase(Request("nome")) = "ALL" Then strSQL = "SELECT * FROM dados" Else strSQL = "SELECT * FROM dados WHERE nome LIKE '" & Request("nome") & "'" End If oRS.Open strSQL, oConn, 2, 3 If oRS.EOF Then Response.Write "success=False" Else Response.Write "success=True&results=" Do While Not oRS.EOF results = results & oRS("nome") & " " & oRS("apelido") & vbCr results = results & oRS ("profissao") & vbCr results = results & oRS ("email") & vbCr results = results & oRS("site") & vbCrlf oRS.MoveNext Loop End If oRS.Close Set oRS = Nothing oConn.Close Set oConn = Nothing Response.Write Server.URLEncode(results) %>

Guarda este ficheiro como "busca.asp".

Não vamos explicar o significado de cada código, porque o foco deste tutorial é FLASH e não ASP.

3. Criação do ficheiro Flash:

Inicia um novo filme no Flash.

Na 1ª "frame" coloca a seguinte acção:

nome = "";
success = "";
stop ();

Cria uma "Text Field" dinâmica com a variável "nome".

Cria um botão e coloca o seguinte script:

on (release) {
gotoAndPlay (2);
}

Na 2ª "frame" coloca o seguinte script:

loadVariablesNum ("busca.asp", 0, "POST");

Este script é muito importante, é ele que envia os dados para o ficheiro ASP, que por sua vez faz a pesquisa dentro da base de dados.

Na 3ª frame coloca o seguinte script:

if (success ne "") {
if (success eq "False") {
gotoAndStop (8);
} else {
gotoAndStop (7);
}
}

Este script verifica se o nome digitado existe ou não na base de dados. Se verdadeiro, o filme vai para a "frame" 8, se falso, vai para a "frame" 7.

Coloca nas "frames" 3, 4 e 5 uma mensagem de espera, por exemplo: "Por favor aguarde".

Na "frame" 6 coloca a seguinte "action":

gotoAndPlay (3);

Se a resposta ainda não for concluída, volta para a "frame" 3. Na "frame" 7, cria uma "Text Field" dinâmica e na variável coloca "results", tal como está na imagem abaixo. Este campo recebe as informações que o ASP envia para o filme Flash.

Na "frame" 8 coloca uma resposta para o caso de não for devolvido nenhum resultado, por exemplo:

"Não foi encontrada nenhuma ocorrência para a sua pesquisa."

Guarda o ficheiro (com o nome que quiseres) e publica o SWF num HTML e na mesma pasta deste último coloca os ficheiros ASP e a base de dados.