Publicado: 16/06/2006 04:59:20 pmAsunto: MI DATA COMBO NO ME PERMITE PASAR DE UN DATO A OTRO
HOLA: ESPERO ME PUEDAN AYUDAR
TENGO UN DATA COMBO Y UN DATA GRID
EL DATA GRID ENLAZADO A UNA BASE DE DATOS MEDIANTE UN DATAENVIRONMENT.....MI PROBLEMA ES QUE AL MOMENTO QUE DESPLIEGO LA LISTA DEL DATACOMBO Y ESCOJO UNA OPCION ME ARROJA LOS REGISTROS DE LOS CAMPOS QUE NECESITO.HASTA AQUI TODO BIEN.
PERO SI DE LA MISMA LISTA QUE ARROJA EL DATACOMBO QUIERO ESCOGER OTRA OPCION , EL VISUAL BASIC ME MARCA ERROR[b] Y ME DICE QUE EL DATA COMBO YA ESTA ABIERTO[/b]
ESTE ES MI CODIGO
'Declara el recordset como global para usarlo en todo el sistema
Private rsFiltro As New ADODB.Recordset
Private rs232 As New ADODB.Recordset
Private Sub Command1_Click()
'Adodc1.Refresh
'DataGrid1.Refresh
'MsgBox "LA TABLA ESTA ACTUALIZADA"
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub cmbFiltro_Change()
End Sub
Private Sub DataCombo1_Change()
Dim msql2 As String
msql2 = "SELECT Lineas.* From Lineas WHERE (LI_Linea = '" & DataCombo1.BoundText & "');"
'MsgBox msql2
rsFiltro.Open msql2, DataEnvironment1.cnnRS232, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rsFiltro
End Sub
Private Sub Form_Load()
'Variable string donde estará la sentencia SELECT
Dim mSQL As String
'Sentencia SELECT
mSQL = "SELECT Lineas.* FROM lineas"
'Abre la coneccion a la Base de Datos
DataEnvironment1.cnnRS232.Open
'Ejecuta la Sentecia SELECT y la guarda en la variable Recordset
rs232.Open mSQL, DataEnvironment1.cnnRS232, adOpenKeyset, adLockOptimistic
'Asigna el recordset (RESULTADO DEL QUERY) al DataGrid)
Set DataGrid1.DataSource = rs232
Set DataCombo1.RowSource = rs232
DataCombo1.ListField = "LI_Descripcion"
DataCombo1.BoundColumn = "LI_Linea"
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
FAQ
Buscar
Grupos de Usuarios
Perfil
Entre para ver sus mensajes privados
Login
