please help me which this code
-
Can you please help me with my 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 ************* Code for Button Click ************ 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
-
Can you please help me with my 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 ************* Code for Button Click ************ 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
just a quick glance...is the txtConPassword.Text empty? << >>
-
Can you please help me with my 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 ************* Code for Button Click ************ 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