(First Import files i.e.:Imports System.data.OleDb)
Private Sub Display_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
OleDbDataAdapter1.Fill(DataSet41)
DataGrid1.DataSource = DataSet41.Tables(0)
Dim objconn As New OleDbConnection("PROVIDER=MICROSOFT.JET.OLEDB.4.0; Data Source=c:\IQRA.mdb")
Dim objda_prog As New OleDbDataAdapter("select distinct program from program", objconn)
Dim objDA_majors As New OleDbDataAdapter("select distinct majors from majors", objconn)
Dim objds_prog As New DataSet
Dim objds_majors As New DataSet
objda_prog.Fill(objds_prog, "program")
objDA_majors.Fill(objds_majors, "majors")
ComboBox1.DataSource = objds_prog.Tables("program")
ComboBox1.DisplayMember = "program"
ComboBox1.ValueMember = "program"
ComboBox2.DataSource = objds_majors.Tables("majors")
ComboBox2.DisplayMember = "majors"
ComboBox2.ValueMember = "majors"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim objconn As New OleDbConnection("PROVIDER=MICROSOFT.JET.OLEDB.4.0; Data Source=c:\IQRA.mdb")
Dim objda_student As New OleDbDataAdapter("select * from student where program= '" & ComboBox1.SelectedValue & " ' and specialization= '" & ComboBox2.SelectedValue & " '", objconn)
Dim objds_student As New DataSet
objda_student.Fill(objds_student)
DataGrid1.DataSource = objds_student.Tables(0)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim objconn As New OleDbConnection("PROVIDER=MICROSOFT.JET.OLEDB.4.0; Data Source=c:\IQRA.mdb")
Dim objda_student As New OleDbDataAdapter("select * from student", objconn)
Dim objds_student As New DataSet
objda_student.Fill(objds_student)
DataGrid1.DataSource = objds_student.Tables(0)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim objconn As New OleDbConnection("PROVIDER=MICROSOFT.JET.OLEDB.4.0; Data Source=c:\IQRA.mdb")
Dim objda_student As New OleDbDataAdapter("select * from student where name like '%" & TextBox1.Text & "%'", objconn)
Dim objds_student As New DataSet
objda_student.Fill(objds_student)
DataGrid1.DataSource = objds_student.Tables(0)
End Sub
End Class