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?