Majinz, cuando publiques codigo trata de ponerlo entre el geshi de visual basic, por las dudas es [ code=vb] tu codigo aca... [ /code] asi queda mejor, y trata de indentar el codigo fuente.
el modulo que yo te puse lo unico que hace es crear e instanciar las variables publicas para usarlas en el proyecto cuando quieras, y conectarte a la base de datos, eso es lo que hace el modulo.
la variable mCmd es para ejecutar comandos, o sea cuando necesites insertar registros , actualizar registros o borrar registros vas a usar esta variable.
por ahora lo que vos necesitas es hacer una consulta(SELECT) a la base, pero para eso debes usar la variable mRs y para que funcione debes pasarle la consulta SQL que necesitas hacer. eso no lo veo en tu codigo por eso te tira error, en ningun momento veo que abras el recordset para hacer la consulta. tampoco necesitas hacer ese mConexion.Open, ya que la conexion a la base ya esta abierta desde el modulo, y queda abierta y activa todo el programa, hasta que se cierra.
aca te paso un ejemplo de como lo haria yo, una simple consulta a la base de datos, supongamos que estas usando el modulo que te pase, esto deberia funcionar.
fijate que simple que es, simplemente en el boton llamamos a un Sub que nos hace la consulta. ahi esta explicado en el codigo lo que hace cada linea.
si por alguna razon alguna vez necesitas de usar 2 recorset al mismo tiempo, fijate que en el modulo hay otro auxiliar para llamarlo cuando quieras, y si por las dudas necesitas un tercero o mas...los declaras en el formulario como local, lo usas y los cerras ahi mismo.
saludos.
el modulo que yo te puse lo unico que hace es crear e instanciar las variables publicas para usarlas en el proyecto cuando quieras, y conectarte a la base de datos, eso es lo que hace el modulo.
la variable mCmd es para ejecutar comandos, o sea cuando necesites insertar registros , actualizar registros o borrar registros vas a usar esta variable.
por ahora lo que vos necesitas es hacer una consulta(SELECT) a la base, pero para eso debes usar la variable mRs y para que funcione debes pasarle la consulta SQL que necesitas hacer. eso no lo veo en tu codigo por eso te tira error, en ningun momento veo que abras el recordset para hacer la consulta. tampoco necesitas hacer ese mConexion.Open, ya que la conexion a la base ya esta abierta desde el modulo, y queda abierta y activa todo el programa, hasta que se cierra.
aca te paso un ejemplo de como lo haria yo, una simple consulta a la base de datos, supongamos que estas usando el modulo que te pase, esto deberia funcionar.
Código (vb) [Seleccionar]
Option Explicit
Private Sub Command1_Click()
Call CargarDatos
End Sub
Private Sub CargarDatos()
Dim vSQL As String
vSQL = "SELECT campo FROM tabla" ' String para la consulta SQL
mRs.Open vSQL, mConexion, adOpenKeyset, adLockOptimistic, adCmdText ' abris el recodset publico con la consulta
If mRs.EOF Then ' Si tiene datos
Label1.Caption = mRs("campo") ' obtenemos el valor del campo de la consulta
End If
mRs.Close 'cerramos el recordset para que quede disponible para usar de nuevo cuando queramos.
End Sub
Private Sub Form_Unload(Cancel As Integer)
mConexion.Close
Set mConexion = Nothing
End
End Subfijate que simple que es, simplemente en el boton llamamos a un Sub que nos hace la consulta. ahi esta explicado en el codigo lo que hace cada linea.
si por alguna razon alguna vez necesitas de usar 2 recorset al mismo tiempo, fijate que en el modulo hay otro auxiliar para llamarlo cuando quieras, y si por las dudas necesitas un tercero o mas...los declaras en el formulario como local, lo usas y los cerras ahi mismo.
saludos.
, de las mas usadas y mejores que hay.
