Zeigen alle Felder in der listbox aus Datenbank, vb.net

Ich versuche, machen Sie eine Liste mit Kontrollkästchen, wenn alle Felder einer bestimmten Tabelle in einer Access-Datenbank. Ich habe ein paar Tische, und die Idee wäre, jede Tabelle, die geladen werden, wenn eine andere Taste (und die Elemente in der box deaktiviert). Ein trick ist, dass die Tische nicht alle die gleiche Größe. Wie bekomme ich alle Felder zu zeigen, bis für jede Tabelle. Was ich jetzt haben, ist nur zu zeigen, ein Feld:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim connString As String = "Provider=Microsoft.ACE.OLEDB.12.0;data source='C:\dummy_data.accdb';"
    Dim conn As New OleDbConnection(connString)
    Dim sql As String = "SELECT * FROM Customers"
    Dim cmd As New OleDbCommand(sql, conn)
    conn.Open()
    Dim reader As OleDbDataReader = cmd.ExecuteReader()
    ClientList.Items.Clear()
    While reader.Read()
        ClientList.Items.Add(reader(0).ToString())
    End While
    reader.Close()
    conn.Close()

End Sub

Könnte man das laden der ersten Zeile der DB-Tabelle, die Sie wollen in einem DataTable mit einem DataAdapter und dann Durchlaufen Sie die Spalten in der Tabelle und Lesen Sie die Informationen von dort.
Wenn dies getan werden muss, mit einer listview, können Sie es haben, laden Sie die korrekte Anzahl der Spalten für jedes einzelne Feld? Ich Spiele das jetzt. Ein echtes plus wäre das hinzufügen der Spalte name/Bezeichnung wie den Namen des Feldes.
ooops, wenn du sagst, Felder, meinst du jedes Feld für jede Zeile in jeder Tabelle? Oder Sie einfach nur bedeuten, das Sie wollen eine Liste der verfügbaren Felder aus jeder Tabelle?
Ja, es kann getan werden, mit einem ListView, aber Sie müssen sicherstellen, dass die anzeigen geschaltet ist, details, sonst sehen Sie nicht die Spalten. Wenn Sie eine Tabelle Sie können nur binden Sie es an die ListView und es werden alle Daten autmoatically für Sie.
Ich möchte jede Instanz (Zeile) für jedes Feld angezeigt, in einem wählbaren displayable-Objekt (ich vermute listbox ist vielleicht nicht die beste Wahl), so dass ich weiter zu Bearbeiten die ausgewählte Instanz. Ich bin stecken, auf dem füllen der listbox/listview/datatable.

InformationsquelleAutor Atl LED | 2013-03-19

1

Wenn Sie nicht abgeneigt sind, sich mit einem DataGridView statt einer ListView man könnte es so machen:
```
    Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;data source='PathToMyDatabase';"
    Dim sql As String = "SELECT * FROM Tメイン;"

    Dim dt As DataTable

    With New OleDbDataAdapter(sql, connString)
        Dim ds As New DataSet()
        .Fill(ds)
        dt = ds.Tables(0)
    End With

    Me.DataGridView1.DataSource = dt
```
Habe ich nicht 'ass.OLEDB' auf meinem computer, so dass nur noch das JET-Anbieter statt, aber es sollte funktionieren auf die gleiche Weise.

Sollte ich hinzufügen, dass Sie können verwenden Sie diese Methode zum abrufen der Daten aus der DB, aber es gibt keinen einfachen Weg, soweit ich das verstanden habe, binden eine DataTable zu einem ListView (siehe in diesem MSDN-Frage zum Beispiel), und Sie müssten, um eine Schleife durch die Spalten in Ihrer DataTable ersten und fügen Sie die Spaltenüberschriften, um Ihre ListView und dann in einer Schleife durch die Zeilen, und fügen Sie die Daten.

UPDATE:

Zur Beantwortung Ihrer questiona s so exportieren Sie Daten aus der DataGridView ich erinnerte mich, dass ich schrieb code, um zu tun, dass eine Weile zurück.
```
Private Function ExportToExcelFile(ByVal FileName As String) As Boolean

    With New Excel.Application
        With .Workbooks.Add()
            For Each sheet As Worksheet In .Worksheets
                If sheet.Index > 1 Then
                    Call sheet.Delete()
                End If
            Next
            With CType(.Worksheets(1), Worksheet).Range("A1")
                For Each column As DataGridViewColumn In Me.dgvData.Columns
                    .Offset(0, column.Index).Value = column.HeaderText
                    For Each row As DataGridViewRow In Me.dgvData.Rows
                        .Offset(row.Index + 1, column.Index).Value = row.Cells(column.Index).Value
                    Next
                Next
            End With
            Call .SaveAs(FileName)
        End With
        Call .Quit()
    End With

End Function
```
Ich hoffe, dies wird Ihnen den Einstieg erleichtern.

