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 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.
 


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