Vuelvo a molestar de nuevo por acá para no abrir un tema nuevo, ya que tiene que ver con lo mismo. VB y ACCESS.
Mi problema ahora es que ya pude hacer el login, pero quiero que cuando pase ese login, me lleve a otro form y en una grilla mostrar los valores que figuren en la tabla creada en ACCESS.
Tengo 2 formularios. FRMLOGIN y FORM1 (donde se encuentra la grilla)
Un módulo: Donde genero la conexión.
Pongo los sources para que me indiquen por favor que es lo que hago mal, ya que lo que pongo O ESTA MAL y me dice algo asi como que se requiere un objeto, o que esta abierto, o que esta cerrado, como también arroja a veces un ERROR donde dice que la memoria no se puede "read" y se muere mi VB.
MODULO
Código
Public CN As ADODB.Connection 'Variable para la conexion a la BDD Sub Conectar() Dim RST As New ADODB.Recordset Set CN = New ADODB.Connection Set RST = New ADODB.Recordset With CN .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ App.Path & "\bdgym.mdb" & ";Persist Security Info=False" .CursorLocation = adUseClient .Open End With End Sub
FRMLOGIN
Código
Dim RST As New ADODB.Recordset '\\ -- Variable de Tipo Recordset. Private Sub cmdborrar_Click() txtusuario.Text = "" txtpassword.Text = "" End Sub Private Sub cmdlogin_Click() '-------------LOGIN DE USUARIO------------- 'Busca en la tabla si existe el usuario. RST.Find "id ='" & Trim(txtusuario.Text) & "'" 'Si no existe If RST.EOF Then MsgBox "No existe el usuario indicado", vbExclamation, "ERROR" Else 'Si existe, verifica los passwords y si es correcto nos lleva al formulario Principal If RST!Password = Trim(txtpassword.Text) Then Unload frmlogin Load Form1 Form1.Show Else 'Sino, muestra mensaje de error MsgBox "Clave incorrecta", vbExclamation, "ERROR" End If End If End Sub Private Sub Form_Load() Call GeneraConexion End Sub Sub GeneraConexion() Set RST = New Recordset Call Conectar RST.CursorLocation = adUseClient RST.Open ("SELECT * FROM Usuarios ORDER BY id"), CN, adOpenKeyset, adLockOptimistic End Sub
FORM1
Código
Private Sub reload() Set rst = New ADODB.Recordset rst.Open sql, CN Set grilla.Recordset = rs grilla.Refresh End Sub Private Sub Form_Load() sql = "select * from socios order by id" Call reload End Sub
Tengo ya creadas las 2 tablas en access, como dije el login lo pasa perfectamente.
Pero después no me muestra en la grilla la tabla SOCIOS.
Muchas gracias!
PD: Dejo una imágen del mensaje de error que hace que muera el VB

Ahora si, Saludos!