Look at this please...!!!!

Question

hi all again, i need some help with this code, which fills some comboboxes depending on the id, For example if in the Country combobox the Country"Greece" ,which has the id 1, then in the State combobox, all the states of Greece are shown, and show on..

CODE:

Imports System.Data.OleDb

Public Class Teachers

Sub Country_ComboFill()

Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\My Documents\School.mdb"

Dim conn As New OleDbConnection(connString)

 

Dim strSQL As String = "SELECT * FROM Countries"

Dim da As New OleDbDataAdapter(strSQL, conn)

Dim ds As New DataSet

Dim dr As DataRow

da.Fill(ds, "Countries")

For Each dr In ds.Tables("Countries").Rows

cmbCountry.Items.Add(dr.Item("CountryID") & "-" & dr.Item("CountryName"))

Next

conn.Close()

ds.Dispose()

da.Dispose()

End Sub

Sub State_ComboFill(ByVal CountryID As Integer)

Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\My Documents\School.mdb"

Dim conn As New OleDbConnection(connString)

Dim strSQL As String = "SELECT * FROM States Where CountryID=" & CountryID & ""

Dim da As New OleDbDataAdapter(strSQL, conn)

Dim ds As New DataSet

Dim dr As DataRow

da.Fill(ds, "States")

cmbState.Text = ""

cmbState.Items.Clear()

For Each dr In ds.Tables("States").Rows

cmbState.Items.Add(dr.Item("StateID") & "-" & dr.Item("StateName"))

Next

conn.Close()

ds.Dispose()

da.Dispose()

End Sub

Sub Municipality_ComboFill(ByVal StateID As Integer)

Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\My Documents\School.mdb"

Dim conn As New OleDbConnection(connString)

Dim strSQL As String = "SELECT * FROM Municipalities Where StateID='" & StateID & "'"

Dim da As New OleDbDataAdapter(strSQL, conn)

Dim ds As New DataSet

Dim dr As DataRow

da.Fill(ds, "Municipalities")

cmbMunicipality.Text = ""

cmbMunicipality.Items.Clear()

For Each dr In ds.Tables("Municipalities").Rows

cmbState.Items.Add(dr.Item("MunicipalityID") & "-" & dr.Item("MunicipalityName"))

Next

conn.Close()

ds.Dispose()

da.Dispose()

End Sub

Sub Area_ComboFill()

Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\My Documents\School.mdb"

Dim conn As New OleDbConnection(connString)

 

Dim strSQL As String = "SELECT * FROM Areas"

Dim da As New OleDbDataAdapter(strSQL, conn)

Dim ds As New DataSet

da.Fill(ds, "Areas")

cmbArea.DataSource = ds.Tables("Areas")

cmbArea.DisplayMember = "AreaName"

 

End Sub

Sub Teacher()

Dim fname As String = txtFname.Text

Dim lname As String = txtLName.Text

Dim FatName As String = txtFathersName.Text

Dim Country As String = cmbCountry.Text

Dim State As String = cmbState.Text

Dim municipality As String = cmbMunicipality.Text

Dim area As String = cmbArea.Text

Dim zip As String = txtZIP.Text

Dim address As String = txtAddress.Text

Dim addressno As String = txtAddressNo.Text

Dim phone As String = txtPhone.Text

Dim phone2 As String = txtPhone2.Text

Dim email As String = txtEmail.Text

Dim photo As String = txtphoto.Text

Dim day As String = Date.Now.Date

Dim time As String = Date.Now.TimeOfDay.ToString

Dim sex As String = cmbSex.Text

 

Dim con As OleDbConnection

Dim da As New OleDbDataAdapter

con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\My Documents\School.mdb")

con.Open()

Dim Trans As OleDbTransaction = con.BeginTransaction

Dim command As New OleDbCommand

command.Connection = con

command.Transaction = Trans

command.CommandText = "INSERT INTO Teacher(FirstName, LastName, FathersName, Sex, Country, State, Municipality, Area, Zip, Address, AddressNo, Phone, Phone2, Email, Photograph) values ('" & fname & "','" & lname & "','" & FatName & "','" & sex & "','" & Country & "','" & State & "','" & municipality & "','" & area & "','" & zip & "','" & address & "','" & addressno & "','" & phone & "','" & phone2 & "','" & email & "','" & photo & "')"

Try

da.InsertCommand = command

da.InsertCommand.ExecuteNonQuery()

Trans.Commit()

fname = ""

lname = ""

MessageBox.Show("Saved succesfully", "Adding Student Info Data", MessageBoxButtons.OK, MessageBoxIcon.Information)

Catch ex As Exception

Trans.Rollback()

MessageBox.Show(ex.Message)

Exit Sub

End Try

con.Close()

command.Dispose()

da.Dispose()

Trans.Dispose()

End Sub

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

Teacher()

End Sub

Private Sub Teachers_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Country_ComboFill()

'State_ComboFill()

'Municipality_ComboFill()

Area_ComboFill()

End Sub

Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click

Me.Close()

End Sub

End Class

THIS IS THE ERROR :

Error 1 Argument not specified for parameter 'CountryID' of 'Public Sub State_ComboFill(CountryID As Integer)'. C:\Documents and Settings\Administrator\Desktop\Projects\School\School\School\Teachers.vb 163 9 School