Class para conexão

[Rafael Leal 0]

-----

[xanburzum 169]

classe_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(”<br />Error: DBOpen() <br /> Data Source não localizado.<br /> DBPath Propriedade não declarada.
. <br />”)
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(”<br />Error: DBClose() <br /> Conexão com Base de dados não existe.. <br />”)
End If
End Function
End Class

%>

 

Usando a classe

 

<!–#include file=” classe_conexao.asp” //–>
<%
Dim objCnx
Set objCnx = new Connection ‘Chamando a classe
objCnx.DBPath = “banco.mdb” ‘Informar o caminho virtual 
‘objCnx.DBKey = “12345″ ‘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”) &”<br />”
RS.MoveNext
Loop
objCnx.DBClose()
%>