28-08-15, 08:34 PM
السلام عليكم
اذا قلنا بأن كود لاظهار البيانات داخل ليست فيوا هذا :
فما هو الكود للداتا قريد فيو ؟؟
اذا قلنا بأن كود لاظهار البيانات داخل ليست فيوا هذا :
كود :
Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
Dim sql As String = " Select * from [Rent_Equipment] WHERE [Ren_NO] = @Ren_NO "
Using da As New OleDbDataAdapter(sql, conn)
da.SelectCommand.Parameters.AddWithValue("@Ren_NO", Val(ComboBox1.Text))
Using dt As New DataTable
da.Fill(dt)
ListView1.Items.Clear()
For Each row As DataRow In dt.Rows
ListView1.Items.Add(New ListViewItem({row("Equ_ID"), row("Equ_Name"), row("Equ_Quantity"), row("Ren_Date")}))
Next
End Using
End Using
End Using