Ich könnte nur hinzufügen, dass die "DataGridView" direkt aus dem designer in VS. Ich wusste gar nicht, 'DataGridView' existierte. Ich bin besorgt, wie Baue ich dies als ein Add-In zu Excel, kennen Sie gute Beispiele dafür, wie ausgewählte hinzufügen 'DataGridView' Artikel in ein Excel-Arbeitsblatt? Ich habe Essen Sie es, bevor mit einer listbox, aber wenn ich versuchte, Sie zu mod es für die DataGridView, die ich eindeutig nicht mit der richtigen syntax/Befehle.
Es ist eigentlich ganz einfach, denn man kann die Schleife über die Zeilen und Spalten und der Zellen-Werte, so dass beim einfügen der Daten in Excel ist sehr einfach. Haben Sie einen Blick auf diese Frage ALSO zum Beispiel: stackoverflow.com/questions/7777205/...
Wenn Sie binden die DataGridView zu einem DataTable Sie können auch eine Schleife durch die DataTable in der gleichen Art und Weise arbeiten, dass der export der Daten nach Excel.
Ja, aber ich muss in der Lage sein, auf jede ganze Zeile wenn ausgewählt, werden nicht nur die aktuellen aktiven Zelle. Das funktioniert sicherlich hinzufügen die ganze Sache, ich bin besorgt über das hinzufügen einer Zeile von Daten. Ich bin aber auch Lesen, bis auf diese jetzt, wie wir gehen :p
Ich denke, dass die ausgewählte Zeile ist eigentlich eine Eigenschaft des DataGridView, so können Sie eine Schleife durch die Zellen, die Art und Weise und zu exportieren. Sie können auch den Zeilenindex der markierten Zelle und bekommen die ausgewählte Zeile Weg. Es ist eine sehr flexible Kontrolle. Wenn Sie nicht weiterkommen auf der export-Teil und hier Fragen, ich bin sicher, du wirst bekommen jede Menge Antworten 🙂

InformationsquelleAutor yu_ominae

Mit einem Listview-Steuerelement, der folgende code sollte den trick tun. Für Einfachheit habe ich nur 4 Kunden Felder - Sie müssen definieren Sie gemäß Ihrer Tabelle, Feld Definitionen:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    ClientList.View = View.Details
    ClientList.FullRowSelect = True
    ClientList.Columns.Add("ID", 120)
    ClientList.Columns.Add("Name", 120)
    ClientList.Columns.Add("Address", 140)
    ClientList.Columns.Add("Email", 100)
    Dim connString As String = "Provider=Microsoft.ACE.OLEDB.12.0;data source=C:\dummy_data.accdb;"
    ClientList.Items.Clear()
    Using conn As New Data.OleDb.OleDbConnection(connString)
        conn.Open()
        Dim sql As String = "SELECT * FROM Customers"
        Using cmd As New Data.OleDb.OleDbCommand(sql, conn)
            Dim lvi As ListViewItem
            Using oRDR As Data.OleDb.OleDbDataReader = cmd.ExecuteReader
                While oRDR.Read()
                    lvi = ClientList.Items.Add(oRDR.GetValue(0).ToString)
                    For i = 1 To oRDR.FieldCount - 1
                        lvi.SubItems.Add(oRDR.GetValue(i).ToString)
                    Next
                End While
            End Using
        End Using
        conn.Close()
    End Using

End Sub

Gibt es etwas, das importiert werden muss für diesen sub zu arbeiten? Bekomme ich mehrere Fehler: View nicht im System.Windows.Formen.ListBox Spalten nicht in Systemen.Windows.Formen.Listbox, etc
Ändern Sie die ListBox auf ein ListView.
Sorry, ich dachte, da Ihre öffnung Linie, sagte: "Mit einem Listenfeld.." , das war für ein Listenfeld. Habe es auf der Arbeit, vielleicht solltest du Bearbeiten, dass ein Teil für Klarheit?
Oops. Recht hast du. Bearbeiten gemacht. Hoffe, es half trotzdem.

InformationsquelleAutor ron tornambe

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.