01.Imports System.Data
02.Imports MySql.Data.MySqlClient
03.
04.Public Class frmCheck
05. Private Sub frmCheck_Load() Handles MyBase.Load
06. con = New MySqlConnection
07. If con.State = ConnectionState.Closed Then
08. con.Open()
09. End If
10.
11. For i = 1 To 12
12. ComboMonth.Items.Add(MonthName(i))
13.
14. Next
15. ComboMonth.SelectedIndex =_
16. ComboMonth.FindStringExact(Monthame(DateTime.Now.Month))
17.
18.
19. Dim y As Integer = DateTime.Now.Year
20. ComboYear.Items.Add(y + 543)
21. ComboYear.Items.Add((y - 1) + 543)
22.
23. End Sub
24. Public Sub loadfile()
25. Dim sqlQuery As String
26. sqlQuery = "select ProductID as รหัสสินค้า,Month as เดือน ,Year as ปี,SalePrice as ราคาขาย from Chack"
27.
28. Dim sqlAdapter As New MySqlDataAdapter
29. Dim sqlCmd As New MySqlCommand
30. Dim sqlTable As New DataTable
31.
32.
33. With sqlCmd
34. .CommandText = sqlQuery
35. .Connection = con
36. End With
37.
38. With sqlAdapter
39. .SelectCommand = sqlCmd
40. .Fill(sqlTable)
41. End With
42.
43. DataGridView1.DataSource = sqlTable
44.
45. End Sub
46. Private Sub DataGridView1_CellClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
47. Dim i As Integer
48. i = DataGridView1.CurrentRow.Index
49. ComboMonth.Text = DataGridView1.Item(0, i).Value
50. ComboYear.Text = DataGridView1.Item(1, i).Value
51.
52. End Sub
53.End Class
