使用ListView控件无法在vb.net中绑定整个数据库 [英] using listview control can not binde whole database in vb.net

问题描述

通过使用以下代码，我只能在数据库中获得一列，而不是所有列，

By using the following code I can get only one column in database rather than all columns,

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListView1.Items.Clear()
        ' Create the column headers.
        ListView1.Columns.Add("Id", 10, HorizontalAlignment.Left)
        ListView1.Columns.Add("Word", 10, HorizontalAlignment.Left)
        ListView1.Columns.Add("Meaning", 10, HorizontalAlignment.Left)
        ListView1.Columns.Add("Gujarati", 10, HorizontalAlignment.Left)
        ListView1.Columns.Add("Syn", 10, HorizontalAlignment.Right)
        ListView1.Columns.Add("Ant", 10, HorizontalAlignment.Left)
        ' Start with details view.
        Dim cn As SqlConnection = GetDbConnection()
        ' Select records.


        Dim cmd As New SqlCommand("select * from Dictionary", cn)
        Dim data_reader As SqlDataReader = cmd.ExecuteReader()
        'data_reader = cmd.ExecuteReader()

        Do While data_reader.Read()
            Dim new_item As New ListViewItem(data_reader.Item("Id").ToString)
            new_item.SubItems.Add(data_reader.Item("Word").ToString)
            new_item.SubItems.Add(data_reader.Item("Meaning").ToString)
            new_item.SubItems.Add(data_reader.Item("Gujarati").ToString)
            new_item.SubItems.Add(data_reader.Item("Syn").ToString)
            new_item.SubItems.Add(data_reader.Item("Ant").ToString)
            ListView1.Items.Add(new_item)
            Debug.WriteLine(new_item.Text & " : " & _
                new_item.SubItems(0).Text & ", " & _
                new_item.SubItems(1).Text & ", " & _
                new_item.SubItems(2).Text & ", " & _
                new_item.SubItems(3).Text & ", " & _
                new_item.SubItems(4).Text)
        Loop
        'Dim wid As Integer
        'For i As Integer = 0 To ListView1.Columns.Count - 1
        '    ListView1.Columns(i).Width = -2
        '    wid += ListView1.Columns(i).Width
        'Next i
        'Me.ClientSize = New Size(wid + 20, Me.ClientSize.Height)


    End Sub
    Private Function GetDbConnection() As SqlConnection

        ' Compose the connect string.
        Dim cn As New SqlConnection("Data Source=SANJAY-26EEFF19\SQLEXPRESS;Initial Catalog=Dict;Integrated Security=True")
        ' Open a database connection.
        cn.Open()
        ' Return the connection.
        Return cn
    End Function

推荐答案

已阅读本文

带有数据读取器的列表视图[

Have a read of this article

listview with a datareader[^]

That is using the technique you are using. But databinding is done using

dim dt as datatable 

''fill datatable here 

listview1.datasource = dt

Dim cn As New SqlConnection("Data Source=SANJAY-26EEFF19\SQLEXPRESS;Initial Catalog=Dict;Integrated Security=True")

请使用您的计算机名称替换 SANJAY-26EEFF19 ，并使用您的数据库名称替换 Dict .


昏暗的cmd作为新的SqlCommand("select * from Dictionary"，cn)


用您的表名替换字典

plz replcae the SANJAY-26EEFF19 with you computer name and Dict with your database name.


Dim cmd As New SqlCommand("select * from Dictionary", cn)


replcae the Dictionary with your table name

这篇关于使用ListView控件无法在vb.net中绑定整个数据库的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！