[VB] van listview naar een label

[vanderwal]

Ik zit nu al een hele tijd te hanessen met het volgende:

als ik een regel uit een listbox haalt en deze in een label wil zetten dan komt er in het label het volgende: "Listview { en dan wat er in de list box staat". Heb al op msdn gekeken maar ik kan maar niet tot een oplossing komen. Misschien dat ik iets over het hoofd zie.

Visual Basic .NET:

 Dim items(5) As String 
        Dim x As Integer 
        Dim woord As String 
        woord = listTXT.Items.Item(x).ToString 
        items = woord.Split(";") 
        For x = 0 To UBound(items) 
            If x = 0 Then 
                lblCommandoUitvoer.Text = items(x) 
                lblCommandoUitvoer.Visible = True 
            ElseIf x = 1 Then 
                txtDoorvoerenTitel.Text = items(x) 
            ElseIf x = 2 Then 
                txtDoorvoerenGenre.Text = items(x) 
            ElseIf x = 3 Then 
                txtDoorvoerenJaartal.Text = items(x) 
            ElseIf x = 4 Then 
                txtDoorvoerenregisseur.Text = items(x) 
            End If 
        Next x

[NMe]

offtopic:
Even heel erg offtopic maar je code ziet er veel te ingewikkeld uit voor wat je wil doen. Zo kan het ook.

Visual Basic .NET:

Dim items(5) As String 
Dim woord As String 
woord = listTXT.Items.Item(0).ToString
items = woord.Split(";")

lblCommandoUitvoer.Text = items(0)
lblCommandoUitvoer.Visible = True
txtDoorvoerenTitel.Text = items(1)
txtDoorvoerenGenre.Text = items(2)
txtDoorvoerenJaartal.Text = items(3)
txtDoorvoerenregisseur.Text = items(4)

[vanderwal]

Ja dat ziet er inderdaad beter uit. Thanks!

[KoW]

offtopic:
Nog steeds offtopic, maar misschien is hij niet zeker dat altijd alle 5 de gegevens aanwezig zijn. Dan kun je het evengoed nog op een eenvoudiger manier aanpakken idd)

[RobIII]

Ik zou dan eerder zoiets doen:

Visual Basic .NET:

Dim ctrls() As String = {"lblCommandoUitvoer", "txtDoorvoerenTitel", "txtDoorvoerenGenre", "txtDoorvoerenJaartal", "txtDoorvoerenregisseur"}
Dim items() As String = listTXT.Items.Item(0).ToString.split(";")

For T As Integer = 0 To ctrls.Length - 1
      Me.Controls(ctrls(T)).Text = items(T)
Next
lblCommandoUitvoer.Visible = True

[ Voor 5% gewijzigd door RobIII op 08-09-2007 18:10 ]

[NMe]

RobIII schreef op zaterdag 08 september 2007 @ 18:09:
Ik zou dan eerder zoiets doen:

offtopic:
Jij kent dan ook daadwerkelijk VB.NET.

[vanderwal]

Heb het al klaar heb ipv .ToString heb ik .Text gebruikt

[RobIII]

vanderwal schreef op zaterdag 08 september 2007 @ 18:28:
Heb het al klaar heb ipv .ToString heb ik .Text gebruikt

Euh... .ToString is een method, .Text is een property

[vanderwal]

RobIII schreef op zaterdag 08 september 2007 @ 19:01:
[...]

Euh... .ToString is een method, .Text is een property

ik kreeg in het label eerst steeds het volgende:

"Listview { en dan wat er in de list box staat"

Nu heb ik:

Visual Basic .NET:

    Private Sub SplittenRegelsListbox()
        Dim ctrls() As String = {"lblCommandoUitvoer", "txtDoorvoerenTitel", "txtDoorvoerenGenre", "txtDoorvoerenJaartal", "txtDoorvoerenregisseur"}
        Dim items() As String = listTXT.Items.Item(0).Text.Split(";")

        For T As Integer = 0 To ctrls.Length - 1
            Me.Controls(ctrls(T)).Text = items(T)
        Next
        lblCommandoUitvoer.Visible = True
    End Sub

.

[vanderwal]

Dacht dat het opgelost was maar nu stuit ik op een eigenaardig probleem.

Vanuit listbox wil ik de regels 1 voor 1 laten invoegen in een database. Dit gebeurd met een druk op een knop. De eerste regel invoegen gaat prima. De 2e regel geeft echter problemen. De variabelen krijgen wel de waardes van de 2e regel en deze variabelen gebruik ik weer om de StoredProcedure uit te voeren.

Het lijkt er echter op dat deze waardes niet goed mee gegeven worden omdat hij weer de eerste regel gaat invoegen. Als ik ga debuggen met StepInto dan geeft hij wel aan dat de waardes veranderd zijn maar hij voert dus niet de nieuwe waardes uit maar nog steeds de oude. Ik laat het nu ook in een messagebox zien wat de waardes zijn en hier kloppen ze ook gewoon.

Visual Basic .NET:

Private Sub btnDoorvoeren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDoorvoeren.Click
        ToevoegenDB(lblCommandoUitvoer.Text)
        listTXT.Items.Item(0).Remove()
        listTXT.Refresh()
        If listTXT.Items.Count > 0 Then
            SplittenRegelsListbox()
        Else
            intregel = 0
        End If
    End Sub

Visual Basic .NET:

Private Sub ToevoegenDB(ByVal Commando As String)
        Dim genre As String
        Dim titel As String
        Dim jaartal As Integer
        Dim regisseur As String
        genre = txtDoorvoerenGenre.Text
        titel = txtDoorvoerenTitel.Text
        jaartal = txtDoorvoerenJaartal.Text
        regisseur = txtDoorvoerenregisseur.Text
        Try
            With objcommand
                .CommandType = CommandType.StoredProcedure
                .Connection = objconnection
                .CommandText = Commando & "querie"
            End With
            If objcommand.Connection.State = ConnectionState.Closed Then
                objcommand.Connection.Open()
            End If
            If Commando = "INSERT" Then

               
                With objcommand
                    .Parameters.AddWithValue("@titel", titel)
                    .Parameters.AddWithValue("@Jaartal", jaartal)
                    .Parameters.AddWithValue("@Genre", genre)
                    .Parameters.AddWithValue("@Regisseur", regisseur)
                End With
            ElseIf Commando = "UPDATE" Then
                With objcommand
                    .Parameters.AddWithValue("titel", txtDoorvoerenTitel.Text)
                    .Parameters.AddWithValue("Genre", txtDoorvoerenGenre.Text)
                    .Parameters.AddWithValue("Jaartal", txtDoorvoerenJaartal.Text)
                    .Parameters.AddWithValue("Regisseur", txtDoorvoerenregisseur.Text)
                    .Parameters.AddWithValue("Filmid", txthidingid.Text)
                End With
            Else
                objcommand.Parameters.AddWithValue("Filmid", txthidingid.Text)
            End If
            MessageBox.Show(genre & "         " & titel & _
            "      " & jaartal & "        " & regisseur)
            objcommand.ExecuteNonQuery()
            dtgFilms.Refresh()
            objCurrencyManager.Position = objCurrencyManager.Count - 1
            objcommand.Connection.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

[vanderwal]

Okay dit probleem is ook al weer opgelost,

na de regel waar objcommand.ExecuteNonQuery() staat

moest nog even de objcommand geleegt worden

objcommand.Parameters.Clear()