VS 2008 Problemas con ComboBox Dependientes

Buenas Noches a todos.

tengo un pequeño problema pero no he podido encontrarle la solución. Tengo conocimientos Básicos de Visual y hago una pequeña aplicación de control.

Estoy programando en Visual Express 2008:

Necesito que al seleccionar un Radiobutton se llene el Primer ComboBox con cierta información de la tabla Pero si selecciono el Segundo se llene con otra información. Y de acuerdo a lo que cargue el Primer ComboBox se llene el Segundo ComboBox.

Tengo un Formulario con Los siguientes controles:

"/>

- RadioButton1

- RadioButton2

- Combobox1 (CMBPERIODO)

- Combobox2 (CMBFECHA)

y este es el Código:

Me muestra un error en la Instrucción SQL.

Muchas Gracias por su ayuda

 Sub Mostrar()
 If RadioButton1.Checked Then
 'CMBFECHA.Text = "LECTURA"
 Me.CMBFECHA.Items.Clear()
 Dim stConexion As String = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Escaner\BDTecnica.accdb;Persist Security Info=False;")
 Dim cnConex As New OleDbConnection(stConexion)
 Dim Cmd As New OleDbCommand("SELECT TBLCALENDARIO.PERIODO, TBLCALENDARIO.MEDIDOS_ACTUAL FROM TBLCALENDARIO GROUP BY TBLCALENDARIO.PERIODO, TBLCALENDARIO.MEDIDOS_ACTUAL HAVING (((TBLCALENDARIO.MEDIDOS_ACTUAL)=0))")
 Dim Ds As New DataSet
 Dim Da As New OleDbDataAdapter
 Dim Dt As New DataTable
 cnConex.Open()
 Cmd.Connection = cnConex
 Da.SelectCommand = Cmd
 Da.Fill(Ds)
 Dt = Ds.Tables(0)
 With CMBPERIODO
 .DataSource = Dt
 .DisplayMember = "PERIODO"
 .ValueMember = "PERIODO"
 End With
 End If
 If RadioButton2.Checked Then
 CMBFECHA.Text = "INSPECCION"
 End If
 End Sub
 Private Sub CMBPERIODO_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CMBPERIODO.SelectedIndexChanged
 Dim Conexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Escaner\BDTecnica.accdb;Persist Security Info=False;")
 Dim Adaptador As New OleDbDataAdapter("Select PERIODO, FECHA_LECTURA from TBLCALENDARIO Where PERIODO=" & Me.CMBPERIODO.SelectedValue & "", Conexion)
 '' "SELECT * FROM Departamentos Where Empresa='seleccion combo1'" --> Cargamos todos los registros de la tabla 'Departamentos'
 '' cuya columna Empresa sea igual al valor seleccionado en el Combo1
 Dim MiDataSet As New DataSet
 Conexion.Open()
 Adaptador.Fill(MiDataSet) 'Rellenar el Dataset
 Me.CMBFECHA.DataSource = MiDataSet.Tables(0) 'Asignar el origen de los datos para el ComboBox1
 Me.CMBFECHA.DisplayMember = "FECHA_LECTURA"
 Me.CMBFECHA.ValueMember = "PERIODO" 'Apuntar Columna origen del contenido
 Conexion.Close()
 End Sub
 Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
 Mostrar()
 End Sub
0

Añade tu respuesta

Haz clic para o