Fonte: Emerson Rocha

Você provavelmente já tentou fazer uma busca por palavra chave usando Flash + MDB. Conseguir ou não, depende da sua persistência.

Com estas informações, você verá que não é tão difícil ter o seu próprio Yahoo usando Flash (o:. Vamos lá!

Comece fazendo o arquivo do banco de dados (mdb)

selecione iniciar -> programas - Microsoft Access.

1. Clique em arquivo -> novo. Na tela que se abrirá, selecione "Banco de dados".

2. Salve seu banco em um diretório com o nome de demo_emerson.mdb

3. Clique em inserir dados. Abrirá uma nova tabela. Clique em salvar e dê o nome desta tabela. É importante que o nome desta tabela seja
demo_emerson .

4. Crie 6 colunas com os nomes :

5. Salve o arquivo.

Agora vamos para o arquivo ASP. Ele abrirá conexão com o banco e enviará as respostas para o seu Filme Flash.

Abra um editor de textos de sua preferência, o bloco de notas por exemplo. Coloque no seu Bloco de notas os dados abaixo:

<%@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=" &amp; Server.MapPath("demo_emerson.mdb")

If UCase(Request("Nome")) = "ALL" Then
strSQL = "SELECT * FROM demo_emerson"
Else
strSQL = "SELECT * FROM demo_emerson WHERE Nome LIKE '" &amp; Request("Nome") &amp; "'"
End If

oRS.Open strSQL, oConn, 2, 3

If oRS.EOF Then
Response.Write "success=False"
Else
Response.Write "success=True&amp;results="
Do While Not oRS.EOF
results = results &amp; oRS("Nome") &amp; " " &amp; oRS("Sobrenome") &amp; vbCr
results = results &amp; oRS ("prof") &amp; vbCr
results = results &amp; oRS ("Email") &amp; vbCr
results = results &amp; oRS("site") &amp; vbCrlf
oRS.MoveNext
Loop
End If

oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing

Response.Write Server.URLEncode(results)
%>

Salve este arquivo como busca.asp

Não vou explicar o significado de cada código por que o foco deste tutorial é o FLASH e não ASP.

Vamos agora ao arquivo Flash:

1. Inicie um novo filme no Flash, -> Arquivo->Novo.

2. No 1º frame coloque uma ação como abaixo:

Nome = "";
success = "";
stop ();

3. Crie um campo de texto dinâmico em variável coloque (Nome)

4. Crie um botão e coloque a ação abaixo:

on (release) {
gotoAndPlay (2);
}

5. No 2º frame coloque esta ação

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

Esta ação é muito importante, ela é que envia os dados para o arquivo ASP que por sua vez faz a varredura dentro do banco de dados.
(Obs: Quero lembrar um detalhe que muitas vezes tira o sono de muita gente, e é apenas uma falta de atenção: o método Post, ou seja ele esta enviando informações.
O método GET (adquira, receba, pega informações) ok deu para entender a diferença né? Simples, mas as vezes da uma dor de cabeça.

6. No 3º Frame coloque a ação

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

Esta ação verifica se o nome que você esta enviando é verdadeira ou falsa se verdadeira ele vai para o frame 8 , se falsa ele vai para o 7.

7. Coloque no frame 3, 4 e 5 uma mensagem de aguarde, para os maníacos de inglês de plantão Please await (o:.

8. No 6º frame coloque a ação:

gotoAndPlay (3);

Ele volta para o frame 3 se a resposta ainda não for concluída

9. No frame 7, crie um campo dinâmico, e na variável coloque results
Este campo recebe as informações que ASP envia para o filme Flash.

10. No frame 8 coloque uma resposta para nenhum resultado ex:

Não foi encontrada nenhuma ocorrência para sua busca.

11. Salve o arquivo publique um SWF e coloque o mesmo em um arquivo HTML.

O ASP necessita ser rodado em um servidor web, por isso vá até sua pasta de publicação C:inetputwwwrootusca, coloque os arquivos dentro da pasta busca, em seguida abra seu Internet Explorer e digite http://suamaquina/busca. Se você não tem o PWS ou o IIS instalado coloque em um servidor (provedor) que rode arquivos ASP.

Ps: Antes de mudar os nomes dos arquivos teste o funcionamento deste tutorial. Um grande abraço Emerson Rocha.

Clique aqui para fazer o download do arquivo .ZIP com o arquivo .txt, .php e .fla de teste!

Qualquer dúvida, envie um e-mail para emerson@angloudi.com.br