student

[faiza]

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As System.EventArg s) Handles MyBase.Load


Dim objconn As New OleDbConnection ("PROVIDER=MICR OSOFT.JET.OLEDB .4.0;Data Source=c:\IQRA. mdb")
Dim objda_prog As New OleDbDataAdapte r("select distinct program from program", objconn)
Dim objDA_majors As New OleDbDataAdapte r("select distinct majors from majors", objconn)
Dim objds_prog As New DataSet
Dim objds_majors As New DataSet
5:
objda_prog.Fill (objds_prog, "program")

objDA_majors.Fi ll(objds_majors , "majors")


ComboBox1.DataS ource = objds_prog.Tabl es("program")
ComboBox1.Displ ayMember = "program"
ComboBox1.Value Member = "program"

ComboBox2.DataS ource = objds_majors.Ta bles("majors")
ComboBox2.Displ ayMember = "majors"
ComboBox2.Value Member = "majors"


End Sub

Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles Button1.Click

Dim objconn As New OleDbConnection ("PROVIDER=MICR OSOFT.JET.OLEDB .4.0;Data Source=c:\IQRA. mdb")
Dim objcmd As New OleDbCommand("I NSERT into student (name, program, specialization, shift) values ( '" & TextBox2.Text & "', '" & ComboBox1.Selec tedValue & "', '" & ComboBox2.Selec tedValue & "', '" & ComboBox3.Text & "')", objconn)
Dim OBJDR As OleDbDataReader

objconn.Open()
objcmd.ExecuteN onQuery()
MsgBox("Record Successfully Added")
objconn.Close()




End Sub

Private Sub Button2_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles Button2.Click
Dim Second As New display
Second.Show()

End Sub