USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  ASP - Active Server Page    (Miscelâneas)

Título da Dica:  Função p/ mais de uma Conexão
Postada em 26/9/2003 por Mago_Pc            
<%
'**--Essas funções irá fazer suas conexões sem precisar fazer-las em todas suas páginas--**'

Dim Com, Rs, log, perm
Function ConectarIndex(ByVal Abrir)
     AbrirConexao Com, Rs, " Seu-Banco-de-Dados ", Abrir
End Function

     Function NovaConectarSeg(ByVal AbrirSeg)
          AbrirConexao Cnn, Rs, " Outro-Banco-de-Dados ", AbrirSeg
     End Function

Function AbrirConexao(ByRef ObjC, ByRef ObjR, ByVal Banco, ByVal Abrir)
     If Abrir Then
          Set ObjC = Server.CreateObject("ADODB.Connection")
          Set ObjR = Server.CreateObject("ADODB.Recordset")
            ObjC.open "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("../../databases/" & Banco)
          ObjR.ActiveConnection = ObjC
          ObjR.CursorType = 1
          ObjR.LockType = 3
          
               ElseIf AbrirSeg Then
               Set ObjC = Server.CreateObject("ADODB.Connection")
               Set ObjR = Server.CreateObject("ADODB.Recordset")
                 ObjC.open "provider=microsoft.jet.oledb.4.0;data source=" & _
                server.MapPath("../../databases/" & Banco)
               ObjR.ActiveConnection = ObjC
               ObjR.CursorType = 1
               ObjR.LockType = 3
          
     Else
          If ObjR.State = 1 Then ObjR.Close
          If ObjC.State = 1 Then ObjC.Close
          Set ObjC = Nothing
          Set ObjR = Nothing
     End If
End Function
%>
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página