iMasters | Por uma internet mais criativa e dinâmica

Terça-feira, 01/07/2003 - 01:59 - Por Luciano Correa
Seções relacionadas:

• V. Basic

• Imprimir
• Indicar
• Digg it
• Del.icio.us
• Twitter
• 5 comentários

Olá pessoal! Antes do início, queria avisar que estou tentando responder a todos os e-mail´s, o mais rápido possível, e podem aguardar que responderei a todos.

Essa semana vamos iniciar a abordagem sobre conexão com banco de dados, usado amplamente no dia-a-dia do programador. Serão usados nesta e nas próximas colunas os bancos ACCESS 2000/97, MS-SQL Server e MYSQL. O tipo de conexão a ser utilizada será a string para conexão ADO.

Para exemplificar esses três tipos de conexão, vamos criar uma aplicação simples de Agenda Telefônica.

Nesta primeira parte vamos usar o banco ACCESS. Crie um banco com o nome de agenda.mdb e com as seguintes características:

Tabela: pessoal
Campo	Tipo	Tamanho
codigo	AutoNumber
nome	Text	50
end	Text	100
fone	Text	25

No Visual Basic crie um novo Projeto com nome de AgendaMDB, renomeie o Form1 para frmAgenda e insira um Módulo com o nome de modCnn, como mostra a figura abaixo:

Agora vamos criar dentro do Módulo o código de conexão com o banco, e as rotinas de Inclusão, Consulta, Alteração e Exclusão como mostra as linhas abaixo:

Option Explicit

Global cn As ADODB.Connection
Global rs As ADODB.Recordset

Conexão:
Private Sub Main()
Dim strArquivo As String
Dim strLocal As String
Dim ConectaAccess As String

Load frmAgenda
frmAgenda.Show
DoEvents
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

strArquivo = "agenda.mdb"
strLocal = App.Path
Set cn = CreateObject("ADODB.Connection")
ConectaAccess = "Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq=" & strArquivo & ";" & _
"DefaultDir=" & strLocal & ";" & _
"Uid=Admin;Pwd=;"

cn.Open ConectaAccess
End Sub

Rotina de Inclusão:
Public Function Inserir(ByVal strNome As String, _
strEnd As String, _
strFone As String) As Variant

cn.Execute ("insert into pessoal(nome,end,fone)" _
& "values('" & strNome & "','" & strEnd & "','" & strFone & "')")

Inserir = True
End Function

Rotina de Alteração:
Public Function Alterar(ByVal intCodigo As Integer, _
strNome As String, _
strEnd As String, _
strFone As String) As Variant

cn.Execute "update pessoal set nome= '" & strNome & "'," _
& " end= '" & strEnd & "', fone= '" & strFone & "'" _
& " where codigo = " & intCodigo

Alterar = True
End Function

Rotina de Consulta:
Public Function Consultar(ByVal intCodigo As Integer) As Variant
Set rs = CreateObject("ADODB.Recordset")

With rs
.Open "select * from pessoal where codigo=" & intCodigo & "", cn, adOpenKeyset, adLockOptimistic
If .RecordCount = 0 Then
MsgBox "Código Inválido", vbExclamation, "Erro"
Else
frmAgenda.lblCod = !codigo
frmAgenda.txtNome = IIf(IsNull(!nome), Empty, !nome)
frmAgenda.txtEnd = IIf(IsNull(!End), Empty, !End)
frmAgenda.txtFone = IIf(IsNull(!fone), Empty, !fone)
End If
.Close
End With

End Function

Rotina de Exclusão:
Public Function Excluir(ByVal intCodigo As Integer) As Variant

cn.Execute "delete * from pessoal where codigo=" & intCodigo & ""
Excluir = True
End Function

Para esse código que acabamos de digitar tenha efeito é necessário fazer uma referência ao ADO. Então clique em Project/References... e escolha a opção "Micrisoft ActiveX Data objects 2.6 Library", como mostra a figura abaixo:"

Obs.: As versões 2.5 e 2.6 do ADO são para ACCESS 2000 e a versão 2.1 é para ACCESS 97.

Voltando ao form frmAgenda modele-o como mostra a figura abaixo:

E o código desse form vai ficar dessa forma:

Botão Alterar:
Private Sub cmdAlterar_Click()
Dim atual As Variant

atual = Alterar(lblCod.Caption, txtNome.Text, txtEnd.Text, txtFone.Text)
If atual = True Then
Call limpar
Else
MsgBox "Erro na atualização.", vbCritical
End If
End Sub

Botão Consultar:
Private Sub cmdConsultar_Click()
Dim intCodigo As Integer
intCodigo = InputBox("Digite o Código", "Consulta")
Consultar (intCodigo)
End Sub

Botão Excluir:
Private Sub cmdExcluir_Click()
Dim excluido As Variant

excluido = Excluir(lblCod.Caption)
If excluido = True Then
Call limpar
Else
MsgBox "Erro na excluisão.", vbCritical
End If
End Sub

Botão Incluir:
Private Sub cmdIncluir_Click()
Dim novo As Variant

novo = Inserir(txtNome.Text, txtEnd.Text, txtFone.Text)
If novo = True Then
Call limpar
Else
MsgBox "Erro na incluisão.", vbCritical
End If
End Sub

Função limpar:
Private Sub limpar()
lblCod.Caption = ""
txtNome.Text = ""
txtEnd.Text = ""
txtFone.Text = ""
End Sub

