Public Function CONECTAR()

[Kitty_05]

Hello!!

Yo d nuevo, amigos luego de la ayuda q me dieron con la conexion de la BD todo funciono perfecto pero eso lo hace mediante un boton, pero logre colocarla al cargar la forma. El detalle en este momento es q kiero hacer la conexion publica para poder no perder conexion si le doy unload me a cualquier forma..
La razon es que kiero ocultar una forma y si le doy unload me cierra la BD y queda el proceso de la forma dos colgado...pensando
Me ayudan??????????? Les pasteo lo que tengo:-p

Public Function CONECTAR()
On Error GoTo VError

Public BD As ADODB.Connection
'Dim STRBD As String

BD = New ADODB.Connection

BD.ConnectionString = "driver={MySQL ODBC 3.51 Driver};Server=localhost;Port=;Database=pr2;User=r oot;Password=;Option=3;"
BD.CursorLocation = adUseClient
BD.CommandTimeout = 30
BD.Open
Set CONECTAR = BD
MsgBox "conexion abierta"

Exit Function
VError:
Dim accion As Integer
If Err.Number = -2147467259 Then
Err.Raise 60000, "conn.conexion", "La conexion al servidor falló." _
& vbCr & vbCr & Err.Description
End If

End Function



Private Sub Command1_Click()

On Error GoTo Ver

RecBD = New ADODB.Recordset
RecSQL.Open "select * from users", BD, adOpenStatic, adLockOptimistic

While Not RecBD.EOF
If (RecBD.Fields(0) = Text1 And RecBD.Fields(1) = Text2) Then
Form2.Show
Unload Me
Else
RecBD.MoveNext
End If
Wend
Unload Me
MsgBox "Por favor verifique la informacion", , "Error.."
Close
Form1.Show
Text1 = ""
Text2 = ""
Exit Sub

Ver:
MsgBox "Nº de error: " & Err.Number & " | " & Err.Description, vbCritical, "Control de errores"
Err.Clear

End Sub


Luego de hacer todo esto no se como llamar la funcion CONECTAR() dentro del proceso y q no se cierre la conexion de la BD .. me guian?

[David]

Podrías usar Hide en vez de Unload, así el form no se descarga, simplemente se oculta...

[Kitty_05]

Gracias de todos modos ya logre que funcione como quiero :) mil gracias por ser tan amable