Você está aqui: Principal » Lista Completa de Tutoriais

Sobre este Tutorial

Autor:	Érico Araujo Gonçalves
Data:	25-06-2006
Categoria:	Programação
Assunto:	VBA - Básico
Visitas:

Programação VBA. Parte 14

Objetivo:

O objetivo deste tutorial é dar continuidade no aprendizado de VBA, irei ensinar você a codificar a interface grafica que criamos no tutorial anterior, você vai aprender a criar o código para fazer pesquisa no banco e também ativar a bibliotéa Microsoft Dao.Mostrando sempre através de telas para facilitar o seu aprendizado.

Pré-requisito:

Para você poder acompanhar o desenvolvimento deste tutorial, será necessário ter conhecimento no mínimo de informática e Parte 1, Parte 2, Parte 3, Parte 4, Parte 5, Parte 6, Parte 7, Parte 8, Parte 9, Parte 10, Parte 11 e Parte 12 deste tutorial.

NOTA: A partir deste sistema, irei oferecer serviços de acessoria em desenvolvimento de sistemas em Excel e Sites com acesso a banco de dados, portanto, se você quiser adaptar ou criar um sistema conforme sua necessidade, entre em contato comigo através do e-mail: erico_2223@yahoo.com.br.

Bom, no tutorial anterior você aprendeu a criar o código para inserir registros no banco de dados, vamos aprender nesse a criar o código pra retornar os registros do banco de dados. Serei bem objetivo quanto a explicação de forma que você possa entender sem maiores dificuldades, lembrando sempre que para aprenderemos a programar é bom sempre ter um curso de lógica de programação onde aprendermos melhor a utilizar o nosso raciocínio para desenvolvimento de sistemas, mas claro que nestes códigos que estou ensinado para você não há esta necessidade.

Uma das primeiras coisas que temos que fazer é definir qual o campo que iremos utilizar para buscar as informações, ou seja, neste pequeno sistema que estamos criando, vamos utilizar como exemplo o campo “FILIAL”, através dele é que iremos digitar o nome da filial que desejamos localizar. O primeiro código sempre é declar as variveis e conectar e abrir o banco de dados, esta parte de código ensinei no tutorial anterior, então, irei apenas coloca- lo aqui novamente para irmos montando o código.

Dim bd As Database

Dim rs As Recordset

