Herança em programação Orientada a Objeto

No post de hoje, vou mostrar como é feita a herança no Visual Basic. Mas antes, uma pequena descrição a respeito de herança em programação Orientada a Objeto.

Herança é um conceito pelo qual é possível criar uma classe (subclasse) com base em uma existente. Essa nova classe herda todos os atributos, comportamentos e implementações da classe herdada (superclasse).

Diagrama mostrando a herança entre classes.

Diagrama mostrando a herança entre classes.


Abaixo veremos uma classe (que será a superclasse), onde faremos uma conexão com um banco de dados em MySQL[bb], como podemos ver também nessa vídeo aula aqui no HinfOS.

Imports MySql.Data.MySqlClient
Public Class Conexao
    Private strCon As String = ""
      'VARIÁVEIS PÚBLICAS
    Public dr As MySqlDataReader
    Public comando As MySqlCommand
    Public con As MySqlConnection

    ' MÉTODO CONSTRUTOR DA CLASSSE Conexão
    Public Sub New()
        Dim servidor As String = "localhost"
        Dim usuario As String = "root"
        Dim senha As String = ""
        Dim banco As String = "dados"
        strCon = "server=" & servidor & "; user id=" & usuario & "; password=" & senha & ";database=" & banco & ";"
    End Sub

    ' MÉTODO PARA CONECTAR À BASE DE DADOS
    Public Sub conecta()
        Dim conectou As Boolean = False

        Try
            con = New MySqlConnection(strCon)
            con.Open()
        Catch ex As MySqlException
            MessageBox.Show("Ocorreu o seguinte erro: " & ex.Message, "Falando TI", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    'MÉTODO PARA FECHAR A CONEXÃO COM A BASE DE DADOS
    Public Sub FecharCon(ByVal con As MySqlConnection)
        Try
            If Not con.State = ConnectionState.Closed Then
                con.Close()
            End If
        Catch ex As MySqlException
            MessageBox.Show("Ocorreu o seguinte erro: " & ex.Message, "Falando TI", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            FecharCon(con)
        End Try
    End Sub
End Class

Exemplo de herança em programação Orientada a Objeto

Abaixo podemos ver uma subclasse que herda da superclasse mostrada acima.

Public Class Buscar
    Inherits Conexao '*** Inherits é palavra reservada ***
                     '*** usada para fazer a herança no VB .NET ***

    ' FUNÇÃO QUE BUSCA INFORMAÇÕES DO BANCO DE DADOS
    Public Function Busca()
        Dim Query As String = "SELECT id, Texto FROM Tabela;"

        Try
            conecta()
            comando = New MySql.Data.MySqlClient.MySqlCommand(Query, con)
            dr = comando.ExecuteReader
            If dr.HasRows Then
                While dr.Read
                    Console.WriteLine("Id: {0}", dr("Id").ToString)
                    Console.WriteLine("Texto: {0}", dr("Texto").ToString)
                End While
            End If
        Catch ex As Exception
            MessageBox.Show("Ocorreu o seguinte erro: " & ex.Message, "Falando TI", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            FecharCon(con)
        End Try
    End Function
End Class

A classe Buscar herdou tanto os métodos[bb] quanto as variáveis publicas da classe Conexao.

E como resultado[bb] temos o seguinte:

Resultado da execução da classe Buscar

Resultado da execução da classe Buscar

E por hoje é só. 🙂

Disclaimer

Esse post faz parte do arquivo de um site que tinha com um amigo a alguns anos. Infelizmente o projeto chegou ao fim, mas estou resgatando alguns post.

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.