Public Sub EditEmployeeNumber(ByVal yyyy As String, ByVal xxxx As String)
Dim strCmd As String = "Insert into Employee " & _
"Select distinct @Py,Surname from Employee where EmployeeNo=@Px;" & _
"update employeeBenefits set EmployeeNo= @Py where EmployeeNo= @Px;" & _
"update EmployeeCareert set EmployeeNo= @Py where EmployeeNo= @Px;" & _
"delete from Employee where EmployeeNo= @Px;"
Using conn As New SqlConnection(getVHRSConstring())
Using cmd As New SqlCommand(strCmd, conn)
conn.Open()
cmd.Parameters.AddWithValue("@Py", yyyy)
cmd.Parameters.AddWithValue("@Px", xxxx)
cmd.ExecuteNonQuery()
End Using
End Using
End Sub