a uhmm por lo visto creo k estas cometiendo dos posibles problemas
1.- Si te fijas que en el modulo estas poniendo la conexion a la BDD, eh en el form1 no lo estas llamando, entonces el el form load ponle Call Conectar.
2.- Y si te fijas en ese Sub Reload estas declarando una nueva conexion y fijate k stas poniendo RST y fijate que tu estas poniendo asi Set grilla.Recordset = rs, te comistes la t
FORM1Private 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
weno creo que esos dos era el problema cualkier cosa avisa Salu2
Es verdad, no me di cuenta de eso.
Arreglé como me dijiste pero seguía teniendo problemas.
El error que arrojaba ahora es:
"Runtime error '3001': Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros"Le dí depurar y la línea que marcaba con error es la siguiente:
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
y lo que hice fue borrar la variable SQL del form_load y poner el comando directamente, y ahí si funciono y cargó la grilla completamente, así:
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
Alguien sabe porque era ese error ya que estamos?
Desde ya muchas gracias a todos por la ayuda, me lo solucionaron perfectamente!
Saludos!
Autor
En línea
