Imports MySql.Data.MySqlClient
Imports System.Text
Imports System.IO
Imports System.ComponentModel
Imports System.Data.OleDb
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Configuration
Public Class Sincronizza_fattura
    Dim Connection_Locale As New MySqlConnection(Conn.Connessione_Dati)
    Dim Connection_Server As New MySqlConnection(Conn.Connessione_Dati_Server)
    Public Sub Client_Server()
        Dim objDataSet As DataSet
        Dim objDataAdapter As New MySqlDataAdapter( _
     "SELECT * from  fattura", Connection_Locale)
        ' Initialize a new instance of the DataSet object...
        objDataSet = New DataSet()
        ' Fill the DataSet object with data...
        objDataAdapter.Fill(objDataSet, "fattura")
        Dim rw As DataRow
        For Each rw In objDataSet.Tables("fattura").Rows
            Connection_Server.Open()
            Dim trans As MySqlTransaction
            trans = Connection_Server.BeginTransaction()
            Try
                Dim par As MySqlParameter = New MySqlParameter()
                Dim cmd As MySqlCommand = New MySqlCommand()
                'Inizia la transazione
                cmd.Transaction = trans
                cmd.Connection = Connection_Server
                cmd.CommandType = CommandType.StoredProcedure
                cmd.CommandText = "fatturaAddUpdate"
                cmd.Parameters.AddWithValue("@_ID", rw(0))
                cmd.Parameters.AddWithValue("@_PartitaIva", rw(1))
                cmd.Parameters.AddWithValue("@_Data_Emissione", ConvertData.GetDataForMySql(rw(2)))
                If rw(3) = vbNull Then  <<<<<<QUI BLOCCA L'APPLICAZIONE CAMPO INTEGER 
                    cmd.Parameters.AddWithValue("@_Nr_Fattura", DBNull.Value)
                Else
                    cmd.Parameters.AddWithValue("@_Nr_Fattura", rw(3))
                End If
                If (rw(4)) = "" Then   <<<<<<QUI BLOCCA L'APPLICAZIONE CAMPO DATA 
                    cmd.Parameters.AddWithValue("@_Data_Fattura", DBNull.Value)
                Else
                    cmd.Parameters.AddWithValue("@_Data_Fattura", ConvertData.GetDataForMySql(rw(4)))
                End If
                cmd.Parameters.AddWithValue("@_Imponibile", CDec(rw(5)))
                cmd.Parameters.AddWithValue("@_Bollo", CDec(rw(6)))
                cmd.Parameters.AddWithValue("@_Iva_Perc", CDec(rw(7)))
                cmd.Parameters.AddWithValue("@_Iva", CDec(rw(8)))
                cmd.Parameters.AddWithValue("@_Ritenuta_Acconto_Perc", CDec(rw(9)))
                cmd.Parameters.AddWithValue("@_Ritenuta_Acconto", CDec(rw(10)))
                cmd.Parameters.AddWithValue("@_Totale", CDec(rw(11)))
                cmd.ExecuteNonQuery()
                'eseguo la transazione
                trans.Commit()
                'MessageBox.Show("Sincronizzazione Eseguita Correttamente", "", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Catch ex As MySqlException
                'se si sono verificati errori faccio il rollback
                trans.Rollback()
                MessageBox.Show("Sincronizzazione fallita" + ControlChars.CrLf + ex.ToString, "", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Finally
                'chiudiamo sempre le connessioni!
                Connection_Server.Close()
            End Try
        Next
    End Sub
End Class