01.Imports System.Data.SqlClient
02.Imports System.Data
03.Public Class Form1
04. Dim con As New SqlConnection
05. Dim cmd As New SqlCommand
06. Dim strsql As String
07. Dim dt As New DataTable
08. Dim dt1 As New DataTable
09. Dim dtAdapter As SqlDataAdapter
10. Dim CSub As String
11. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
12. strsql = "Data Source=localhost;Initial Catalog=ClassRoom;Persist Security Info=True;User ID=sa;Password=friend16"
13. con.ConnectionString = strsql
14. con.Open()
15.
16. strsql = "select Subject.SubjectID , Subject.SubjectName ,Subject.Sec from Teaching inner join Subject on Subject.SubjectID = Teaching.SubjectID "
17. dtAdapter = New SqlDataAdapter(strsql, con)
18. dtAdapter.Fill(dt)
19. Me.DGV_Subject.DataSource = dt
20.
21.
22.
23.
24. With DGV_Subject
25. .AllowUserToAddRows = False
26. .BorderStyle = BorderStyle.None
27. .Columns(1).HeaderText = "รหัสวิชา"
28. .Columns(1).Width = 100
29. .Columns(2).HeaderText = "ชื่อวิชา"
30. .Columns(2).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
31. .Columns(3).HeaderText = "หมู่เรียน"
32. .Columns(3).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
33.
34. End With
35. End Sub
36.
37.
38. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
39. Form2.Show()
40. Me.Hide()
41.
42. End Sub
43.
44.End Class
