Torna al Thread

Dim path As String 'Dim path1 As String path = Server.MapPath("~/") FileUpload1.SaveAs(path + FileUpload1.FileName) 'path1 = path + FileUpload1.FileName Dim comm As OleDb.OleDbCommand = New OleDb.OleDbCommand("SELECT * FROM [Report$];") Dim excelLettura As OleDb.OleDbDataReader 'Imposto la stringa di connessione Using conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & (path + FileUpload1.FileName) & ";Extended Properties=Excel 8.0;") Try 'apro la connessione ed eseguo la query conn.Open() comm.Connection = conn excelLettura = comm.ExecuteReader 'per ogni record che trovo visualizzo a video il risultato Dim OrdineScarico As Integer = 0 Dim Data As Date Dim CodiceDitta As String = "" Dim Dislocazione As String = "" Dim Ditta As String = "" Dim CODART As String = "" Dim Denominazione As String = "" Dim UM As String = "" Dim Quantita As Decimal Dim i As Integer = 0 Dim sInizio As String = Nuc Dim sFine As String sFine = sInizio.Replace("-", "") While (excelLettura.Read()) If i >= 2 Then CODART = excelLettura(0).ToString Denominazione = excelLettura(1).ToString UM = excelLettura(2).ToString Quantita = excelLettura(3).ToString OrdineScarico = excelLettura(5).ToString Data = excelLettura(6).ToString CodiceDITTA = excelLettura(7).ToString Dislocazione = excelLettura(8).ToString DITTA = excelLettura(9).ToString Connection.Open() Dim trans As MySqlTransaction trans = Connection.BeginTransaction() Try Dim par As MySqlParameter = New MySqlParameter() Dim cmd As MySqlCommand = New MySqlCommand() 'Inizia la transazione cmd.Transaction = trans cmd.Connection = Connection cmd.CommandType = CommandType.StoredProcedure cmd.CommandText = "scarico_dettaglio_veAddUpdate" cmd.Parameters.AddWithValue("@_OrdineScarico", OrdineScarico) cmd.Parameters.AddWithValue("@_Data", Data) cmd.Parameters.AddWithValue("@_CODART", sFine) cmd.Parameters.AddWithValue("@_Denominazione", Denominazione) cmd.Parameters.AddWithValue("@_UnitaMisura", UM) cmd.Parameters.AddWithValue("@_Quantita", Quantita) cmd.Parameters.AddWithValue("@_Anno", txtEF.Text) cmd.ExecuteNonQuery() Dim query As String = "UPDATE materiali_ve SET UnitaMisura=@UnitaMisura WHERE CODART='" & CODART & "'" Using cmd1 As MySqlCommand = New MySqlCommand(query) cmd1.Parameters.AddWithValue("@UnitaMisura", UM) cmd1.Connection = Connection 'Connection.Open() cmd1.ExecuteNonQuery() 'Connection.Close() End Using 'eseguo la transazione trans.Commit() 'ProgressBar1.Increment(excelLettura.Read.ToString.Count) 'Label1.Text = ProgressBar1.Value & "%" 'ImageMsg.ImageUrl = "~/Images/MsgBoxInfo.png" 'lblTitolo.Text = "Conferma Eliminazione" 'lblTitolo.Font.Name = "Tahoma" 'lblTitolo.Font.Size = 12 'lblMessaggio.Text = "Operazione Effettuata con Successo " 'lblMessaggio.Font.Name = "Tahoma" 'lblMessaggio.Font.Size = 12 'MPEMsgBoxYesNo.Show() Catch ex As MySqlException 'se si sono verificati errori faccio il rollback trans.Rollback() 'MessageBox.Show("Aggiornamento fallito" + ControlChars.CrLf + ex.ToString, "", MessageBoxButtons.OK, MessageBoxIcon.Warning) Finally 'chiudiamo sempre le connessioni! Connection.Close() End Try 'ProgressBar1.Value += 1 End If i += 1 End While comm.Dispose() Catch ex As Exception ImageMsg.ImageUrl = "~/Images/MsgBoxWarning.png" lblTitolo.Text = "Conferma Eliminazione" lblTitolo.Font.Name = "Tahoma" lblTitolo.Font.Size = 12 lblMessaggio.Text = "Operazione non Effettuata " lblMessaggio.Font.Name = "Tahoma" lblMessaggio.Font.Size = 12 MPEMsgBoxYesNo.Show() Finally If (conn.State = ConnectionState.Open) Then conn.Close() End Try End Using 'Dim path As String Dim file_name As String = FileUpload1.FileName path = Server.MapPath("~/" + FileUpload1.FileName) Dim file As FileInfo = New FileInfo(path) If file.Exists Then file.Delete() 'lbl_output.Text = (file_name + " file deleted successfully") 'lbl_output.ForeColor = Color.Green Else 'lbl_output.Text = (file_name + " This file does not exists ") 'lbl_output.ForeColor = Color.Red End If
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5