Más dudas sobre controles ADO
Acabo de terminar todo el sistema ocn la introducción de los controles ADO, todo corre bien, pero encontré un problema diría yo grande, no puedo abrir más de 1 formulario que tenga este script:
Conectar
RS1.Open "tabla_de_items", CN, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = RS1
Ya que si acedo a otro formulario con ese script me sale un error diciendo que no se puede abrir el mismo archivo otra vez.
¿Quisiera saber como solucionar este problema?
También tengo otras dudas acerca de algunos campos de la base de datos, eso espero arreglarlo por msn, no creo poder explicarme correctamente por aquí, y de hecho es muy tarde.
Espero su ayuda nuevamente, estoy sumamente agradecido !
Conectar
RS1.Open "tabla_de_items", CN, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = RS1
Ya que si acedo a otro formulario con ese script me sale un error diciendo que no se puede abrir el mismo archivo otra vez.
¿Quisiera saber como solucionar este problema?
También tengo otras dudas acerca de algunos campos de la base de datos, eso espero arreglarlo por msn, no creo poder explicarme correctamente por aquí, y de hecho es muy tarde.
Espero su ayuda nuevamente, estoy sumamente agradecido !
Respuesta de carloscharly
1
Bueno me imagino que el RS1(recordset) y la CNN(conexión) las declaraste en un modulo, bueno ten en cuenta ahora que cada formulario debe tener su propio RS(recordset) osea tu modulo te debe quedar así
MODULO
'*******************************
Public Cnn as new ADODB.Connection
Public Rs1 as new ADODB.RecordSet
Public Rs2 as new ADODB.Recordset
.
.
.
.
'*********************************
NOTA: La cantidad de RS tiene que ser la cantidad de Form que tengas....
'*****************************
Private Sub Form_Load()'*** (de todas las ventanas) VENTANA 1
On Error Resume Next
If Rs1.State = 1 Then Rs1.Close
CONECTAR
RS1.Open "tabla_de_items", CN, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = RS1
End Sub
Private Sub Form_Load()'*** (de todas las ventanas) VENTANA 2
On Error Resume Next
If Rs1.State = 1 Then Rs1.Close
CONECTAR
RS1.Open "tabla_de_items", CN, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = RS1
End Sub
.
.
.
.
De eso modo seria...
MODULO
'*******************************
Public Cnn as new ADODB.Connection
Public Rs1 as new ADODB.RecordSet
Public Rs2 as new ADODB.Recordset
.
.
.
.
'*********************************
NOTA: La cantidad de RS tiene que ser la cantidad de Form que tengas....
'*****************************
Private Sub Form_Load()'*** (de todas las ventanas) VENTANA 1
On Error Resume Next
If Rs1.State = 1 Then Rs1.Close
CONECTAR
RS1.Open "tabla_de_items", CN, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = RS1
End Sub
Private Sub Form_Load()'*** (de todas las ventanas) VENTANA 2
On Error Resume Next
If Rs1.State = 1 Then Rs1.Close
CONECTAR
RS1.Open "tabla_de_items", CN, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = RS1
End Sub
.
.
.
.
De eso modo seria...
No no el Form_Load() ventana 2 tienes que cambiar lo que diga RS1 por RS2 ok, así sucesivamente según los FORM que tengas
Ok, ahora al principio cuando lo ejecuto me sale "Conexión Satisfactoria"
Todos los formularios abren sin errores, guarda y elimina, lo hace todo bien.
Menos mostrar las base de datos en los DataGrid de cada formulario, ¿qué pasara?
No se que borro, no se ve lo que grabe, no se ve nada, solo se ve DataGrid totalmente vacío...
Aquí una foto del problema:
Todos los formularios abren sin errores, guarda y elimina, lo hace todo bien.
Menos mostrar las base de datos en los DataGrid de cada formulario, ¿qué pasara?
No se que borro, no se ve lo que grabe, no se ve nada, solo se ve DataGrid totalmente vacío...
Aquí una foto del problema:
Ya te di la res´puesta, creo que es tiempo de finalizar l apregunta
