please help me with this error
-
This is the Error ************ Error 2 Argument not specified for parameter 'ConPassword' of 'Public Sub addNewAdmin(Email As String, IDNumber As String, Title As String, Surname As String, Name As String, Occupation As String, Cell As String, Telephone As String, Password As String, ConPassword As String)'. C:\FinalTimeSheet\UserAdmin.aspx.vb 9 C:\FinalTimeSheet\ ********* This is my code *********** Public Sub addNewAdmin(ByVal Email As String, ByVal IDNumber As String, ByVal Title As String, ByVal Surname As String, ByVal Name As String, ByVal Occupation As String, ByVal Cell As String, ByVal Telephone As String, ByVal Password As String, ByVal ConPassword As String) Dim Sql As String Dim obj As Datalayer.Database = New Datalayer.Database Sql = "insert into UserAdministration (E_mail,Id_Number,Title,Surname,Name,Occupation,Mobile_Number,Telephone,Password,Confirm_Password)" & _ " Values('" & Email & "','" & IDNumber & "','" & Title & "','" & Surname & "','" & Name & "', '" & Occupation & "', '" & Cell & "','" & Telephone & "','" & Password & "','" & ConPassword & "')" obj.Execute(Sql) End Sub ************* Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSave.Click Dim ds As New Data.DataSet Dim Obj As Businesslayer.TimeSheet = New Businesslayer.TimeSheet Obj.addNewAdmin(txtEmail.Text, txtIdNumber.Text, txtTitle.Text, txtSurname.Text, txtOccupation.Text, txtCell.Text, txtTelephone.Text, txtPassword.Text, txtConPassword.Text) If txtPassword.Text <> txtConPassword.Text Then MsgBox("Passwords do not match") txtPassword.Focus() Exit Sub Else SaveData() End If End Sub ************* oga m
-
This is the Error ************ Error 2 Argument not specified for parameter 'ConPassword' of 'Public Sub addNewAdmin(Email As String, IDNumber As String, Title As String, Surname As String, Name As String, Occupation As String, Cell As String, Telephone As String, Password As String, ConPassword As String)'. C:\FinalTimeSheet\UserAdmin.aspx.vb 9 C:\FinalTimeSheet\ ********* This is my code *********** Public Sub addNewAdmin(ByVal Email As String, ByVal IDNumber As String, ByVal Title As String, ByVal Surname As String, ByVal Name As String, ByVal Occupation As String, ByVal Cell As String, ByVal Telephone As String, ByVal Password As String, ByVal ConPassword As String) Dim Sql As String Dim obj As Datalayer.Database = New Datalayer.Database Sql = "insert into UserAdministration (E_mail,Id_Number,Title,Surname,Name,Occupation,Mobile_Number,Telephone,Password,Confirm_Password)" & _ " Values('" & Email & "','" & IDNumber & "','" & Title & "','" & Surname & "','" & Name & "', '" & Occupation & "', '" & Cell & "','" & Telephone & "','" & Password & "','" & ConPassword & "')" obj.Execute(Sql) End Sub ************* Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSave.Click Dim ds As New Data.DataSet Dim Obj As Businesslayer.TimeSheet = New Businesslayer.TimeSheet Obj.addNewAdmin(txtEmail.Text, txtIdNumber.Text, txtTitle.Text, txtSurname.Text, txtOccupation.Text, txtCell.Text, txtTelephone.Text, txtPassword.Text, txtConPassword.Text) If txtPassword.Text <> txtConPassword.Text Then MsgBox("Passwords do not match") txtPassword.Focus() Exit Sub Else SaveData() End If End Sub ************* oga m
-
This is the Error ************ Error 2 Argument not specified for parameter 'ConPassword' of 'Public Sub addNewAdmin(Email As String, IDNumber As String, Title As String, Surname As String, Name As String, Occupation As String, Cell As String, Telephone As String, Password As String, ConPassword As String)'. C:\FinalTimeSheet\UserAdmin.aspx.vb 9 C:\FinalTimeSheet\ ********* This is my code *********** Public Sub addNewAdmin(ByVal Email As String, ByVal IDNumber As String, ByVal Title As String, ByVal Surname As String, ByVal Name As String, ByVal Occupation As String, ByVal Cell As String, ByVal Telephone As String, ByVal Password As String, ByVal ConPassword As String) Dim Sql As String Dim obj As Datalayer.Database = New Datalayer.Database Sql = "insert into UserAdministration (E_mail,Id_Number,Title,Surname,Name,Occupation,Mobile_Number,Telephone,Password,Confirm_Password)" & _ " Values('" & Email & "','" & IDNumber & "','" & Title & "','" & Surname & "','" & Name & "', '" & Occupation & "', '" & Cell & "','" & Telephone & "','" & Password & "','" & ConPassword & "')" obj.Execute(Sql) End Sub ************* Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSave.Click Dim ds As New Data.DataSet Dim Obj As Businesslayer.TimeSheet = New Businesslayer.TimeSheet Obj.addNewAdmin(txtEmail.Text, txtIdNumber.Text, txtTitle.Text, txtSurname.Text, txtOccupation.Text, txtCell.Text, txtTelephone.Text, txtPassword.Text, txtConPassword.Text) If txtPassword.Text <> txtConPassword.Text Then MsgBox("Passwords do not match") txtPassword.Focus() Exit Sub Else SaveData() End If End Sub ************* oga m
Count the parameters in the method signature, then in the code calling the method. When you have spotted that the number of paramteres doesn't match, check the parameters one by one until you spot the one that you have forgotten.
--- single minded; short sighted; long gone;