Olá! Saturday, 08 de February de 2025.



Dicas CódigoFonte.net
Monday, 26 de June de 2006

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="& Server.MapPath(dataSource) &"; Persist Security Info=True; Jet OLEDB:Database Password="& 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

<% 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") &" - "& RS("senha") &" " RS.MoveNext Loop objCnx.DBClose() %>




Comentários do artigo [Novo comentário]

Nenhum comentário, seja o primeiro a comentar.
Para adicionar um comentário você deve efetuar o login


Gostou do CódigoFonte.net? Quer indicar a um amigo?
Preencha os campos a seguir.
Seu Nome:
Seu E-mail:
E-mail de seu Amigo:


CodigoFonte.net » Meu Mural » Competiva - Criação de Sites » Todos os Direitos Reservados © 2002/2010