Visual Basic

If (itemIndex.Count > 0) Then
  dialogPos = 0.0
  dialogStep = 100 / itemIndex.Count - 1
  dialogWait.UpdateProgress(1, "Located " & itemIndex.Count & " product items(s)")
End If

rC = 0
For Each i As itemIndex In itemIndex

  dialogPos += dialogStep
  Dim m_dialogPos As Integer = Convert.ToInt32(Math.Round(dialogPos))
  m_dialogPos = If(m_dialogPos > -1, m_dialogPos, 0)
  dialogWait.UpdateProgress(m_dialogPos, "Calculating profit for " & i.ItemNumber & "  (" & rC & " of " & itemIndex.Count & ")  ")

  load_SR_Invoice_Profit(connection, i.ItemNumber, profits)
  rC += 1

Next
<pre>

Dim reader As System.Data.OleDb.OleDbDataReader = command.ExecuteReader()
            While reader.Read()

                Dim m_itemNumber As String = reader.GetValue(0)
                If Not p.Contains(New itemIndex() With {.ItemNumber = m_itemNumber}) Then

                    p.Add(New itemIndex() With
                    {
                        .ItemNumber = reader.GetValue(0)
                    })

                End If

            End While

" SELECT " & _
        " DISTINCT FITEMNO " & _
        " FROM " & _
        "( " & _
        "   SELECT " & _
        "   h.FITEMNO " & _
        "   FROM ARTRS01H.dbf h " & _
        "   WHERE h.FINVNO = @FINVNO " & _
        "   UNION ALL " & _
        "   SELECT " & _
        "   v.FITEMNO " & _
        "   FROM ARTRS01.dbf v " & _
        "   WHERE v.FINVNO = @FINVNO " & _
        ") " & _
        " GROUP BY FITEMNO "

Private Sub txtPaese_Leave_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtPaese.Leave
       Try

           Dim cn As New OdbcConnection("dsn=PHOENIXDB;uid=SYSDBA;pwd=masterkey;")
           Dim com As String = txtPaese.Text
           Dim strCn As String = "Select distinct * from TBL_COMUNI where COMUNE='" & com & "'"
           Dim cmd As OdbcCommand = New OdbcCommand(strCn)
           Dim leggi As OdbcDataReader
           Dim daSelPaese As New OdbcDataAdapter
           Dim dsSelPaese As New DataSet


           cn.Open()

           daSelPaese.SelectCommand = cmd
           daSelPaese.SelectCommand.Connection = cn
           daSelPaese.Fill(dsSelPaese, "TBL_COMUNI")


           leggi = cmd.ExecuteReader


           Me.txtCAP.Text = leggi.Item(11)
           Me.txtPR.Text = leggi.Item(4)

           leggi.Close()
           cn.Close()

       Catch ex As Exception
           MsgBox("Error: " & ex.Source & ": " & ex.Message, MsgBoxStyle.OkOnly, "Connection Error !!")
       End Try
   End Sub

Private EventDel_CellsChange As Excel.DocEvents_ChangeEventHandler

        Public Sub UseDelegate()


            'Get references to the the worksheet.
            xlBook = excelWB
            xlSheet1 = xlBook.Worksheets(2)
            CType(xlSheet1, Excel._Worksheet).Activate()
            'Add an event handler for the Change event for Worksheet
            'object.
            EventDel_CellsChange = New Excel.DocEvents_ChangeEventHandler( _
                  AddressOf CellsChange)
            AddHandler xlSheet1.Change, EventDel_CellsChange

            'Make Excel visible and give the user control.
            xlApp.Visible = True
            xlApp.UserControl = True
        End Sub

        Private Sub CellsChange(ByVal Target As Excel.Range)
            'This is called when a cell or cells on a worksheet are changed.
            MsgBox("Restrating Of Application Required")

        End Sub

Dim reader As Data.OracleClient.OracleDataReader
Dim bufferSize As Integer = 1024 * 2000
Dim outChar(bufferSize - 1) As Char

Using connection As New Data.OracleClient.OracleConnection(connectString)
    Dim command As New Data.OracleClient.OracleCommand(statement)
    command.Connection = connection

    connection.Open()
    reader = command.ExecuteReader(System.Data.CommandBehavior.SequentialAccess)

    Do While reader.Read()
        ' Reset the starting char for a new CLOB
        startIndex = 0
        Array.Clear(outChar, 0, bufferSize)

        ' Read chars into outChar() and retain the number of bytes returned
        retval = reader.GetChars(0, startIndex, outChar, 0, bufferSize)
        Do Until retval = 0
            rawStr = New String(outChar)
            rawStr = rawStr.Replace(Chr(0), "")

            myxml.WriteRaw(rawStr)
            myxml.Flush()

            startIndex += rawStr.Length
            Array.Clear(outChar, 0, bufferSize)
            retval = reader.GetChars(0, startIndex, outChar, 0, bufferSize)
        Loop
    Loop
End Using