Visual Basic

Private Sub DataGridView1_CellValueChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellValueChanged
        If DataGridView1.CurrentCell.Value Is Nothing Then
            '// Do Nothing
        Else
            Try
                OpenConnection()
                Dim Sb1 As New StringBuilder
                Sb1.Append("SELECT * FROM stockitems WHERE ProductName='" & Me.DataGridView1.CurrentRow.Cells(1).Value & "'")
                Dim dbcommand As New MySqlCommand
                dbcommand.Connection = conn
                dbcommand.CommandText = Sb1.ToString
                Dim dbread As MySqlDataReader = dbcommand.ExecuteReader
                While dbread.Read
                    DataGridView1.CurrentRow.Cells(0) = dbread("ProductId")
                    DataGridView1.CurrentRow.Cells(2) = dbread("AvailableQty")
                    DataGridView1.CurrentRow.Cells(3) = dbread("Rate")
                End While
                dbread.Close()
            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                CloseConnection()
            End Try
        End If
    End Sub

Private Sub DataGridView1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DataGridView1.KeyDown
        If e.KeyCode = Keys.Down Then
            Try
                OpenConnection()
                Dim Sb1 As New StringBuilder
                Sb1.Append("SELECT * FROM stockitems WHERE ProductName='" & Me.DataGridView1.CurrentRow.Cells(1).Value & "'")
                Dim dbcommand As New MySqlCommand
                dbcommand.Connection = conn
                dbcommand.CommandText = Sb1.ToString
                Dim dbread As MySqlDataReader = dbcommand.ExecuteReader
                While dbread.Read
                    DataGridView1.CurrentRow.Cells(0) = dbread("ProductId")
                    DataGridView1.CurrentRow.Cells(2) = dbread("AvailableQty")
                    DataGridView1.CurrentRow.Cells(3) = dbread("Rate")
                End While
                dbread.Close()
            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                CloseConnection()
            End Try
        End If
    End Sub

' Define DBase connection
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\DataStore;Extended Properties=DBASE III"
ConnDBF = New ADODB.Connection

' Open DBase database connection
ConnDBF.Open(strConn)
OK = ConnDBF.State

' Initialize recordset
rstGRK = New ADODB.Recordset
rstGRK.CursorType = ADODB.CursorTypeEnum.adOpenStatic

' Get result set
rstGRK.Open(SQLString, ConnDBF)

' Get number of hits
ResultCnt = rstGRK.RecordCount

<pre>SELECT BKL.BkShtName,
       SRC.BookNo,
       SRC.ChapNo,
       SRC.VerseNo,
       SRC.VerseText1,
       SRC.VerseText2
FROM BIENBVS SRC,
     BIBKLST BKL
WHERE SRC.BookNo = BKL.BookNumber
      AND (SRC.VerseText1 LIKE '%frank jones%'
           OR SRC.VerseText2 LIKE '%frank jones%' )
ORDER BY 2, 3, 4</pre>

Private Function CalculateRoundOffAmount(ByVal autoCalculateRoundOff As Boolean) As Double
        
        Dim result As Double = 0.0
        
        result += CDbl(Me.TbRoundOff.Text)
        Dim roundOff As Double = 0
        Dim roundedOffTo As Double = 0
        If autoCalculateRoundOff = True Then
            roundOff = Math.Ceiling(result) - result
        Else
            roundOff = Me.TbRoundOff.Text
        End If
        roundedOffTo = result + roundOff
        Me.TbRoundOff.Text = roundOff
        Me.TbInvoiceValue.Text = roundedOffTo
        Return roundedOffTo
    End Function