Foro de elhacker.net

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

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
 
 

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

Private Sub reload()
Set rst = New ADODB.Recordset
rst.Open sql, CN
Set grilla.Recordset = rst '<----------Te falto la T
grilla.Refresh
End Sub
 
Private Sub Form_Load()
Call Conectar '<--------- Te Falto esa 
sql = "select * from socios order by id"
Call reload
End Sub

Private Sub reload()
Set rst = New ADODB.Recordset
rst.Open sql, CN
Set grilla.Recordset = rst '<----------Te falto la T
grilla.Refresh
End Sub
 
Private Sub Form_Load()
Call Conectar '<--------- Te Falto esa 
sql = "select * from socios order by id"
Call reload
End Sub

Private Sub reload()
Set RST = New ADODB.Recordset
RST.Open sql, CN 'ESTA LINEA ARROJABA EL ERROR!!
Set grilla.Recordset = RST 
grilla.Refresh
End Sub
 
Private Sub Form_Load()
Call Conectar 
sql = "Select * from socios order by id"
Call reload
End Sub
 

Private Sub reload()
Set RST = New ADODB.Recordset
RST.Open "select * from socios order by id", CN '-->LO MODIFIQUE DIRECTAMENTE
Set grilla.Recordset = RST '
grilla.Refresh
End Sub
 
Private Sub Form_Load()
Call Conectar 
'ACA ESTABA LA VARIABLE Y LA QUITÉ!
Call reload
End Sub
 
 

Private Sub grilla_Click()
'Si la grilla esta vacia
If RST.EOF = True Then
'Muestra mensaje
    MsgBox "La grilla está vacia", vbInformation, "Información"
Else
'Sino, Almacena el valor del registro
borrarregistro = RST!Id
End If
End Sub

Private Sub cmdborrar_Click()
'Borra el registro seleccionado
cn.Execute ("DELETE FROM socios where id= ") & borrarregistro, cn
'Llama a la función LOAD para que cargue la grilla nuevamente.
'Por lo tanto SE ACTUALIZA.
Call Form_Load
End Sub

Private Sub cmdborrar_Click()'Borra el registro seleccionado
<->cn.Execute ("DELETE FROM socios where id= ") & borrarregistro, cn 
'Llama a la funcion LOAD para que cargue la grilla nuevamente.
'Por lo tanto SE ACTUALIZA.
Call Form_Load
End Sub