Ici je déclare 'mesLots' :
Private _mesLots As New List(Of Lot)
Constructeur de la classe Lot :
1 2 3 4 5 6 7 8 9 10 11 12 13 14
| Public Sub New(ByVal IdInitial As Integer, ByVal codeMedicamentInitial As String, ByVal IdVisiteurInitial As String, ByVal IdContenirInitial As String,
ByVal NomLaboInitial As String, ByVal LibelleInitial As String, ByVal QuantiteInitial As String, ByVal DatePeremptionInitial As Date,
ByVal DateOffreInitial As Date, ByVal DateAjoutInitial As Date)
Me.Lot_Id = IdInitial
Me.Lot_Code_Medicament = codeMedicamentInitial
Me.Lot_Id_Visiteur = IdVisiteurInitial
Me.Lot_Id_Contenir = IdContenirInitial
Me.Lot_Nom_Labo = NomLaboInitial
Me.Lot_Libelle = LibelleInitial
Me.Lot_Quantite = QuantiteInitial
Me.Lot_DatePeremption = DatePeremptionInitial
Me.Lot_DateOffre = DateOffreInitial
Me.Lot_DateAjout = DateAjoutInitial
End Sub |
Ici je remplie la collection :
1 2 3 4 5 6 7 8 9 10
| sqlcom = "SELECT * FROM lot_medicament"
Try
Dim cmd As New MySqlCommand(sqlcom, connexionSql)
sqldr = cmd.ExecuteReader
While sqldr.Read()
mesLots.Add(New Lot(sqldr.GetString("LOT_ID"), sqldr.GetString("VIS_ID"), sqldr.GetString("REF_ID"), sqldr.GetString("TYC_CODE"), sqldr.GetString("LAB_NOM"), sqldr.GetString("LOT_LIBELLE"), sqldr.GetString("LOT_QUANTITE"), sqldr.GetString("LOT_DATEPEREMPTION"), sqldr.GetString("LOT_DATEOFFRE"), sqldr.GetString("LOT_DATEAJOUT")))
End While
sqldr.Close()
Catch ex As Exception
End Try |
Partager