將項目從數據庫中添加到列表視圖

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