Visual Basic

Private Sub StaffInfoAdapterUpdate(ByVal conxnString As String)
   Dim cmdText As String
   cmdText = "SELECT StaffID, StaffName, blCampuses.CampusName, 
              Designation, DOB, Gender, NIC, DateOfJoining
     FROM tblStaffInfo
     INNER JOIN tblCampuses
     ON tblStaffInfo.CampusID = tblCampuses.CampusID"

     Using Conxn As SqlConnection = New SqlConnection(conxnString)

     Dim adapter As SqlDataAdapter = New SqlDataAdapter(cmdText, Conxn)
     Dim strUpdate As String = "UPDATE StaffName 
         SET StaffName = @StaffName " &  "WHERE StaffID = @StaffID"

            adapter.UpdateCommand = New SqlCommand(strUpdate, Conxn)
            adapter.UpdateCommand.Parameters.Add("@StaffName", SqlDbType.VarChar, 50, "StaffName")

     Dim parameter As SqlParameter =
     adapter.UpdateCommand.Parameters.Add("@StaffID", SqlDbType.Int)

            parameter.SourceColumn = "StaffID"
            parameter.SourceVersion = DataRowVersion.Original

            Dim StaffInfoTable As New DataTable
            Try
                adapter.Fill(StaffInfoTable)
                adapter.Update(StaffInfoTable)
            Catch ex As Exception
                MsgBox("Error: " & ex.Message)
            End Try
        End Using
    End Sub

    Dim conxnString As String = "Data Source=Raabi\SQLEXPRESS; Initial Catalog=StaffReport; Integrated Security=True"
    Dim conxn As New SqlConnection(conxnString)
    Dim cmd As SqlCommand = conxn.CreateCommand()
    Dim StaffInfoDS As New DataSet()
    Dim StaffInfoAdapter As New SqlDataAdapter()
    Dim StaffInfoTbl As DataTable
    
Private Sub PopulateStaffInfoDGV()
        Dim cmdText As String
        cmdText = "SELECT StaffID, StaffName, tblCampuses.CampusName, Designation, DOB, Gender, NIC, DateOfJoining
            FROM tblStaffInfo
            INNER JOIN tblCampuses
            ON tblStaffInfo.CampusID = tblCampuses.CampusID"

        Try
            cmd.CommandText = cmdText
            StaffInfoAdapter.SelectCommand = cmd
            conxn.Open()
            StaffInfoAdapter.Fill(StaffInfoDS, "StaffInfoTbl")
            StaffInfoDGV.DataSource = StaffInfoTbl
            conxn.Close()
        Catch ex As Exception
            MsgBox("Error: " & ex.Message)
        End Try
End Sub

Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
        Dim cmdbldr As New SqlCommandBuilder(StaffInfoAdapter)

        cmdbldr.GetUpdateCommand()
' Causes Error: Dynamic SQL generation is not supported against multiple base tables.

        StaffInfoAdapter.Update(StaffInfoDS, "StaffInfoTbl")
End Sub

Dim cmdText As String
cmdText = "SELECT tblStaffInfo.StaffName, tblCampuses.CampusName,
           LessonPlanning, LessonPreprn, Regularity,
           ((LessonPlanning + LessonPreprn + Regularity)/3 ) AS AvgScore
            FROM tblStaffInfo
            INNER JOIN tblCampuses
            ON tblStaffInfo.CampusID = tblCampuses.CampusID
            INNER JOIN tblStaffEvaluation
            ON tblStaffEvaluation.StaffID = tblStaffInfo.StaffID
            ORDER BY tblStaffInfo.StaffName"