Visual Basic

Public gvYear As String
Public gvFromMonth As Integer
Public gvToMonth As Integer

Private Sub ViewSearches()

    Dim intID As Integer
    Dim strDate As String
    Dim strTxType As String
    Dim strAmt As Decimal
    Dim strCKNum As String
    Dim strDesc As String
    Dim strBal As Decimal
    Dim rowCount As Integer
    Dim maxRowCount As Integer
    Dim emptyStr As String = "  "


    Using conn As New SQLiteConnection($"Data Source = '{gv_dbName}';Version=3;")
        conn.Open()

        Using cmd As New SQLiteCommand("", conn)
            ''Using cmd As SQLiteCommand = New SQLiteCommand($"SELECT * FROM TxData", conn)
            If gvSearchType = "All" Then
                cmd.CommandText = "SELECT * FROM TxData"
            ElseIf gvSearchType = "MoYr" Then
                cmd.CommandText = "SELECT * FROM TxData WHERE txSearchMonth = $gvFromMonth AND txYear = $gvYear "
                cmd.Parameters.AddWithValue("$gvFromMonth", gvFromMonth)
                cmd.Parameters.AddWithValue("$gvYear", gvYear)
            ElseIf gvSearchType = "TxMoYr" Then
                cmd.CommandText = "SELECT * FROM TxData WHERE txType = $gvTxType AND txSearchMonth = $gvFromMonth AND txYear = $gvYear "
                cmd.Parameters.AddWithValue("$gvTxType", gvTxType)
                cmd.Parameters.AddWithValue("$gvFromMonth", gvFromMonth)
                cmd.Parameters.AddWithValue("$gvYear", gvYear)
            ElseIf gvSearchType = "MoRangeYr" Then
                cmd.CommandText = "SELECT * FROM TxData WHERE txSearchMonth >= $gvFromMonth AND txSearchMonth <= $gvToMonth AND txYear = $gvYear "
                cmd.Parameters.AddWithValue("$gvFromMonth", gvFromMonth)
                cmd.Parameters.AddWithValue("$gvToMonth", gvToMonth)
                cmd.Parameters.AddWithValue("$gvYear", gvYear)
            ElseIf gvSearchType = "Year" Then
                cmd.CommandText = "SELECT * FROM TxData WHERE txYear = $gvYear"
                cmd.Parameters.AddWithValue("$gvYear", gvYear)
            End If


            Using rdr As SQLite.SQLiteDataReader = cmd.ExecuteReader
                'dgvTX.DataSource = rdr
                'Statement Above is when DB is bound to dgvTX
                '============================================

                While rdr.Read()
                    intID = CInt((rdr("TID")))
                    strDate = rdr("txSortDate").ToString
                    strTxType = rdr("txType").ToString
                    strAmt = CDec(rdr("txAmount"))
                    strCKNum = rdr("txCKNum").ToString
                    strDesc = rdr("txDesc").ToString
                    strBal = CDec(rdr("txBalance"))
                    dgvTX.Columns(3).DefaultCellStyle.Format = "N"
                    dgvTX.Columns(6).DefaultCellStyle.Format = "N"
                    'dgvTX.Columns(6).DefaultCellStyle.Format = "C"'Adds the $ sign and commas
                    dgvTX.Rows.Add(intID, strDate, strTxType, strAmt, strCKNum, strDesc, strBal, emptyStr)

                    rowCount = rowCount + 1

                End While

                dgvTX.Columns(3).DefaultCellStyle.Format = "N"
                dgvTX.Columns(6).DefaultCellStyle.Format = "N"
                dgvTX.Sort(dgvTX.Columns(0), ListSortDirection.Descending)
            End Using

pd.PrinterSettings.CanDuplex 

pd.PrinterSettings.SupportsColor

OpenFileDialog1.ShowDialog()         

txtPdfPath.Text = OpenFileDialog1.FileName'PDf file uploaded here

'Code to insert Pdf file and after connection has been established

Dim ms1 As New MemoryStream

frmBPA1.Pic1.Image.Save(ms1, frmBPA1.Pic1.Image.RawFormat)     

SqlQuery = "Insert into BPA1 (Pdf1)Values(@Pdf1)"

com.Parameters.AddWithValue("@Pdf1", ms1.ToArray)

com.CommandText = SqlQuery             

com.CommandType = CommandType.Text

SQLCon.Open()

com.ExecuteNonQuery()                     

SQLCon.Close()

'Code to retrieve the pdf file

Dim strQuery As String = "Select df1 from BPA1" 

SQLCon1.Open()                     

comFile = New SqlCommand(strQuery, SQLCon1)                     
comFile.Parameters.AddWithValue("@ReceiptNo", Me.txtReceiptNo.Text.Trim) 
daFile = New SqlDataAdapter(comFile) 
daFile.Fill(taFile)                     
If taFile.Rows(0).Item("Pic1") IsNot DBNull.Value Then                      
Dim img() As Byte   
img = taFile.Rows(0).Item("Pdf1")                         
Dim ms As New MemoryStream(img)                         
If img.Length <> "0" Then                         
Me.Pic1.Image = Image.FromStream(ms)                         
' Me.txtPdfPath.Text = File.FromStream(ms)                                      
End If