Torna al Thread
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