.NET (Core and Framework)

'save the borrow transaction
    Public Sub SaveBorrowTransaction(ByVal txtBorrowerID As TextBox, ByVal txtLastName As TextBox, _
                                     ByVal txtFirstName As TextBox, ByVal txtMI As TextBox, _
                                    ByVal txtContactNo As TextBox, ByVal cboPosition As ComboBox, _
                                    ByVal txtYear As TextBox, ByVal txtSection As TextBox, _
                                    ByVal txtLibrarianLastName As TextBox, ByVal txtLibarianFirstName As TextBox, _
                                    ByVal txtLibrarianMI As TextBox, ByVal cboNoOfDays As ComboBox, _
                                    ByVal txtTransactionID As TextBox, _
                                    ByVal lvItems As ListView, ByVal con As SqlConnection)
        Try
            Dim dt As New DataTable
            Dim ds As New DataSet
            ds.Tables.Add(dt)
            Dim da As New SqlDataAdapter

            con.Open()
            da = New SqlDataAdapter("Select * from BorrowTransactionTable", con)
            da.Fill(dt)

            Dim dt2 As New DataTable
            Dim ds2 As New DataSet
            ds2.Tables.Add(dt2)
            Dim da2 As New SqlDataAdapter

            da2 = New SqlDataAdapter("Select * from transactionitemstable", con)
            da2.Fill(dt2)


            Dim dt3 As New DataTable
            Dim ds3 As New DataSet
            ds3.Tables.Add(dt3)
            Dim da3 As New SqlDataAdapter

            Dim j As Integer = 0


            While j <> lvItems.Items.Count

                'for borrow transaction////////////////////////////////
                Dim newRow As DataRow = dt.NewRow
                With newRow
                    .Item("txtTransactionID") = txtTransactionID.Text
                    .Item("txtBorrowerID") = txtBorrowerID.Text
                    .Item("txtLibrarianLastName") = txtLibrarianLastName.Text
                    .Item("txtLibrarianFirstName") = txtLibarianFirstName.Text
                    .Item("txtLibrarianMI") = txtLibrarianMI.Text
                    .Item("txtLastName") = txtLastName.Text
                    .Item("txtFirstName") = txtFirstName.Text
                    .Item("txtMI") = txtMI.Text
                    .Item("txtSection") = txtSection.Text
                    .Item("txtYear") = txtYear.Text
                    .Item("txtContactNo") = txtContactNo.Text
                    .Item("txtPosition") = cboPosition.Text
                    .Item("txtItemNO") = lvItems.Items(j).SubItems(0).Text
                    .Item("txtRemarks") = "Borrowed"
                    .Item("intNoDay") = Val(cboNoOfDays.Text)

                    .Item("intQuantity") = 1
                    'update changes to quantity of book catalogue records when borrowing///////////////////

                    da3 = New SqlDataAdapter("Select * from BookCatalogueTable where txtAccessionNo='" & lvItems.Items(j).SubItems(0).Text & "'", con)
                    da3.Fill(dt3)
                    dt3.Rows(0).BeginEdit()
                    dt3.Rows(0).Item("intQuantity") = Val(dt3.Rows(0).Item("intQuantity")) - 1
                    dt3.Rows(0).EndEdit()
                    Dim cb3 As New SqlCommandBuilder(da3)
                    da3.Update(dt3)


                    .Item("dateDateBorrow") = Now.Date
                    .Item("dateDueDate") = Now.AddDays(Val(cboNoOfDays.Text))
                    .Item("dateDateTransaction") = Now.Date
                End With
                dt.Rows.Add(newRow)
                Dim cb As New SqlCommandBuilder(da)
                da.Update(dt)

                'for transaction items//////////////////////////////////////
                Dim newrow2 As DataRow = dt2.NewRow
                With newRow2
                    .Item("txtTransactionNo") = txtTransactionID.Text
                    .Item("txtItemNo") = lvItems.Items(j).SubItems(0).Text
                    .Item("txtItemTitle") = lvItems.Items(j).SubItems(1).Text
                    .Item("txtItemAuthor") = lvItems.Items(j).SubItems(2).Text
                    .Item("txtItemDecription") = lvItems.Items(j).SubItems(3).Text
                    .Item("txtTransactionStatus") = "Borrow"
                End With
                dt2.Rows.Add(newrow2)
                Dim cb2 As New SqlCommandBuilder(da2)
                da2.Update(dt2)

                j = j + 1
            End While

            con.Close()

            MsgBox("Transaction is Complete")

        Catch ex As Exception
            MsgBox(ex.ToString)
            con.Close()
        End Try
    End Sub

Public Sub LoadListViewReturn(ByVal lvReturnList As ListView, ByVal con As SqlConnection)
      Try
          If con.State = ConnectionState.Open Then
              con.Close()
          End If

          Dim dt As New DataTable
          Dim ds As New DataSet
          ds.Tables.Add(dt)
          Dim da As New SqlDataAdapter

          con.Open()
          da = New SqlDataAdapter("Select * from BorrowTransactionTable ", con)
          da.Fill(dt)

          For Each r As DataRow In dt.Rows
              lvReturnList.Items.Add(r("txtTransactionID"))
              lvReturnList.Items(lvReturnList.Items.Count - 1).SubItems.Add(r("txtLastName"))
              lvReturnList.Items(lvReturnList.Items.Count - 1).SubItems.Add(r("txtFirstName"))
              lvReturnList.Items(lvReturnList.Items.Count - 1).SubItems.Add(r("txtMI"))
              lvReturnList.Items(lvReturnList.Items.Count - 1).SubItems.Add(r("txtPosition"))

          Next



          con.Close()

      Catch ex As Exception
          MsgBox(ex.ToString)
          con.Close()
      End Try
  End Sub