NUNCA MAIS PASSE RAIVA POR NÃO CONSEGUIR RESOLVER UM PROBLEMA COM O EXCEL - GARANTIDO!

UNIVERSIDADE DO VBA - Domine o VBA no Excel Criando Sistemas Completos - Passo a Passo - CLIQUE AQUI

Você está em: PrincipalArtigosProgweb : Sistemaloginasp003
Quer receber novidades e e-books gratuitos?

Sistema de Login – Parte III

 

Olá leitor, meu nome é Mauricio Junior e estou disposto a mostrar o realmente funcionamento de um componente registrado dentro do COM + (COM PLUS) usando páginas ASP. Forma de conectar ao banco de dados, criar functions, módulos globais e classes separadamente.

 

Antes de começar definitivamente, gostaria de falar que as partes I e II são indispensáveis para você que não possui o convívio real com essas tecnologias, ou seja, ASP 3.0 e VB 6.0 registrado no COM+. Os mesmos podem ser encontrados no site www.aspneti.com, www.juliobattisti.com.br.

 

Segue três livros que publiquei no mercado pela editora Ciência Moderna.

 

 

- Integrando e conhecendo Visual Basic 6.0

 

O primeiro passo é como criar um projeto utilizando a ferramenta criada pela Microsoft. Acessei o menu iniciar / todos os programas / microsoft visual studio 6.0 / microsoft visual basic 6.0. (1.1 – Visual Basic 6.0)

 

Referência: 1.1 – Visual Basic 6.0

 

O próximo passo, criei projeto do tipo ActiveX DLL. Escolhi o tipo e cliquei no botão abrir. (1.2 – Visual Basic 6.0)

 

Referência: 1.2 – Visual Basic 6.0

 

Ao lado direito, existe a tela acima do properties onde é criado automaticamente uma pasta Class Modules com a classe dentro chamada Class1. (1.3 – Visual Basic 6.0).

 

Referência: 1.3 – Visual Basic 6.0

 

Preciso criar um módulo para o projeto. Seria usado em todas as classes e projetos que irei criar futuramente. Cliquei com o botão direito do mouse em cima de project1, depois fui a opção add e por final em module. (1.4 – Visual Basic 6.0)

 

Referência: 1.4 – Visual Basic 6.0

 

Foi criado uma outra pasta para o módulo. Colocarei todas as funções que poderão ser usadas por toda classe. Outras classes de outros projetos podem usá-lo, basta apenas importar o módulo para o projeto. (1.5 – Visual Basic)

 

Referência: 1.5 – Visual Basic 6.0

 

- Renomear Projeto, Módulo e Classe.

 

Até o momento, não coloquei nome na classe, nem módulo e nem mesmo no projeto. O próximo passo é renomear as classes e o projeto. Cliquei no botão properties window na barra de tarefas onde aparecem automaticamente as propriedades, cliquei em cima da classe em seguida na propriedade (Name). (1.6 – Visual Basic 6.0)

 

Referência: 1.6 – Visual Basic 6.0

 

Para ficar melhor, segue os nomes alterados na tabela 1.7 – Visual Basic 6.0.

 

Referência: 1.7 – Visual Basic 6.0

 

Depois que renomeei todo o projeto, irei criar uma função dentro do arquivo Global.bas. Essa função será para conectar ao banco de dados fazendo autenticação com usuário e senha, lembrando que deverá ser pública. (1.8 – Visual Basic 6.0)

 

Public Function AbreConexao(ByVal Metodo As String, _

                           Optional ByVal sMetodoOrigem As String = "") As Boolean

 

    On Error GoTo error

 

    'Usando o metod para abrir "OPEN"

    If UCase(Metodo) = "OPEN" Then

 

      Set CONN = CreateObject("ADODB.CONNECTION")

      CONN.Open "provider=sqloledb;user id=usuario; password=senha ;initial catalog=banco de dados;Data Source=servidor"

 

    'Usando o metodo para fechar "CLOSE"

    ElseIf UCase(Metodo) = "CLOSE" Then

 

      CONN.Close

      Set CONN = Nothing

 

    End If

 

error:

 

    If Err.Number <> 0 Then

          AbreConexao = False

    Else

        AbreConexao = True

    End If

 

