Olá pessoal, estou disposto mostrar a parte do sistema de login utilizando VB 6.0, ASP 3.0, SQL Server e Stored Procedure. As partes anteriores podem ser encontradas nos sites www.aspneti.com e www.juliobattisti.com.br.
A parte III, criei uma function na classe global.bas com o nome AbreConexao. Antes mesmo de compilar a aplicação VB 6.0, preciso adicionar uma referência para o aplicativo, resumindo, é uma dll responsável para facilitar acesso ao banco de dados, ou seja, um drive de acesso. É chamada de Microsoft ActiveX Data Objects 2.5 Library.
Cliquei no menu Project e em seguida na opção References para adicionar a referência citada anteriormente. Referência (4.1 – Visual Basic 6.0)
Referência: 4.1 – Visual Basic 6.0
A tela (4.2 – Visual Basic 6.0) possui uma relação de várias dlls disponíveis para serem usadas dentro do aplicativo. Escolhi uma chamada Microsoft ActiveX Data Objects 2.5 Library. Referência (4.2 – Visual Basic 6.0)
Referência: 4.2 – Visual Basic 6.0
Marquei a dll necessária para acesso ao banco de dados utilizando o Visual Basic 6.0. Procurei digitando a letra “m” e em seguida marquei a mesma desejada. Para finalizar cliquei no botão OK.
Compilar o Aplicativo
Tudo que foi feito até agora, nenhuma hora foi compilado o aplicativo para verificação de erro. Lembro que o Visual Basic 6.0 não é igual ao novo Visual Studio.NET 2003 ou 2005, isto é, o mesmo só mostra o erro se for compilado. Para compilar e gerar a dll, cliquei no menu File / Make (nome do aplicativo). Dessa forma é gerado a dll. Referência (4.3 – Visual Basic 6.0)
Referência: 4.3 – Visual Basic 6.0
O interessante é que se tiver algum tipo de erro dentro do aplicativo por exemplo: sintaxe ou sem fechar algum “end if”, a dll não será gerada.
Antes de mostrar algum erro de sintaxe ou aplicação, o Visual Basic 6.0 pedirá um caminho para gerar ou gravar a dll. Referência (4.4 – Visual Basic 6.0).
Referência: 4.4 – Visual Basic 6.0
Sem erro, a dll será gerada e pronta para ser usada.
Uma dica é, compile sempre o aplicativo para saber se possui algum erro.
Criar mais functions
Bom, agora que já foi mostrado como compilar um aplicativo, irei mostrar e criar outras functions dentro do global.bas. Com apenas a function AbreConexao, não adianta em nada para ser usada em um aplicativo robusto ou simples. Mais quatro functions serão criadas dentro do global.bas e assim utilizarmos uma página ASP para logar utilizando o aplicativo feito com o Visual Basic 6.0 registrado no COM + (COM PLUS).
Segue uma tabela com a relação de todas as functions com explicação. (Referência 4.5 – Visual Basic 6.0).
|
Function |
Explicação da funcionalidade |
|
ExecutaSQLArray |
Essa function serve para executar algum comando SQL que retorne um array de dados. Essa forma de array pode ser entendido como RECORDSET, ou seja, um SELECT. |
|
|
|
|
ExecutaSQL |
Essa function serve para apenas executar um comando SQL, não retornar valor, ou seja, é responsável para executar um: INSERT, UPDATE e DELETE. |
|
|
|
|
Encryptografar |
Essa function serve apenas para receber um parâmetro, criptografar e retornar o valor criptografado. Irei utilizar um componente externo para isso. |
|
|
|
|
DesenCryptar |
Essa function serve apenas para receber um parâmetro criptografado e retornar o valor descriptografado, ou seja, ao contrário da function anterior. |
Referência: 4.5 – Visual Basic 6.0
Dentro do arquivo .bas, no final do método AbreConexao, dei um ENTER e coloquei as functions relacionadas acima: Cada referência será uma function comentada. (Referência 4.6 – Visual Basic 6.0)
|
Public Function ExecutaSQLArray(ByVal SQL As String, _
Optional ByVal sMetodoOrigem As String = "") As Variant
Static vRetorno As Variant
Static sMetodo As String
Static bRetorno As Boolean
On Error GoTo error
'Setando Objeto RecordSet
Set RS = CreateObject("ADODB.RECORDSET")
'Fazendo Open no Objeto SQL
RS.Open SQL, CONN
'Criando Array
vRetorno = RS.GetRows
ExecutaSQLArray = vRetorno
'Fechando RS
RS.Close
Set RS = Nothing
error:
If Err.Number <> 0 And Err.Number <> 3021 Then
'Fechando RS
RS.Close
Set RS = Nothing
'Fechando Conexao
ExecutaSQLArray = ""
Else
If Not IsArray(vRetorno) Then
ExecutaSQLArray = "0"
End If
End If
End Function
|
Referência: 4.6 – Visual Basic 6.0
Explicação:
Analisando a assinatura da function, recebe dois parâmetros, um opcional e outro obrigatório, que no final é retornado um valor do tipo Variant. Esse tipo significa que, será retornado um array de dados. (Referência 4.7 – Visual Basic 6.0)
|
Public Function ExecutaSQLArray(ByVal SQL As String, _
Optional ByVal sMetodoOrigem As String = "") As Variant
|
Referência: 4.7 – Visual Basic 6.0
Adicionei algumas variáveis no começo estáticas, cada uma com um tipo. (Referência 4.8 – Visual Basic 6.0)
|
Static vRetorno As Variant
Static sMetodo As String
Static bRetorno As Boolean
|
Referência: 4.8 – Visual Basic 6.0
Simples variáveis que serão usadas dentro da function.
|
On Error GoTo error
'Setando Objeto RecordSet
Set RS = CreateObject("ADODB.RECORDSET")
'Fazendo Open no Objeto SQL
RS.Open SQL, CONN
'Criando Array
vRetorno = RS.GetRows
ExecutaSQLArray = vRetorno
'Fechando RS
RS.Close
Set RS = Nothing
|
Referência: 4.9 – Visual Basic 6.0
No próximo passo do código, usei o on error goto erro onde posso tratar o erro se acontecer algum. Criei um objeto do tipo RecordSet, abri esse objeto. Crio o array atribuindo para a variável do tipo declarada anteriormente.
O segredo em criar o array com o RecordSet é colocar a function GetRows. Dessa forma, é gerado um array e pode ser atribuída ao tipo variant do Visual Basic 6.0. Atribuo a variável vRetorno ao nome da function ExecutaSQLArray.
Fecho o RecordSet e seto para nothing. É muito importante colocar nothing para o objeto.
|
error:
If Err.Number <> 0 And Err.Number <> 3021 Then
'Fechando RS
RS.Close
Set RS = Nothing
'Fechando Conexao
ExecutaSQLArray = ""
Else
If Not IsArray(vRetorno) Then
ExecutaSQLArray = "0"
End If
End If |
Referência: 4.10 – Visual Basic 6.0
Explicação:
Para finalizar, dentro do laço error, existe uma condição para o código erro.number, se for diferente de zero ou diferente do número 3021, fecho os objetos e atribuo a function o valor vazio. Se não houver erro, criei mais uma condição perguntar se a variável não é array, se for verdadeiro, atribuo a function ao valor zero.
Segue a function total. (Referência 4.11 – Visual Basic 6.0)
Referência: 4.11 – Visual Basic 6.0
Bom, fico por aqui. Nos próximos passos, mostrarei as outras functions dando a devida explicação. Espero que tenha gostado.
Livros publicados do autor:
Mauricio Junior
www.aspneti.com
www.mauriciojunior.org