Busca em Flash com ASP e Access

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↳Banco de dados134 conteúdosSQL ou NoSQL: eis a questão!!Data · mar 2020Banco de dados: como organizar e dar segurança para milhões de dados de loteriasData · mai 20215 serviços gratuitos na cloud para bancos de dados PostgresData · fev 2025Ver tudo em Data → (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↳HTML45 conteúdosA importância do HTML e CSS para quem trabalha com UI Design e Design SystemProduto & UX · dez 2024Como hostear seu site HTML gratuitamente com GitHub PagesDev (Back & Front) · jun 2025SQL Server – Como criar um versionamento de código das suas Stored Procedures em HTML e com comentários da alteraçãoData · nov 2020Ver tudo em Dev (Back & Front) →.

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.

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