Monday, 26 de June de 2006
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()
%>
Nenhum comentário, seja o primeiro a comentar.
Para adicionar um comentário você deve efetuar o
login