Programación General > Visual Basic 6.0 e inferiores
Cargando Textbox Con Combobox
(1/1)
MeLaT:
Hola !!!
El siguiente código lo tengo en un combobox. Con este quiero que cuando seleccionene un item de los que tiene, varios textbox se carguen dependiendo de lo que haya seleccionado haciendo una conexión a SQL.
--- Código: Text ---Private Sub cmb_sistemac_Change() If cmb_sistemac.Text = "1A" Then nuevoT 'vacia los textbox CRITERIO = "SELECT * FROM T_SISTEMA WHERE (SIS_SISTEMA LIKE '" & cmb_sistemac & "')" abrirRS 'abre el RecordSource'cargar los campos relacionados con el sistema elegido If RS.EOF Then MsgBox "El sistema fue modificado.", vbExclamation, "Sistema" Else txt_semana.Text = RS!SIS_SEMANA txt_dia.Text = RS!SIS_DIA txt_mes.Text = RS!SIS_MES txt_otro.Text = RS!TST_VALOROTROS End If Elseifcmb_sistemac.Text = "1B" Then nuevoT 'vacia los textbox CRITERIO = "SELECT * FROM T_SISTEMA WHERE (SIS_SISTEMA LIKE '" & cmb_sistemac & "')" abrirRS 'abre el RecordSource'cargar los campos relacionados con el sistema elegido If RS.EOF Then MsgBox "El sistema fue modificado.", vbExclamation, "Sistema" Else txt_semana.Text = RS!SIS_SEMANA txt_dia.Text = RS!SIS_DIA txt_mes.Text = RS!SIS_MES txt_otro.Text = RS!TST_VALOROTROS End If End IfEnd Sub
Pero me manda un "error de compilación y variable no definida" y señala a: "RS!SIS_SEMANA", en que ando mal ?!
Gracias. . .
Sagutxo:
Salu2, creo que lo que te pasa es que no tienes definido RS y por eso te da Variable no definida. la tendras definida en otra función quiero decir, pero es difícil saber lo que te pasa con ese trozo de código dado que yamas a 2 funciones que no veo aunke se sabe lo que hacen por el texto que pones, tampoco te veo cerrar el RS ni la DB que supongo que tambien está abierta.
:smartass: :comp: :smartass:
Navegación
Ir a la versión completa