显示列表框中的所有字段从数据库，vb.net

Question

我想使列表框显示Access数据库中的特定表的所有字段。我有几张桌子，这个想法是让每个桌子都加载一个不同的按钮（并清除框中的项目）。一个诀窍是表格不是全部相同的大小。我如何获得每个表格显示的所有字段。我现在只显示一个字段：

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 

Answer 1

如果你不反对使用DataGridView代替ListView的，你可以这样来做：

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 

我没有' ACE.OLEDB'在我的电脑上，所以不得不使用JET提供程序，但它应该以同样的方式工作。

我要补充一点，你可以用这个方法来检索数据库中的数据，但据我了解的DataTable绑定到ListView（见this MSDN question例如）没有简单的方法，你将不得不首先循环访问DataTable中的列，然后将列标题添加到您的ListView，然后遍历行并添加数据。

UPDATE：

要回答你的questiona s到如何将数据从DataGridView我记得我写代码，做一个小而回出口。

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 

我希望这会帮助你开始。

Answer 2

使用Listview控件，下面的代码应该做的伎俩。为了简单起见，我只定义了4场客 - 你需要定义他们根据你的表字段defintions：

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