Cerra conexion base de datos des otro form

[buxforever]

Bueno aqui la problematica......

Resulta que tengo dos formularios (Form1 y Form2) y el Form1 tengo una conexion ADODB y deseo cerrarla desde el formulario ya que el form1 maneja distintas propiedades.....

intente cerrarla asi desde el form2 en un boton

Código vb:

form1.cnn.close
 

Donde cnn es la ADODB.Connection...

acudo a ustedes a ver si me pueden orientar un poco para remotar el camino otra vez......


Saludos

[seba123neo]

Hola, si queres hacer eso la conexion "cnn" tendria que estar declarada en el form1 y como "publica", pero la verdad esa forma yo no lo haria, yo declararia y abriria la conexion en un modulo desde el Sub_Main y ahi crearia un Sub publico que cierre la base de datos.

saludos.

[buxforever]

a tienes mucha razon es como "public" no como "private", pero si lo declaro en el form1 cual seria las complicaciones ya que solo va a ser cerrar desde el form2.. en especifico

[seba123neo]

primero ni idea para que cerras la conexion a la base, vos me diras...siempre se deja conectado hasta que se sale del formulario principal, pero vos lo cerras desde el form2..¿y si tenes que conectarte de nuevo?...pero te digo lo mejor siempre es empezar desde el Sub_Main de un modulo...por ejemplo:

Código vb:

Option Explicit
 
Public mConexion As ADODB.Connection
 
Sub Main()
On Error GoTo ErrorConexion
 
    Set mCmd = New ADODB.Command
    
    mConexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=LinkC.mdb;Persist Security Info=False"
    mConexion.Open
    
    If App.PrevInstance = True Then End
    frmInicio.Show
    Exit Sub
    
ErrorConexion:
    MsgBox "Error No se Pudo Conectar a la Base de Datos", vbCritical
End Sub
 
Public Sub Desconectar()
     On Error Resume Next
 
     mConexion.Close
     Set mConexion = Nothing
 
End Sub
 

saludos.