01.Private Sub showdata()
02. Dim str As String
03. Dim da As OleDbDataAdapter
04. Dim ds As New DataSet
05.
06. str = String.Format("SELECT * FROM tb_item ORDER BY item_id ")
07.
08. Try
09. If isfind = True Then
10. ds.Tables("item").Clear()
11. End If
12. Catch
13. End Try
14.
15.
16. da = New OleDbDataAdapter(str, con)
17. da.Fill(ds, "item")
18. If ds.Tables("item").Rows.Count >= 0 Then
19. isfind = True
20.
21. Try
22. dts.Clear()
23. With dts
24. .Columns.Add("item_id")
25. .Columns.Add("pic", GetType(Bitmap))
26. .Columns.Add("item_name")
27. .Columns.Add("item_size")
28. .Columns.Add("item_number")
29. .Columns.Add("item_price")
30. .Columns.Add("type_name")
31. .Columns.Add("path")
32.
33. End With
34. Catch ex As Exception
35. End Try
36.
37.
38.
39.
40. For i = 0 To ds.Tables("item").Rows.Count - 1
41. Dim itemid As String
42. Dim name As String
43. Dim size As String
44. Dim number As Integer
45. Dim price As Integer
46. Dim type As String
47. Dim pic As String
48. Dim path As String
49. itemid = ds.Tables(0).Rows(i)(0).ToString
50. name = ds.Tables(0).Rows(i)(1).ToString
51. size = ds.Tables(0).Rows(i)(2).ToString
52. number = ds.Tables(0).Rows(i)(3).ToString
53. price = ds.Tables(0).Rows(i)(4).ToString
54. type = ds.Tables(0).Rows(i)(5).ToString
55. pic = ds.Tables(0).Rows(i)(6).ToString
56. path = ds.Tables(0).Rows(i)(6).ToString
57.
58.
59. Dim getpic As String = My.Application.Info.DirectoryPath & "\PICDATA\" & pic
60.
61.
62.
63. dts.Rows.Add(itemid, New Bitmap(getpic), name, size, number, price, type, pic)
64.
65.
66. Next
67.
68.
69.
70.
71. Else : isfind = False
72. End If
73.
74. dts.Clear()
75. ds.Tables("item").Clear()
76. DataGridView1.RowTemplate.Height = 80
77. DataGridView1.DataSource = dts
78.
79. DataGridView1.ClearSelection()
80.End Sub
