Hola!!
Intente hacerlo como tu aconsejaste, pero me sigue marcando error. O sea los DataCombo no se llenan. Al instalarlo en xp con todos los .dll y .ocx me da el suguiente error:
http://subir.cc/images/errordeins.jpg
Intente con Reintentar y Omitir, me instala la aplicación pero con el mismo error. Lo otro que se me ocurre es cargar el DataCombo con una sentencia.
En mi aplicación tengo 3 DataCombo (DataCAPITULOS, DataSUBCAPITULOS, DataENFERMEDADES), Cargando el Primero (DataCAPITULOS) por sentencia me carga el segundo (DataSUBCAPITULOS) y cargando el segundo, por sentencia me carga el tercero (DataENFERMEDADES). Más abajo dejo las sentencias, tenes idea de como puedo modificar la sentencia para que también me carge el primero???
Gracias por tu tiempo y por todo aquel que se tome 2 minutos para leer esto, un abrazo GRANDE para toda la comunidad de Foros del Web!!
---------------------------------------------------------------------
Private Sub DataCAPITULOS_Click(Area As Integer)
Dim rsConsulta4 As ADODB.Recordset
Set rsConsulta4 = New ADODB.Recordset
Dim strVALOR_CAPITULOS As String
strVALOR_CAPITULOS = DataCAPITULOS.BoundText
SQL = "SELECT * FROM SUBCAPITULOS WHERE CAPITULOS = '" & DataCAPITULOS.BoundText & "' ORDER BY Id;"
rsConsulta4.Open SQL, cnn, adRsnAddNew, adLockReadOnly, adCmdText
If rsConsulta4.EOF = False Then
Set DataSUBCAPITULOS.RowSource = rsConsulta4
Set DataSUBCAPITULOS.DataSource = rsConsulta4
DataSUBCAPITULOS.ListField = "SUBCAPITULOS"
DataSUBCAPITULOS.DataField = "SUBCAPITULOS"
DataSUBCAPITULOS.BoundColumn = "SUBCAPITULOS"
DataCAPITULOS.Refresh
rsConsulta4.MoveNext
End If
End Sub
------------------------------------------------------------------------------------
Private Sub DataSUBCAPITULOS_Click(Area As Integer)
Dim rsConsulta2 As ADODB.Recordset
Dim strVALOR_SUBCAPITULOS As String
Set rsConsulta2 = New ADODB.Recordset
strVALOR_SUBCAPITULOS = DataSUBCAPITULOS.BoundText
SQL = "SELECT * FROM ENFERMEDADES WHERE SUBCAPITULOS = '" & DataSUBCAPITULOS.BoundText & "' ORDER BY ID;"
rsConsulta2.Open SQL, cnn, adRsnAddNew, adLockReadOnly, adCmdText
If rsConsulta2.EOF = False Then
Set DataENFERMEDADES.RowSource = rsConsulta2
Set DataENFERMEDADES.DataSource = rsConsulta2
DataENFERMEDADES.ListField = "ENFERMEDADES"
DataENFERMEDADES.DataField = "ENFERMEDADES"
DataENFERMEDADES.BoundColumn = "ENFERMEDADES"
DataSUBCAPITULOS.Refresh
rsConsulta2.MoveNext
End If
End Sub