Visual Basic

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