[Resolvido] Função para declarar conexões

[Mago_Pc 0]

Kara se alg aqui tem que trabalhar com tantos Banco de Dados como eu, sabe como é um saco declarar em cada página a conexão ou conexões,

Então desenvolvi esta função para acabar com essa dor de Cabeça!

 

Dim Com, RsPublic Function CX(ByVal conec, ByVal Abrir)Select Case Conec' para cada conexão você poderá fazer um reconhecimento Case "1"   AbrirConexao Com, Rs, "seu_banco.mdb", Abrir' você pode colocar quantas você 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 = 3Else If ObjRecordset.State = 1 Then ObjRecordset.Close If ObjConec.State = 1 Then ObjConec.Close Set ObjRecordset = Nothing Set ObjConec = NothingEnd IfEnd Function

para você passar o valor do banco que será aberto você 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 você não especifique a autorização essa função não será executada.

 

 

 

Espero que você gostem desse código, que fizer melhorias por favor me enviem o seu código, tá?