从数据库添加项目到ListView

Question

我是Vb nooby，我无法从数据库中将特定项添加到Listview。

我想比较组合框的值和表的列值。证明它们是否相等，如apple = apple当它们相等时，应将整个数据集添加到我的ListView中。 （只有具有与组合框中所选项目相同的值的数据集）

请帮忙 ！！

非常感谢和最诚挚的问候

Answer 1

您可以尝试以下代码..

Imports System.Data.SqlClient
Public Class Form1
Dim conn As SqlConnection
Dim cmd As SqlCommand
Dim da As SqlDataAdapter
Dim ds As DataSet
Dim itemcoll(100) As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.ListView1.View = View.Details
Me.ListView1.GridLines = True
conn = New SqlConnection("Data Source=SQLEXPRESS;Initial Catalog=Northwind;Persist Security Info=True;User ID=id;Password=pass")
Dim strQ As String = String.Empty
strQ = "SELECT * FROM Northwind.dbo.Products"
cmd = New SqlCommand(strQ, conn)
da = New SqlDataAdapter(cmd)
ds = New DataSet
da.Fill(ds, "Table")
Dim i As Integer = 0
Dim j As Integer = 0
' adding the columns in ListView
For i = 0 To ds.Tables(0).Columns.Count - 1
Me.ListView1.Columns.Add(ds.Tables(0).Columns(i).ColumnName.ToString())
Next
'Now adding the Items in Listview
For i = 0 To ds.Tables(0).Rows.Count - 1
For j = 0 To ds.Tables(0).Columns.Count - 1
itemcoll(j) = ds.Tables(0).Rows(i)(j).ToString()
Next
Dim lvi As New ListViewItem(itemcoll)
Me.ListView1.Items.Add(lvi)
Next
End Sub
End Class

你可以尝试这个link.

Answer 2

谢谢你的帮助。在我的解决方案中，我只是在sql语句中设置了一个参数。

Public Function getRahmenvertrag**(ByVal costumerID As Integer)** As List(Of Rahmenvertrag)


    Dim sqlCom As New SqlServerCe.SqlCeCommand
    sqlCom.CommandText = **"SELECT * FROM Rahmenvertrag LEFT OUTER JOIN Kunde ON Kunden_FID = Kunden_ID WHERE Kunden_ID = @Kunde "**
    **sqlCom.Parameters.AddWithValue("Kunde", costumerID)**

Private Sub ComboBox1_Click(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

    ListView4.DataBindings.Clear()
    ListView4.Items.Clear()

    If IsNothing(ComboBox1.SelectedItem) = False Then


        For Each Rahmenvertrag As Rahmenvertrag In controller.getRahmenvertrag(ComboBox1.SelectedItem.kunde_ID)

            With ListView4.Items.Add(Rahmenvertrag.bezeichnung)
                .SubItems.Add(Rahmenvertrag.inhalt)
            End With
        Next
    End If
End Sub