Por ejemplo yo quiero seleccionar la carrera de LSC y semestre 06 y quiero que en la otra forma solo me de las materias de esa carrera y del semestre aquí esta el código:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim constr As String
constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\CT\Documents\base1.mdb;"
Dim con As New System.Data.OleDb.OleDbConnection(constr)
con.Open()
Dim carrera, semestre As String
carrera = ComboBox1.Text
semestre = ComboBox2.Text
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
End Sub
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim form1 As New Form2
Form2.Show()
End Sub
End Class
Esta es la segunda forma: donde solo quiero la materia de esa carrera que se basa en el carrera y semestre que seleccionamos
(Con este query solo me arroja todas las materias de todos los semestres ya que solo quiero las de la materia no se donde la estoy regando alguine que me ayude).
Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: esta línea de código carga datos en la tabla 'Base_de_datos1DataSet.Materia' Puede moverla o quitarla según sea necesario.
Me.MateriaTableAdapter.Fill(Me.Base_de_datos1DataS et.Materia)
End Sub
Dim carrera, semestre As String
Dim cmd As New System.Data.OleDb.OleDbCommand
Dim command As New System.Data.OleDb.OleDbCommand
Dim constr As String
Dim con As New System.Data.OleDb.OleDbConnection(constr)
Dim sqlStr As String
Private Sub ComboBox14_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox14.SelectedIndexChanged
sqlStr = "select materia from Materia where carrera=" & carrera & "; semestre =" & semestre
Dim dataAdapter As New OleDb.OleDbDataAdapter(SQLstr, con)
command = New System.Data.OleDb.OleDbCommand(sqlStr, con)
Dim form As New Form1
Form1.Show()
End Sub
End Class
