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
Copyright © dotNetHell.it 2002-2025
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5