|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: função que abre muitas conexões Melhorada
|
 |
|
|
|
Postada em 23/1/2004 por Mago_Pc
Dim Com, Rs
Public Function CX(ByVal conec, ByVal Abrir)
Select Case Conec
' para cada conexão vc poderá fazer um reconhecimento
Case "1"
AbrirConexao Com, Rs, "seu_banco.mdb", Abrir
' vc pode colocar quantas vc quizer!
Case Else
End Select
End Function
'=================================================================================================='
Public Function AbrirConexao(ByRef ObjConec, ByRef ObjRecordset, ByVal Banco, ByVal Abrir)
If Abrir Then
Set ObjConec = Server.CreateObject("ADODB.Connection")
Set ObjRecordset = Server.CreateObject("ADODB.Recordset")
ObjConec.open "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("../databases/" & Banco)
ObjRecordset.ActiveConnection = ObjConec
ObjRecordset.CursorType = 1
ObjRecordset.LockType = 3
Else
If ObjRecordset.State = 1 Then ObjRecordset.Close
If ObjConec.State = 1 Then ObjConec.Close
Set ObjRecordset = Nothing
Set ObjConec = Nothing
End If
End Function
para vc passar o valor do banco que será aberto vc usar na página que for abri conexção essa linha de comando!
CX "1", true
'Cx é a função, seu valor é 1(a função pegará esse valor é irá converter em um banco ), true é autorização para abrir a conexão (true = abrir, false = fechar), caso vc não especifique a autorização essa função não será executada.
|
|
|
|
|