Botão Sair
Private Sub cmdSair_Click()
cn.Close
Set cn = Nothing
Unload Me
End Sub

Para finalizar, clique em ProjectAgendaMDB Proprerties... e em Startup Object: troque frmAgenda por Sub Main.

Semana que vem vamos iniciar o exemplo desse projeto com conexão para SQL Server e também vamos usar procedures.

Abraços a todos e até a próxima coluna.

Todos os artigos de Luciano Correa

22/07/2004 - Banco MS Access / Arquivo texto 27/11/2003 - Estatística e Visual Basic 13/11/2003 - XML no Visual Basic - Parte Final 06/11/2003 - XML no Visual Basic - Parte 2 29/10/2003 - XML no Visual Basic 20/10/2003 - MDIForm / MDIChild / Menu - Final 14/10/2003 - MDIForm / MDIChild / Menu 06/10/2003 - Menu/TabStrip 29/09/2003 - Menu Vertical 25/09/2003 - Menu 15/09/2003 - Sistema de Controle de Acesso - Parte Final 08/09/2003 - Sistema de Controle de Acesso - Parte 4 02/09/2003 - Sistema de Controle de Acesso - Parte 3 26/08/2003 - Sistema de Controle de Acesso - Parte 2 19/08/2003 - Sistema de Controle de Acesso - Parte 1 04/08/2003 - Arquivo texto / Banco MS Access 28/07/2003 - ComboBox / ListView 22/07/2003 - Conexão com Banco de Dados - Parte Final 15/07/2003 - Conexão com Banco de Dados - Parte 03 07/07/2003 - Conexão com Banco de Dados - Parte 02 01/07/2003 - Conexão com Banco de Dados - Parte 01 24/06/2003 - Criptografia, componente(DLL) para VB e ASP 17/06/2003 - Criptografia e Componente(DLL) 10/06/2003 - Criptografia

5 comentários publicados

• 1. Boa materia, mas comigo não funcionou

  Segunda-feira, 25/10/2004, por Guilherme Bezerra Fernandes
  

  "Nome da fonte de dados não encontrado e nenhum driver padrão especificado", esse foi o erro, será que fiz alguma coisa errada ou será que ficou faltando fazer alguma coisa ? Salvei o banco na mesma pasta do projeto.

  Responder comentário

• 2. ótimo conteúdo

  Quinta-feira, 13/07/2006, por glauber perlin
  

  excelente a matéria!! tem como colocar comandos, por exemplo, para "1° registro" - "ultimo registro"? obrigado

  Responder comentário

• 3. gostei muito

  Quarta-feira, 18/10/2006, por Abner Visconti
  

  você não tratou de possíveis erros que podem ocorrer durante a execução do programa. Você conside que seria interessante incluir o tratamento de erros? Vou testar o seu código. abraços.

  Responder comentário

• 4. 2 tabelas

  Sábado, 29/12/2007, por Douglas Goulart
  

  Esse exemplo está me ajudando e muito. Mas o q eu qria saber como ficaria esse código com 2 tabelas. O q deverá ser feito? Digitar tudo num módulo só ou tem q adicionar um novo módulo?
  Espero respostas ... Abs!
  Douglas de Carvalho

  Responder comentário

• 5. Em SQL não funcionou

  Sexta-feira, 29/08/2008, por Ernesto Almeida de Magalhães Neto
  

  boa tarde Luciano, voce poderia me esclarecer a dúvida deu erro run-time error "3709".
  a conexão não pode ser usada pra realizar esta operação. Ela está fechada ou é invalida neste contexto.
  e-mail ernestoam@uol.com.br

  Responder comentário

Poste um comentário

(clique se não for cadastrado)

Login: Senha: Titulo: digite aqui seu comentário Site/blog: Enviar Receber notificação de novos comentários

Sobre o autor

Luciano Correa é certificado MCP pela Microsoft, Analista e desenvolvedor Visual Basic, ASP e SQL-Server.

Indique para um amigo

Escreva aqui sua mensagem! ok

Tags relacionadas

tecnologia web crescimento criação seguranca firefox ti php google brasil mobile windows 3g apple linux android lançamento mercado internet yahoo desenvolvimento microsoft twitter iphone youtube celular

TI SHOP Produtos iMasters

• Lançamento: CD-ROM Treinamento Aplicado de SQL - Lançamento! Treinamento Aplicado de SQL - Aprenda a trabalhar com SQL com bancos de dados Oracle e SQL Server. São mais de 100 tópicos explicados por Mauro Pichilliani, um articulistas mais lidos do iMasters. Aproveite! Apenas R$ 69,90 no TI SHOP.
• Lançamento: Livro iMasters "O Encontro de 2 Mundos"- Este livro conta com 56 crônicas de profissionais mais admirados e influentes do mercado brasileiro de Internet. Aproveite o preço especial para leitores do iMasters. Apenas R$ 40,00 e envio imediato!
• DVD Curso Completo de Photoshop - Do conceito à finalização Lançamento! Curso Completo de Photoshop, em DVD, com mais de 230 aulas dividas em 4 módulos: conceito, básico, avançado e finalização. Apenas R$ 69,50 no TI SHOP - Frete com 50% de desconto
• DVD Javascript Starter - Curso Completo Com mais de 9 horas de vídeo-aulas, é um curso completo sobre Javascript. Ideal para quem deseja aprender a linguagem. Apenas R$ 64,90 no TI SHOP - Frete com 50% de desconto!