End Function

 

Referência: 1.8 – Visual Basic 6.0

 

Explicação:

 

Analisando a assinatura da função, é pública, recebe dois parâmetros do tipo string, o segundo parâmetro é opcional e retorna um valor Boolean, ou seja, true ou false. Nesse primeiro momento, usarei a função apenas mandando o primeiro parâmetro.

 

Seguindo, uso o On Error GoTo error para pegar algum tipo de erro se por um a caso acontecer que o banco de dados tiver fora do ar, ou usuário e senha são inválidos. (1.9 – Visual Basic 6.0)

 

Public Function AbreConexao(ByVal Metodo As String, _

                           Optional ByVal sMetodoOrigem As String = "") As Boolean

 

Referência: 1.9 – Visual Basic 6.0

 

Continuando dentro da função, existe uma condição para abrir ou fechar o banco de dados. Para abrir o banco, basta passar “OPEN” e para fechar o banco “CLOSE”. Isso tudo porque dentro, pergunto se foi enviado o valor para abrir ou fechar o banco de dados. (2.0 – Visual Basic 6.0)

 

'Usando o metod para abrir "OPEN"

    If UCase(Metodo) = "OPEN" Then

 

Referência: 2.0 – Visual Basic 6.0

 

Se o valor do parâmetro for OPEN, atribuo o meu objeto CONN criando o objeto de conexão. Abro o banco de dados passando a string de conexão. (2.1 – Visual Basic 6.0)

 

Set CONN = CreateObject("ADODB.CONNECTION")

      CONN.Open "provider=sqloledb;user id=usuario; password=senha ;initial catalog=banco de dados;Data Source=servidor"

 

Referência: 2.1 – Visual Basic 6.0

 

Troque o valor do user id, password, initial catalog e data source. Os valores que estão na referência 2.1 são valores ilustrativos.

 

Referência: 2.2 – Visual Basic 6.0

 

Se o valor do parâmetro não for OPEN, não entrará na primeira condição, será verificado em outra condição novamente. (2.3 – Visual Basic 6.0)

 

 

    'Usando o metodo para fechar "CLOSE"

    ElseIf UCase(Metodo) = "CLOSE" Then

 

Referência: 2.3 – Visual Basic 6.0

 

Sendo CLOSE, a função entende que a conexão com o banco de dados deve ser fechada. (2.4 – Visual Basic 6.0)

 

      CONN.Close

      Set CONN = Nothing

 

Referência: 2.4 – Visual Basic 6.0

 

Para finalizar a função sempre verifico se ocorreu algum erro. Lembre-se que estou utilizando o On Error GoTo error. (2.5 – Visual Basic 6.0)

 

error:

    If Err.Number <> 0 Then

          AbreConexao = False

    Else

        AbreConexao = True

    End If

 

Referência: 2.5 – Visual Basic 6.0

 

Explicação:

 

Faço uma verificação perguntando se o Err.Number for diferente de 0, atribuo a função o valor false, se não atribuo o valor true. Essa atribuição de valores é a função retornar o valor ao método que o chamou.

 

Até o momento, mostrei como criar uma função para conexão com o banco de dados.

 

Fique de olho nos próximos artigos.

 

Espero ter ajudado.

 

Livros publicados:

 

 

Mauricio Junior

MPC Microsoft WebApplication

www.mauriciojunior.org

www.aspneti.com

 

Quer receber novidades e e-books gratuitos?

 
 

Contato: Telefone: (51) 3717-3796 | E-mail: webmaster@juliobattisti.com.br | Whatsapp: (51) 99627-3434

Júlio Battisti Livros e Cursos Ltda | CNPJ: 08.916.484/0001-25 | Rua Vereador Ivo Cláudio Weigel, 537 - Universitário, Santa Cruz do Sul/RS, CEP: 96816-208

Todos os direitos reservados, Júlio Battisti 2001-2024 ®

LIVRO: MACROS E PROGRAMAÇÃO VBA NO EXCEL 2016 - CURSO COMPLETO E PRÁTICO

DOMINE A PROGRAMAÇÃO VBA NO EXCEL - 878 PÁGINAS - CLIQUE AQUI