Set bd = OpenDatabase(ThisWorkbook.Path & "\" & ThisWorkbook.Name, False, False, "excel 8.0")

Set rs = bd.OpenRecordset("PLAN1$", dbOpenDynaset)

Tela 001

Vamos começar inserindo uma linha de código que irá testar se o nome que estamos buscando esta no banco de dados, em nosso caso este campo é “FILIAL”, digamos por exemplo que você esteja buscando uma filial com o nome “filial 2” se esta não estiver ira aparecer uma mensagem informando que a mesma não foi localizada ou não esta cadastrada no banco de dados, essa mensagem fica ao seu critério, o código que faz esta função, a mesma é bem simples, apenas estou dizendo se o textBox1 que é o código for igual a fazio então aparece a mensagem, isso porque é neste sistema é obrigado retornar o código do sistema.

If Me.TextBox1 = "" Then MsgBox "Nome não cadastrado", vbInformation, "Banco de dados": Exit Sub

Tela 002

Vou mostar para você como ira aparecer esta mensagem na tela, lembrando que este deve ficar por em baixo dos demais código:

Tela 003

Seguindo a criação do código utilizares o control “DO UNTIL” esta vai fazer com que retorne os registros do banco.

LIN = 2

Do Until rs.EOF

LIN = LIN + 1

rs.MoveNext

Loop

No inicio temos LIN=2, ou seja queremos comaçar a pesquisar a partir da segunda linha do banco, porque a primeira é o cabeçalho, utilizamos o Do Until mais a variavel do banco rs.EOF para para percorrer os registros até o final em busca do que digitamos, se for verdadeiro, ou seja, no momento que ele encontra o registro ele retorna o mesmo, para que faça esta movimentação utilizamos rs.moveNext em forma de loop, parece um pouco complicado, mas resumindo ira percorrendo linha a linha da planilha na qual transformamos em banco de dados atrás do registro.

Tela 004

Para terminar temos que colocar mais um código, onde iremos selecionar o campo que iremos buscar fazendo com o mesmo um teste, mais os campos com seus objetos para mostrarmos os registros retornados.

If rs("FILIAL") = Me.TextBox2.Text Then

Me.TextBox1 = rs.Fields("N")

Me.TextBox3 = rs.Fields("MATRICULA")

Me.TextBox4 = rs.Fields("NOME")

Me.TextBox5 = rs.Fields("CPF")

Me.TextBox6 = rs.Fields("RG")

Me.TextBox7 = rs.Fields("NASC")

Me.TextBox8.Text = LIN

End If

Do lado esquerdo os objetos, que em neste caso são os TextBox passando o sinal de “=” mais os campos o nome dos campos do banco de dados.

Tela 005

Esta pronto o código que ira retornar os registros do banco de dados, este é bem simples, ira retornar apenas um registro de cada vez, existem situações que precisamos retornar vários registros, por exemplo, digamos que você tem um cadastro de clientes e neste existem cadastrados 10 pessoas que iniciam com o no Neli, poderia ser criado um código para retornar estes 10 nomes ao mesmo tempo, isso irei ensinar nos próximos tutorias, este mesmo código que acabamos de criar pode ser ainda mais incrementado, mas preferi fazer assim para irmos devagar, ao longo dos demais tutorial poderei voltar a fazer mais alterações no mesmo.

O importante, e este é meu objetivo principal é que você posso utilizar estes códigos adaptando as suas necessidades do seus sistema, abaixo aparece a tela com uma pesquisa efetuada.

Tela 006

Outro fator importante para que os códigos funcione corretamente é ativar a biblioteca chamada Microsof Dao, no editor de VBA, clique em ferramentas, referências e depois ative a mesma.

Tela 007

Conclusão:

Neste tutorial ensinei você a criar o código para retornar do bando de dados os regitros e também como ativar a biblioteca Microsoft Dao, sempre mostrando passo a passo através de telas e explicando o funcionamento das funções de forma simples direta e objetiva através das telas o que vai facilitar o seu aprendizado. Bons estudos e até a próxima parte.

LISTA DE TODOS OS TUTORIAIS DISPONÍVEIS

LIVROS CAMPEÕES DE VENDA NO SITE

Cursos Online com Certificado e Suporte à Dúvidas

CURSOS ONLINE COM CERTIFICADO - INDICADOS POR JÚLIO BATTISTI EM PARCERIA COM CURSOS 24 HORAS
AdministraÇÃo
Administração Contábil e Financeira Administração de Empresas Administração do Tempo Aprenda a Falar em Público Chefia e Liderança Departamento Pessoal Empreendedorismo Gestão da Qualidade Gestão de Compras	Gestão de Projetos Gestão Escolar Gestão Hoteleira Gestão Pública Logística Matemática Financeira HP 12C Planejamento Estratégico Qualidade de Vida no Trabalho
COMUNICAÇÃO E MARKETING
Administração de Empresas Aprenda a Falar em Público Comércio Exterior Empreendedorismo Escrita e Redação Etiqueta Social e Empresarial Jornalismo Online Marketing Pessoal	Marketing Social Planejamento Estratégico Produção de Eventos Propaganda e Marketing Sucesso Profissional Técnicas de Vendas Telemarketing
CONCURSOS PÚBLICOS
Conhecimentos Bancários Gestão Pública Memorização e Leitura Dinâmica	Noções Gerais de Direito Raciocínio Lógico
CONTABILIDADE E ECONOMIA
Administração Contábil e Financeira Administração de Empresas Bolsa de Valores Comércio Exterior	Conhecimentos Bancários Contabilidade Básica Finanças Pessoais Matemática Financeira HP 12C
DIREITO
Assistente Social Departamento Pessoal	Gestão Pública Noções Gerais de Direito
GESTÃO E LIDERANÇA
Administração de Empresas Administração do Tempo Aprenda a Falar em Público Chefia e Liderança Empreendedorismo Etiqueta Social e Empresarial Gestão de Compras Gestão de Projetos Gestão Escolar	Gestão Hoteleira Gestão Pública Marketing Pessoal Memorização e Leitura Dinâmica Negociação Propaganda e Marketing Recolocação Profissional Secretariado Executivo Sucesso Profissional
INFORMÁTICA
Access 2007 ASP AutoCad 2D AutoCad 3D CorelDraw Excel 2007 Flash Linux MS Project 2007	Photoshop PowerPoint 2007 Raciocínio Lógico Redes e Noções de Hardware Segurança na Internet Webmaster Windows 7 Word 2007 Word e Excel
MEIO AMBIENTE
Educação Ambiental Guia de Turismo	Marketing Social Reciclagem e Energias Renováveis
PEDAGOGIA
Bullying Distúrbios de Aprendizagem Educação Ambiental Educação de Jovens e Adultos Educação Especial	Educação Infantil Escrita e Redação Gestão Escolar Saúde Emocional do Educador
ProfissionalizanteS
Administração de Empresas Assistente Social Comércio Exterior Departamento Pessoal Educação de Jovens e Adultos Educação Infantil Enfermagem Fotografia Digital Gestão da Qualidade Gestão de Compras Guia de Gastronomia	Guia de Turismo Jornalismo Online Logística Produção de Eventos Recepcionista de Hotel Recrutamento e Seleção Secretariado Executivo Segurança do Trabalho Técnicas de Vendas Telemarketing Webmaster
RECURSOS HUMANOS
Administração de Empresas Departamento Pessoal Gestão Pública	Qualidade de Vida no Trabalho Recrutamento e Seleção
SAÚDE
Assistente Social Bullying Enfermagem	Primeiros Socorros Saúde Emocional do Educador Segurança do Trabalho
TURISMO E HOTELARIA
Gestão Hoteleira Guia de Gastronomia	Guia de Turismo Recepcionista de Hotel

CURSOS ONLINE COM CERTIFICADO - INDICADOS POR JÚLIO BATTISTI EM PARCERIA COM BRAVA CURSOS
INFORMÁTICA
Curso de Digitação Formatando e Instalando Computador Excel para Iniciantes Curso Compre no Ebay Informática Educativa Curso de Linux	Segurança na Internet Montagem e Manutenção de Computadores Curso Remoção de Vírus Curso Ubuntu Instalação Linux - Ubuntu
AdministraÇÃo
Gestão de Projetos e Empreendedorismo Benefícios da Previdência Curso HP 12C Matemática Financeira Curso Análise Salarial	Processo de Elaboração de Questionário Excelência no Atendimento ao Cliente Logística do Transporte Licitações e Contratos Administrativos
Profissionalizante
Adestramento Canino Como fazer pesquisa Científica e Monografia Curso de Corte e Costura Supervisor de Telemarketing Balconista de Padaria Curso Educação Infantil	Recepcionista e Secretaria Velas Artesanais Relações Interpessoais Curso de Arbitragem Bullying e Cyberbullying Capacitação de Tutores em EAD
EstÉtica
Curso de Massoterapia Curso de Depilação Drenagem Linfática Curso de Maquiagem Limpeza Turbinada de Pele	Alisamento e Relaxamento Capilar Curso de Etiqueta SPA de Vinhoterapia na Estética Facial Curso de Shantala Introdução à Colorimetria Capilar
Pessoal
Curso de Caligrafia Memorização Chefia e Liderança Curso Falar em Público Curso Bases Neurológicas Leitura Dinâmica Planejamento de Projeto Pessoal Reforma Ortográfica	Como Passar em Concursos Públicos Direção Defensiva Administração do Tempo Curso de Redação Curso de Meditação Como Passar no Vestibular Atualização Gramatical
NegÓCIOS
Relações Humanas e Ética Profissional Marketing e Vendas Diretas	Persuasão em Vendas
Entretenimento
Curso de Mágica
SaÚde
Primeiros Socorros Curso de Fitoterapia Curso de Aromaterapia Medicina Alternativa Plantas Medicinais	Técnicas básicas de Enfermagem O Trabalho do Agente Comunitário de Saúde Ergonomia - Postura Correta em Frente ao Computador Ética Profissional - Ênfase em Radiologia Adolescência: Visão Saúde do Assunto
Meio Ambiente
Curso Gestão Ambiental Jardinagem e Paisagismo	Curso de Reciclagem Curso de Bonsai
MÚsica
Curso de Violão
NutriÇÃo
Higiene e Manipulação de Alimentos Congelamento de Alimentos	Culinária Básica Culinária Intermediária
RelaÇÕes Humanas
Curso Gestão de Pessoas Departamento Pessoal Desenvolvimento Pessoal Empresarial Curso de Telemarketing Curso Dinâmica em Grupo Rescisão Contrato de Trabalho Folha de Pagamento na Prática	Atendimento ao Cliente Adm. da Empregada Doméstica Curso de Homolognet Recursos Humanos - Férias Recursos Humanos - 13° Salário Registro de Empregados
Web Master
Curso de HTML Curso de WordPress	Curso de HTML5
Designer GrÁfico
Curso de Corel Draw Efeitos Especiais com InDesign CS5	Efeitos Tipográficos com InDesign CS5

CURSO EM FORMATO DE VÍDEO-AULA

EXEMPLOS PRÁTICOS PASSO A PASSO COM SOM E IMAGEM

Clique no curso para informações detalhadas

Curso

Duração

Informações

ACCESS

Vídeo Aula: Access 2007 - Consultas - Curso Completo e Prático

4:30h

LOJA DE LIVROS

VÍDEO-AULAS

E-BOOKS/CURSOS

CURSOS ONLINE COM CERTIFICADO

CURSOS COMPLETOS EM CD

CD-01

CD-02

CD-03

CD-04

CD-05

CD-06

CD-07

CD-08

CD-09

CD-10

CONTATO

Você está aqui: Principal » Lista Completa de Tutoriais

Sobre este Tutorial

Programação VBA. Parte 14

Conclusão:

:: Tutoriais Relacionados

CURSOS
COMPLETOS EM CD