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