Torna al Thread

Public Class StampaConsegne Dim Sql As String Function DettaglioConsegna(ByVal INTCONSPADRE As String, ByVal INTCONSDATA As Date, ByVal INTCONSDA As String) As List(Of Consegna) Dim conn As New OracleConnection(ConfigurationManager.ConnectionStrings("ZRED").ConnectionString) Dim stpListaConsegna As New List(Of Consegna) If INTCONSPADRE <> "" And INTCONSDATA <> "" And INTCONSDA <> "" Then Sql = "Select INTCONS, INTCONSPADRE, INTCONSCRD, INTCONSDATA, INTCONSCHIUSA, INTCONSSPUNTA, INTCONSDA, INTCONSNOTE, ID_U_AGG, DT_U_AGG " Sql += " from WSYS_INTCONSEGNE " Sql += " where INTCONSPADRE = :INTCONSPADRE AND " Sql += " INTCONSDATA = :INTCONSDATA AND " Sql += " INTCONSDA = :INTCONSDA " Dim cmd As New OracleCommand(Sql, conn) cmd.Parameters.AddWithValue(":INTCONSPADRE", INTCONSPADRE) cmd.Parameters.AddWithValue(":INTCONSDATA", INTCONSDATA) cmd.Parameters.AddWithValue(":INTCONSDA", INTCONSDA) Try conn.Open() Dim rStpConsegna As OracleDataReader rStpConsegna = cmd.ExecuteReader() While rStpConsegna.Read Dim consegna As New Consegna(rStpConsegna.GetValue(0), rStpConsegna.GetValue(1) & "", _ rStpConsegna.GetValue(2), rStpConsegna.GetValue(3), rStpConsegna.GetValue(4), _ rStpConsegna.GetValue(5), rStpConsegna.GetValue(6), rStpConsegna.GetValue(7), _ rStpConsegna.GetValue(8), rStpConsegna.GetValue(9)) stpListaConsegna.Add(CreaConsegna(rStpConsegna)) End While Catch ex As Exception End Try Return stpListaConsegna End If End Function Private Function CreaConsegna(ByVal dr As OracleDataReader) As Consegna Dim Consegna As New Consegna() Consegna.INTCONS = dr("INTCONS") & "" Consegna.INTCONSCHIUSA = dr("INTCONSCHIUSA") & "" Consegna.INTCONSCRD = dr("INTCONSCRD") & "" Consegna.INTCONSDA = dr("INTCONSDA") & "" Consegna.INTCONSDATA = dr("INTCONSDATA") & "" Consegna.INTCONSNOTE = dr("INTCONSNOTE") & "" Consegna.INTCONSPADRE = dr("INTCONSPADRE") & "" Consegna.INTCONSSPUNTA = dr("INTCONSSPUNTA") & "" Consegna.ID_U_AGG = dr("ID_U_AGG") & "" Consegna.DT_U_AGG = dr("DT_U_AGG") & "" Return Consegna End Function End Class
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5