将项目从数据库中添加到列表视图

Question

我是一个Vb nooby，我无法从数据库添加特定项目到我的列表视图。

我想比较组合框的值与表的列值。 为了证明它们是否等于苹果= 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