01.
02.Private Sub Showtype()
03. Dim sql As String = "SELECT * FROM Pro_Type"
04. da.SelectCommand = New OleDbCommand(sql, conn)
05. da.Fill(ds, "pro")
06. With cb_type
07. .DataSource = ds.Tables("pro")
08. .DisplayMember = "Protype_name"
09. .ValueMember = "Protype_ID"
10. End With
11. End Sub
12.
13.
14.
15.Private Sub Showpro()
16. Dim sql As String = "SElECT Product_ID,ProductName FROM Product Where Protype_ID='" & cb_type.SelectedValue.ToString & "'"
17. da = New OleDbDataAdapter(sql, conn)
18. Dim dsproduct As New DataSet
19. da.Fill(dsproduct, "product")
20. With cb_pro
21. .BeginUpdate()
22. .DisplayMember = "ProductName"
23. .ValueMember = "Product_ID"
24. .DataSource = dsproduct.Tables("Product")
25. .EndUpdate()
26. End With
27. End Sub
28.
29.
30.Private Sub Showprice()
31. Dim price As String = ""
32. Dim sql As String = "SElECT PriceSale FROM Product WHERE Product_ID='" & cb_pro.SelectedValue.ToString & "'"
33. da = New OleDbDataAdapter(sql, conn)
34. Dim dsproduct As New DataSet
35. da.Fill(dsproduct, "pro")
36. tb_price.Text = cb_pro.SelectedValue.ToString
37. End Sub
38.
39.
40.Private Sub Showname()
41. Dim sql As String = "SElECT Mem_Firstname FROM Member WHERE Member_ID='" & tb_mem.Text.ToString & "'"
42. da = New OleDbDataAdapter(sql, conn)
43. Dim dsmem As New DataSet
44. da.Fill(dsmem, "Member")
45. tb_name.Text = tb_mem.Text.ToString
46. End Sub
