jhedonghae
Member
- Joined
- Mar 29, 2012
- Messages
- 17
- Programming Experience
- Beginner
please kindly help me!!!
what i wanted is when i select items in the combobox and it is already in the database it will prompt that it is already in the database..tnx
here is my code:
i think the problem is in this part "If ComboBox3.Text = "'" Then" i just don't know how to manipulate combobox when the event is validating...please help me
what i wanted is when i select items in the combobox and it is already in the database it will prompt that it is already in the database..tnx
here is my code:
[TABLE="width: 0"]
[TR="bgcolor: initial !important"]
[TD="class: number, bgcolor: initial !important"]01[/TD]
[TD="class: content, bgcolor: initial !important"]Private Sub ComboBox3_Validating(ByVal sender As Object, ByVal e AsSystem.ComponentModel.CancelEventArgs) Handles ComboBox3.Validating[/TD]
[/TR]
[/TABLE]
[TABLE="width: 0"]
[TR="bgcolor: initial !important"]
[TD="class: number, bgcolor: initial !important"]02[/TD]
[TD="class: content, bgcolor: initial !important"]If ComboBox3.Text = "'" Then[/TD]
[/TR]
[/TABLE]
[TABLE="width: 0"]
[TR="bgcolor: initial !important"]
[TD="class: number, bgcolor: initial !important"]03[/TD]
[TD="class: content, bgcolor: initial !important"]con = New OleDbConnection("Provider= Microsoft.ACE.oledb.12.0; Data Source=C:\Users\edenzam\Desktop\CBFMNHS Enrollment System\CBFMNHS Enrollment System\bin\Debug\Enrollment System.accdb")[/TD]
[/TR]
[/TABLE]
[TABLE="width: 0"]
[TR="bgcolor: initial !important"]
[TD="class: number, bgcolor: initial !important"]04[/TD]
[TD="class: content, bgcolor: initial !important"]Dim ewaaa As String = "Select * from Schedulings where YearLevels = '" & ComboBox3.Text & "' And Sections = '" & ComboBox1.Text & "' "[/TD]
[/TR]
[/TABLE]
[TABLE="width: 0"]
[TR="bgcolor: initial !important"]
[TD="class: number, bgcolor: initial !important"]05[/TD]
[TD="class: content, bgcolor: initial !important"]com = New OleDbCommand(ewaaa, con)[/TD]
[/TR]
[/TABLE]
[TABLE="width: 0"]
[TR="bgcolor: initial !important"]
[TD="class: number, bgcolor: initial !important"]06[/TD]
[TD="class: content, bgcolor: initial !important"]con.Open()[/TD]
[/TR]
[/TABLE]
[TABLE="width: 0"]
[TR="bgcolor: initial !important"]
[TD="class: number, bgcolor: initial !important"]07[/TD]
[TD="class: content, bgcolor: initial !important"]rid = com.ExecuteReader[/TD]
[/TR]
[/TABLE]
[TABLE="width: 0"]
[TR="bgcolor: initial !important"]
[TD="class: number, bgcolor: initial !important"]08[/TD]
[TD="class: content, bgcolor: initial !important"]rid.Read()[/TD]
[/TR]
[/TABLE]
[TABLE="width: 0"]
[TR="bgcolor: initial !important"]
[TD="class: number, bgcolor: initial !important"]09[/TD]
[TD="class: content, bgcolor: initial !important"]If (rid.HasRows) Then[/TD]
[/TR]
[/TABLE]
[TABLE="width: 0"]
[TR="bgcolor: initial !important"]
[TD="class: number, bgcolor: initial !important"]10[/TD]
[TD="class: content, bgcolor: initial !important"]ComboBox3.Text = rid(2)[/TD]
[/TR]
[/TABLE]
[TABLE="width: 0"]
[TR="bgcolor: initial !important"]
[TD="class: number, bgcolor: initial !important"]11[/TD]
[TD="class: content, bgcolor: initial !important"]MsgBox("Section Already Exist", MsgBoxStyle.Critical, "Error")[/TD]
[/TR]
[/TABLE]
[TABLE="width: 0"]
[TR="bgcolor: initial !important"]
[TD="class: number, bgcolor: initial !important"]12[/TD]
[TD="class: content, bgcolor: initial !important"]ComboBox3.SelectedIndex = -1[/TD]
[/TR]
[/TABLE]
[TABLE="width: 0"]
[TR="bgcolor: initial !important"]
[TD="class: number, bgcolor: initial !important"]13[/TD]
[TD="class: content, bgcolor: initial !important"]End If[/TD]
[/TR]
[/TABLE]
[TABLE="width: 0"]
[TR="bgcolor: initial !important"]
[TD="class: number, bgcolor: initial !important"]14[/TD]
[TD="class: content, bgcolor: initial !important"]End If[/TD]
[/TR]
[/TABLE]
[TABLE="width: 0"]
[TR="bgcolor: initial !important"]
[TD="class: number, bgcolor: initial !important"]15[/TD]
[TD="class: content, bgcolor: initial !important"]End Sub[/TD]
[/TR]
[/TABLE]
[TR="bgcolor: initial !important"]
[TD="class: number, bgcolor: initial !important"]01[/TD]
[TD="class: content, bgcolor: initial !important"]Private Sub ComboBox3_Validating(ByVal sender As Object, ByVal e AsSystem.ComponentModel.CancelEventArgs) Handles ComboBox3.Validating[/TD]
[/TR]
[/TABLE]
[TABLE="width: 0"]
[TR="bgcolor: initial !important"]
[TD="class: number, bgcolor: initial !important"]02[/TD]
[TD="class: content, bgcolor: initial !important"]If ComboBox3.Text = "'" Then[/TD]
[/TR]
[/TABLE]
[TABLE="width: 0"]
[TR="bgcolor: initial !important"]
[TD="class: number, bgcolor: initial !important"]03[/TD]
[TD="class: content, bgcolor: initial !important"]con = New OleDbConnection("Provider= Microsoft.ACE.oledb.12.0; Data Source=C:\Users\edenzam\Desktop\CBFMNHS Enrollment System\CBFMNHS Enrollment System\bin\Debug\Enrollment System.accdb")[/TD]
[/TR]
[/TABLE]
[TABLE="width: 0"]
[TR="bgcolor: initial !important"]
[TD="class: number, bgcolor: initial !important"]04[/TD]
[TD="class: content, bgcolor: initial !important"]Dim ewaaa As String = "Select * from Schedulings where YearLevels = '" & ComboBox3.Text & "' And Sections = '" & ComboBox1.Text & "' "[/TD]
[/TR]
[/TABLE]
[TABLE="width: 0"]
[TR="bgcolor: initial !important"]
[TD="class: number, bgcolor: initial !important"]05[/TD]
[TD="class: content, bgcolor: initial !important"]com = New OleDbCommand(ewaaa, con)[/TD]
[/TR]
[/TABLE]
[TABLE="width: 0"]
[TR="bgcolor: initial !important"]
[TD="class: number, bgcolor: initial !important"]06[/TD]
[TD="class: content, bgcolor: initial !important"]con.Open()[/TD]
[/TR]
[/TABLE]
[TABLE="width: 0"]
[TR="bgcolor: initial !important"]
[TD="class: number, bgcolor: initial !important"]07[/TD]
[TD="class: content, bgcolor: initial !important"]rid = com.ExecuteReader[/TD]
[/TR]
[/TABLE]
[TABLE="width: 0"]
[TR="bgcolor: initial !important"]
[TD="class: number, bgcolor: initial !important"]08[/TD]
[TD="class: content, bgcolor: initial !important"]rid.Read()[/TD]
[/TR]
[/TABLE]
[TABLE="width: 0"]
[TR="bgcolor: initial !important"]
[TD="class: number, bgcolor: initial !important"]09[/TD]
[TD="class: content, bgcolor: initial !important"]If (rid.HasRows) Then[/TD]
[/TR]
[/TABLE]
[TABLE="width: 0"]
[TR="bgcolor: initial !important"]
[TD="class: number, bgcolor: initial !important"]10[/TD]
[TD="class: content, bgcolor: initial !important"]ComboBox3.Text = rid(2)[/TD]
[/TR]
[/TABLE]
[TABLE="width: 0"]
[TR="bgcolor: initial !important"]
[TD="class: number, bgcolor: initial !important"]11[/TD]
[TD="class: content, bgcolor: initial !important"]MsgBox("Section Already Exist", MsgBoxStyle.Critical, "Error")[/TD]
[/TR]
[/TABLE]
[TABLE="width: 0"]
[TR="bgcolor: initial !important"]
[TD="class: number, bgcolor: initial !important"]12[/TD]
[TD="class: content, bgcolor: initial !important"]ComboBox3.SelectedIndex = -1[/TD]
[/TR]
[/TABLE]
[TABLE="width: 0"]
[TR="bgcolor: initial !important"]
[TD="class: number, bgcolor: initial !important"]13[/TD]
[TD="class: content, bgcolor: initial !important"]End If[/TD]
[/TR]
[/TABLE]
[TABLE="width: 0"]
[TR="bgcolor: initial !important"]
[TD="class: number, bgcolor: initial !important"]14[/TD]
[TD="class: content, bgcolor: initial !important"]End If[/TD]
[/TR]
[/TABLE]
[TABLE="width: 0"]
[TR="bgcolor: initial !important"]
[TD="class: number, bgcolor: initial !important"]15[/TD]
[TD="class: content, bgcolor: initial !important"]End Sub[/TD]
[/TR]
[/TABLE]
i think the problem is in this part "If ComboBox3.Text = "'" Then" i just don't know how to manipulate combobox when the event is validating...please help me