VB6 - Agenda de Contatos

Exemplo simples de uma agenda que carrega os nomes de contatos em um controle TreeView.

Estamos usando a tecnologia ADO - Activex Data Objects -  para se conectar ao banco de dados Access contatos.mdb conforme o código abaixo:

 With cn
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="  &  App.Path & "\contatos.mdb" & ";Persist Security Info=False"
        .CursorLocation = adUseClient
        .Open
    End With
    
    With rst
        .CursorLocation = adUseClient
        .Open "Select * from contatos", cn, adOpenStatic, adLockOptimistic
    End With

A tabela de contatos tem os campos: nome, telefone, endereço, e-mail e notas

Abaixo temos a visão do formulário do projeto:

O controle ToolBar é usado para definir um menu com ícones na base do formulário permitindo a edição e eliminação dos dados da tabela contatos.

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case LCase(Button.Key)
        
        Case LCase("Novo")
            flagNuevoRegistro = True
            rst.AddNew
            Toolbar1.Buttons("Sair").Enabled = True
            Toolbar1.Buttons("Eliminar").Enabled = False
            Toolbar1.Buttons("Novo").Enabled = False
            TreeView1.Nodes.Clear
            lblFecha.Caption = Date
        Case LCase("Salvar")
            If Text1.Text = "" Then
               MsgBox "O campo Nome é obrigatório", vbCritical
               Exit Sub
            End If
            If flagNuevoRegistro = True Then
                rst.Update
                rst.Requery
                Call CarregarTreeview
                flagNuevoRegistro = False
            Else
                rst.Update
                CarregarTreeview
            End If
            ReestablecerBotones
            Toolbar1.Buttons("Sair").Enabled = False
        Case LCase("Eliminar")
            If TreeView1.SelectedItem Is Nothing Then
               MsgBox "Você deve selecionar um contato", vbExclamation
               Exit Sub
            End If
            If MsgBox("Eliminar este contato ?", vbExclamation + vbYesNo, "Eliminar") = vbYes Then
               rst.Delete
               rst.Requery
               CarregarTreeview
            End If
        Case LCase("Sair")
            If flagNuevoRegistro Then
               rst.CancelUpdate
            End If
            ReestablecerBotones
            Toolbar1.Buttons("Sair").Enabled = False
            CarregarTreeview
    End Select
End Sub

Tudo muito simples e prático com o jeitão do bom e velho Visual Basic.

o projeto completo aqui: AgendaContatosVB6.zip

Veja os Destaques e novidades do SUPER CD VB 2013 (sempre atualizado) : clique e confira !

Quer migrar para o VB .NET ?

Veja mais sistemas completos para a plataforma .NET no Super DVD .NET , confira...

Quer aprender C# ??

Chegou o Super DVD C# 2013 com exclusivo material de suporte e vídeo aulas com curso básico sobre C#.

João 15:1 Eu sou a videira verdadeira, e meu Pai é o viticultor.

João 15:2 Toda vara em mim que não dá fruto, ele a corta; e toda vara que dá fruto, ele a limpa, para que dê mais fruto.

Referências:

José Carlos Macoratti