[VB.NET] แจกฟรีโค้ดการอ่านโครงสร้างตารางข้อมูล MS Access

thongkorn

สคีมา (Schema) หมายถึง โครงสร้างข้อมูลหรือนิยามข้อมูล รวมถึงความสัมพันธ์ของข้อมูลในแต่ละเอ็นติตี้ ว่ามีความสัมพันธ์กันอย่างไร สำหรับโปรเจคนี้เราจะทำการอ่านโครงสร้างของตารางข้อมูลจากไฟล์ MS Access ว่าประกอบไปด้วยฟิลด์อะไรบ้าง และแต่ละฟิลด์นั้นมี Data Type หรือประเภทข้อมูลแบบไหนบ้าง ซึ่งจะนำไปใช้ประโยชน์ในกรณีที่ต้องจัดการฟิลด์ข้อมูลต่างๆ เพื่อทำการปรับปรุงโปรแกรมของเราในลักษณะแบบไดนามิค เช่น เมื่อต้องการเพิ่มฟิลด์ข้อมูลใหม่เข้าไป ก็ย่อมที่จะทำได้โดยง่าย

มาดูโค้ดกันเถอะ ...

1. Public Class frmViewSchemaDBNet
   
2.     Dim Conn As OleDbConnection
   
3.     Dim MyTable As DataTable
   
4. 
   
5.     ' / ------------------------------------------------------------------
   
6.     Private Sub btnBrowse_Click(sender As System.Object, e As System.EventArgs) Handles btnBrowse.Click
   
7.         '/ ประกาศใช้งาน Open File Dialog ในแบบ Run Time
   
8.         Dim dlgOpenFile As OpenFileDialog = New OpenFileDialog()
   
9. 
   
10.         '/ ตั้งค่าการใช้งาน Open File Dialog
    
11.         With dlgOpenFile
    
12.             .InitialDirectory = Application.StartupPath
    
13.             .Title = "เลือกไฟล์ MS Access"
    
14.             .Filter = "MS Access Files (*.mdb;*.accdb)|*.mdb;*.accdb"
    
15.             .FilterIndex = 1
    
16.             .RestoreDirectory = True
    
17.         End With
    
18. 
    
19.         Dim strConn As String = ""
    
20.         '/ หากเลือกปุ่ม OK หลังจากการ Browse ...
    
21.         If dlgOpenFile.ShowDialog() = DialogResult.OK Then
    
22.             lvwData.Items.Clear()
    
23.             txtFileName.Text = dlgOpenFile.FileName
    
24.             strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
    
25.                 dlgOpenFile.FileName & ";"
    
26. 
    
27.             Conn = New OleDbConnection(strConn)
    
28.             Conn.Open()
    
29. 
    
30.             '/ อ่านค่ารายชื่อตาราง (TABLE) หากต้องการเห็นแบบสอบถาม (Query) ให้เปลี่ยนเป็น VIEW น่ะครับ
    
31.             MyTable = Conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, _
    
32.                           New Object() {Nothing, Nothing, Nothing, "TABLE"})
    
33. 
    
34.             '/ แสดงรายชื่อตาราง (Table)
    
35.             cmbTable.Items.Clear()
    
36.             For i = 0 To MyTable.Rows.Count - 1
    
37.                 cmbTable.Items.Add(MyTable.Rows(i)!TABLE_NAME.ToString)
    
38.             Next i
    
39.         End If
    
40.     End Sub
    
41. 
    
42.     ' / ------------------------------------------------------------------
    
43.     Private Sub cmbTable_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbTable.SelectedIndexChanged
    
44. 
    
45.         lvwData.Items.Clear()
    
46.         '/ ค้นคืน Schema เพื่ออ่านหลัก (Column) หรือ ฟิลด์ (Field) จากตารางที่เลือก
    
47.         Dim cmd As OleDbCommand = New OleDbCommand(cmbTable.Text, Conn)
    
48.         '/ CommandType Enumeration มี 3 แบบคือ
    
49.         '/ StoredProcedure - The name of a stored procedure.
    
50.         '/ TableDirect - The name of a table.
    
51.         '/ Text - SQL text command. (ค่า Default)
    
52.         cmd.CommandType = CommandType.TableDirect
    
53.         ' https://msdn.microsoft.com/en-us/library/system.data.commandtype(v=vs.110).aspx
    
54. 
    
55.         '/ อ่านเฉพาะ Schema เท่านั้น
    
56.         Dim Reader As OleDbDataReader = cmd.ExecuteReader(CommandBehavior.SchemaOnly)
    
57. 
    
58.         ' รับข้อมูลโครงสร้างตาราง (Table)
    
59.         Dim SchemaTable As DataTable = Reader.GetSchemaTable()
    
60. 
    
61.         '/ แสดง Column Header ของแต่ละตารางทั้งหมด เช่น ชื่อ ขนาด ชนิดข้อมูล
    
62.         Dim col As DataColumn
    
63.         lvwData.View = View.Details
    
64.         For Each col In SchemaTable.Columns
    
65.             lvwData.Columns.Add(col.ColumnName, 100, HorizontalAlignment.Left)
    
66.         Next
    
67. 
    
68.         '/ แสดงรายละเอียดโครงสร้างตารางข้อมูล (Schema)
    
69.         Dim row As DataRow
    
70.         Dim ColCount As Integer = SchemaTable.Columns.Count
    
71.         For Each row In SchemaTable.Rows
    
72.             Dim ArrayList(ColCount) As String
    
73.             Dim ColIdx As Integer
    
74.             '/ เก็บรายละเอียดของแต่ละฟิลด์ข้อมูลไว้ใน Array List
    
75.             For ColIdx = 0 To ColCount - 1
    
76.                 ArrayList(ColIdx) = Convert.ToString(row(ColIdx))
    
77.             Next
    
78. 
    
79.             '/ ดึงข้อมูลจาก Array List มาแสดงผลใน ListView Control
    
80.             Dim NewItem As ListViewItem = New ListViewItem(ArrayList)
    
81.             lvwData.Items.Add(NewItem)
    
82.         Next
    
83.         cmd.Dispose()
    
84.         Reader.Close()
    
85. 
    
86.         '// Initialize ListView Control
    
87.         With lvwData
    
88.             .View = View.Details
    
89.             .GridLines = True
    
90.             .FullRowSelect = True
    
91.             .HideSelection = False
    
92.             .MultiSelect = False
    
93.             .AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
    
94.         End With
    
95. 
    
96.     End Sub
    
97. 
    
98.     Private Sub frmViewDataBaseNet_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
99.         Me.Dispose()
    
100.         Application.Exit()
     
101.     End Sub
     
102. 
     
103.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
     
104.         Me.Close()
     
105.     End Sub
     
106. 
     
107.     Private Sub txtFileName_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles txtFileName.KeyDown
     
108.         e.SuppressKeyPress = True
     
109.     End Sub
     
110. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2010) ได้ที่นี่ ...