Dataset und Listbox

Question

Guten Morgen zusammen,

ich hätte da mal eine Frage. 

Ich habe eine Combobox die ich mit Namen (aus einer Datenbank in ein Dataset geladen) gefüllt. Nun möchte ich wenn ein Name ausgewählt wurde die Adresse ( Straße, Stadt, und Telnr.) in einer Listbox angezeigt wird (untereinander).

mit einer dgv bekomme ich sie nebeneinander hin,

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim connStr As String = "Data Source=wind-pc; Initial Catalog=windDaten; Integrated Security=True"
        Dim conn As New SqlConnection(connStr)
        Dim cmd As New SqlCommand("Adresse", conn)
        cmd.CommandType = CommandType.StoredProcedure


        Dim varName As New SqlParameter("@name", SqlDbType.VarChar)
        varName.Direction = ParameterDirection.Input
        varName.Value = Convert.ToString(Me.ComboBox1.SelectedValue)
        cmd.Parameters.Add(varName)

        

        Dim da As New SqlDataAdapter(cmd)
        Dim ds As New DataSet()
        conn.Open()
        da.Fill(ds, "Adresse")
        conn.Close()


        'dgv füllen
        dgv1.DataSource = ds
        dgv1.DataMember = "Adresse"


    End Sub

In meinem Dataset befinden sich die Adresse, Stadt, und die Telnr.

Ich steh da graqd echt aufm Schlauch, über Ideen würde ich mich echt freuen.

Ich wünsch allen einen inspirierten Tag

Grüße Jo

Answer 1

Hallo Jo,

Du bist hier im falschen Forum.

Hier ist ein code um eine Datatable in Listview darzustellen:

   ''' <summary>
    ''' Zeichne komplette datatable in das Listview
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub drawTable()
        For Each row As DataRow In _datatable.Rows
            Dim str(Me.columnsCount - 1) As String
            For i As Integer = 0 To columnsCount - 1
                If TypeOf row(i) Is System.DBNull Then
                    str(i) = "-"
                Else
                    str(i) = CType(row(i), String)
                End If
            Next
            ListView1.Items.Add(New ListViewItem(str))
        Next
        Me.StatusLabel.Text = "Gefunden: " & _datatable.Rows.Count.ToString
    End Sub

Me.ColumnsCout ist die Anzahl der columns

_datatable ist die Tabelle, welche die Daten enthält

Nachtrag: Du musst vorher noch die Listview columns erzeugen

      ' Columns für den aktuellen Aufruf erzeugen
        For i As Integer = 0 To _datatable.Columns.Count - 1
            Dim name As String = _datatable.Columns(i).ColumnName
            Me.ListView1.Columns.Add(name, _colWidths(i), HorizontalAlignment.Left)
        Next

Gruss Ellen

---

Ich benutze/ I'm using VB2008 & VB2010

Answer 2

Hallo Ellen,

danke werd ich gleich testen. Ich arbeite gerade mit der prof. vers. deswegen hab ich das hier gepostet :).

Ich danke Dir und schick dir sonnige Grüße

Jo

Answer 3

Hallo Joachim Hiller,

Ich gehe davon aus, dass die Antwort Dir weitergeholfen hat.
Solltest Du noch "Rückfragen" dazu haben, so gib uns bitte Bescheid.

Eine Übersicht über alle verfügbaren Microsoft Foren findest Du unter http://www.microsoft.de/Community/Foren

Grüße,
Robert

---

Robert Breitenhofer, MICROSOFT 
Bitte haben Sie Verständnis dafür, dass im Rahmen dieses Forums, welches auf dem Community-Prinzip „Entwickler helfen Entwickler“ beruht, kein technischer Support geleistet werden kann oder sonst welche garantierten Maßnahmen seitens Microsoft zugesichert werden können.