voorraad beheer maken

'Knop aanmaken
Protected Sub drankenKnop_Click(ByVal sender As Object, ByVal e As EventArgs) Handles drankenKnop.Click
    Dim myButton As New Button()
    myButton.Text = "Cola"
    myButton.ID = colaKnop
    Me.Controls.Add(myButton)
End Sub

'Klik op de colaKnop
Protected Sub colaKnop_Click(ByVal sender As Object, ByVal e As EventArgs) Handles colaKnop.Click
    'verbinding met DB maken
    'gegevens ophalen met een gelijkaardige query
    Dim strQuery As String = "SELECT prijs FROM dranken WHERE naam = 'Cola'"
    'Terwijl de gegevens gelezen worden elk gelezen item toevoegen aan de listbox
    'myReader is een DataReader
    While (myReader.Read())
        ListBox.Items.Add(myReader.GetValue(0).ToString())
    End While
End Sub

'Knop aanmaken
Protected Sub drankenKnop_Click(ByVal sender As Object, ByVal e As EventArgs) Handles drankenKnop.Click
    Dim myButton As New Button()
    myButton.Text = "Cola"
    myButton.ID = colaKnop
    Me.Controls.Add(myButton)
End Sub
 
'Klik op de colaKnop
Protected Sub colaKnop_Click(ByVal sender As Object, ByVal e As EventArgs) Handles colaKnop.Click
    'verbinding met DB maken
    'gegevens ophalen met een gelijkaardige query
    Dim strQuery As String = "SELECT prijs FROM dranken WHERE naam = 'Cola'"
    'Terwijl de gegevens gelezen worden elk gelezen item toevoegen aan de listbox
    'myReader is een DataReader
    While (myReader.Read())
        ListBox.Items.Add(myReader.GetValue(0).ToString())
    End While
End Sub