DBList no visualiza datos
Publicado por Eomer30 (4 intervenciones) el 21/02/2003 20:15:12
Hola amigos:
Tengo un ComboBox....
Private Sub cbo_Camps_Click()
dbl_Contingut.ListField = cbo_Camps.Text
End Sub
que me saca los titulos de columnas de una tabla, y cuando haces click en el titulo de columna solicitado tiene que mostrar el contenido de todos los registros relacionados con esa columna en cuestion.....
Private Sub dbl_Contingut_DblClick()
frm_Filtro.Ado_Esplai.RecordSource = "SELECT * FROM Activitats WHERE " & cbo_Camps.Text & "='" & dbl_Contingut.Text & "'"
frm_Activitats.Ado_Esplai.Refresh
Unload frm_Filtro
End Sub
...pero no me visualiza el contenido. No entiendo que pasa?¿?
Private Sub Form_Activate()
For i = 0 To Ado_Esplai.Recordset.Fields.Count - 1
cbo_Camps.AddItem Ado_Esplai.Recordset.Fields(i).Name
Next i
cbo_Camps.Text = cbo_Camps.List(0)
dbl_Contingut.ListField = cbo_Camps.Text
End Sub
Me podriais ayudar por favor, estoy muy pillado con esto. Gracias
Tengo un ComboBox....
Private Sub cbo_Camps_Click()
dbl_Contingut.ListField = cbo_Camps.Text
End Sub
que me saca los titulos de columnas de una tabla, y cuando haces click en el titulo de columna solicitado tiene que mostrar el contenido de todos los registros relacionados con esa columna en cuestion.....
Private Sub dbl_Contingut_DblClick()
frm_Filtro.Ado_Esplai.RecordSource = "SELECT * FROM Activitats WHERE " & cbo_Camps.Text & "='" & dbl_Contingut.Text & "'"
frm_Activitats.Ado_Esplai.Refresh
Unload frm_Filtro
End Sub
...pero no me visualiza el contenido. No entiendo que pasa?¿?
Private Sub Form_Activate()
For i = 0 To Ado_Esplai.Recordset.Fields.Count - 1
cbo_Camps.AddItem Ado_Esplai.Recordset.Fields(i).Name
Next i
cbo_Camps.Text = cbo_Camps.List(0)
dbl_Contingut.ListField = cbo_Camps.Text
End Sub
Me podriais ayudar por favor, estoy muy pillado con esto. Gracias
Valora esta pregunta


0