Criação de Classes - Conexão com Banco de Dados MSAccess

A criação de classes, rotinas e sub-rotinas facilitam a criação de aplicativos, pois esses objetos agilizam a escrita de eventos repetidos.

Mesmo que se utilize varios objetos RecordSet, pode-se utilizar a mesma conexao. Pensando nisto, foi criada uma classe para facilitar a conexao com o banco de dados. Com apenas uma ou duas linhas, sendo previamente o arquivo 'cls_conexao.asp' incluso na página, é possível conectar-se.

Primeiro Passo:
A criação do arquivo 'cls_conexao.asp'

<%

  Class Connection

    Private Conn
    Private dataSource
    Private Key

    Public Property Let DBPath(dS)
      dataSource = ds
    End Property

    Public Property Let DBKey(k)
      key = k
    End Property

    Public Property Get Link()
      Link = Conn
    End Property


    Public Function DBOpen()
      If dataSource = "" then
        Response.Write("
Error: DBOpen() 
 Data Source not find. 
 DBPath Property not declared. 
")
      Else
        Set Conn = Server.CreateObject("ADODB.Connection")
          If key = "" then
            Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
            Conn.ConnectionString = Server.MapPath(dataSource)
            Conn.Open
          Else 
            Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&amp; Server.MapPath(dataSource) &amp;"; Persist Security Info=True; Jet OLEDB:Database Password="&amp; Key
          End If
      End If
    End Function

    Public Function DBClose()
      If IsObject(Conn) then
            Conn.Close
        Set Conn = Nothing
      Else
        Response.Write("
Error: DBClose() 
 Database connection don't exists. 
")
      End If
    End Function

  End Class

%>

Segundo Passo:
Como trabalhar com a classe

<!--#include file="cls_connection.asp" //-->
<%

  Dim objCnx
  Set objCnx = new Connection 'Chamando a classe

      objCnx.DBPath = "banco.mdb"       'Informar o caminho virtual, pois utiliza o Server.MapPath
      'objCnx.DBKey = "12345"        'Caso o Banco de Dados usar senha
      objCnx.DBOpen()

      strSQL = "SELECT * FROM registro ORDER BY code"
      Set RS = Server.CreateObject("ADODB.RecordSet")
          RS.Open strSQL,objCnx.Link(),3,3

         Do while Not RS.EOF
           response.write RS("usuario") &amp;" - "&amp; RS("senha") &amp;"
"
         RS.MoveNext
         Loop

      objCnx.DBClose()

%>

Enviar um Artigo