[VB.NET] การจัดอันดับ หรือ Ranking ด้วย Linq และ Dictionary Implement

thongkorn

บทความนี้แอดมินไปเจอคำถามอยู่ใน StackOverFlow ตัวแอดมินกลับสนใจมันขึ้นมา ก็เลยลองนำมาคิดดู ... การจัดอันดับ (Ranking) ในที่นี้หมายถึงการที่เรารับชุดข้อมูลใดๆเข้ามา ซึ่งอาจจะไม่ใช่ DataBase ที่สามารถ Query และจัดเรียงข้อมูลก่อนนำมาแสดงผล แต่เป็นแหล่งข้อมูลจากที่อื่น เช่น XML หรือ JSON เพื่อทำการคำนวณหาว่าข้อมูลแต่ละชุด ที่อยู่ในแต่ละแถวนั้นอยู่อันดับที่เท่าไหร่ คำนวณได้ทั้งแบบมากไปหาน้อย หรือ น้อยไปหามาก ... โค้ดตัวอย่างแอดมินนำมาให้ได้ศึกษากัน 2 แบบ แบบแรกคือใช้ Linq ส่วนแบบที่ 2 จะใช้ Dictionary ขอให้ทุกๆท่านลองนำมาเปรียบเทียบดูกันเองล่ะกันครับ ... (หมายเหตุ: ที่ต้องเขียนคำอธิบายโค้ดเป็นภาษาอังกฤษ เพราะแอดมินนำไปโพสต์ที่เว็บต่างประเทศครับ) ...

โค้ด Linq Implement ...

1. ' / --------------------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / Purpose: How to make Ranking in DataGridView with out DataBase.
   
8. ' / Microsoft Visual Basic .NET (2010)
   
9. ' /
   
10. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
11. ' / You can modify and/or distribute without to inform the developer.
    
12. ' / --------------------------------------------------------------------------------
    
13. Public Class frmRankingDataGrid
    
14.     Dim dt As DataTable
    
15.     Dim MaxRow As Integer = 9
    
16. 
    
17.     Public Sub New()
    
18. 
    
19.         ' This call is required by the designer.
    
20.         InitializeComponent()
    
21. 
    
22.         ' Add any initialization after the InitializeComponent() call.
    
23.         Call SetupDGVData()
    
24.     End Sub
    
25. 
    
26.     ' / --------------------------------------------------------------------------------
    
27.     Private Sub btnPopulate_Click(sender As System.Object, e As System.EventArgs) Handles btnProcess.Click
    
28.         Call InitGrid()
    
29.         Call FillData()
    
30.     End Sub
    
31. 
    
32.     ' / --------------------------------------------------------------------------------
    
33.     '// Initialize DataGridView @Run Time
    
34.     Private Sub SetupDGVData()
    
35.         With dgvData
    
36.             .RowHeadersVisible = False
    
37.             .AllowUserToAddRows = False
    
38.             .AllowUserToDeleteRows = False
    
39.             .AllowUserToResizeRows = False
    
40.             .MultiSelect = True
    
41.             .SelectionMode = DataGridViewSelectionMode.FullRowSelect
    
42.             .ReadOnly = True
    
43.             .Font = New Font("Tahoma", 9)
    
44.             .RowHeadersVisible = True
    
45.             ' Autosize Column
    
46.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    
47.             .AutoResizeColumns()
    
48.             '// Even-Odd Color
    
49.             .AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
    
50.             ' Adjust Header Styles
    
51.             With .ColumnHeadersDefaultCellStyle
    
52.                 .BackColor = Color.Navy
    
53.                 .ForeColor = Color.Black ' Color.White
    
54.                 .Font = New Font("Tahoma", 9, FontStyle.Bold)
    
55.             End With
    
56.         End With
    
57.     End Sub
    
58. 
    
59.     Private Sub frmRankingDataGrid_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
60.         Me.Dispose()
    
61.         Application.Exit()
    
62.     End Sub
    
63. 
    
64.     Private Sub frmRankingDataGrid_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
65.         Call InitGrid()
    
66.         Call FillData()
    
67.     End Sub
    
68. 
    
69.     ' / --------------------------------------------------------------------------------
    
70.     Private Sub InitGrid()
    
71.         dt = New DataTable
    
72.         dt.Columns.Add("A", GetType(Double))
    
73.         dt.Columns.Add("B", GetType(Double))
    
74.         dt.Columns.Add("C", GetType(Double))
    
75.         dt.Columns.Add("D", GetType(Double))
    
76.         dt.Columns.Add("E", GetType(Double))
    
77.         dt.Columns.Add("Average", GetType(Double))
    
78.         dt.Columns.Add("Dummy", GetType(Double)) '<-- Visible = False
    
79.         dt.Columns.Add("Row") '<-- Visible = False
    
80.         dt.Columns.Add("Ranking", GetType(Integer))
    
81.         dgvData.DataSource = dt
    
82.     End Sub
    
83. 
    
84.     ' / --------------------------------------------------------------------------------
    
85.     ' / Sample Data
    
86.     Private Sub FillData()
    
87.         Randomize()
    
88.         Dim RandomClass As New Random()
    
89.         For i As Integer = 0 To MaxRow
    
90.             Dim dr As DataRow = dt.NewRow()
    
91.             '// RandomClass.NextDouble(). A double-precision floating point number that is greater than or equal to 0.0, and less than 1.0.
    
92.             dr(0) = RandomClass.Next(0, 99) + Format(RandomClass.NextDouble(), "0.0")
    
93.             dr(1) = RandomClass.Next(0, 99) + Format(RandomClass.NextDouble(), "0.0")
    
94.             dr(2) = RandomClass.Next(0, 99) + Format(RandomClass.NextDouble(), "0.0")
    
95.             dr(3) = RandomClass.Next(0, 99) + Format(RandomClass.NextDouble(), "0.0")
    
96.             dr(4) = RandomClass.Next(0, 99) + Format(RandomClass.NextDouble(), "0.0")
    
97.             Dim SumCol As Double = 0
    
98.             For iCol As Integer = 0 To 4 'MaxCol
    
99.                 SumCol = SumCol + dr(iCol)
    
100.             Next
     
101.             dr(5) = Format(SumCol / 5, "0.00")
     
102.             dgvData.DataSource = dt
     
103.             '//
     
104.             dt.Rows.Add(dr)
     
105.         Next
     
106.         Try
     
107.             '// Create Dictionary with double keys.
     
108.             Dim dict As New Dictionary(Of Double, Integer)
     
109.             For i As Integer = 0 To MaxRow
     
110.                 '// Column index = 6 is dummy to get double value.
     
111.                 '// Prevent have some duplicate key.
     
112.                 '// Example:
     
113.                 '// dgvData.Item(5, i).Value = 44.1 ... but
     
114.                 '// CovertDoubleFloat(44.1) = 44.099998474121094
     
115.                 dgvData.Item(6, i).Value = CovertDoubleFloat(dgvData.Item(5, i).Value).ToString("G15")
     
116.                 dict.Add(dgvData.Item(6, i).Value, i)
     
117.             Next
     
118.             ' Get list of keys.
     
119.             Dim keys As List(Of Double) = dict.Keys.ToList
     
120.             ' Sort the keys Accesending. (A -> Z)
     
121.             keys.Sort()
     
122.             ' Descending Z -> A
     
123.             keys.Reverse()
     
124.             ' Loop over the sorted keys.
     
125.             Dim dVal As Double
     
126.             Dim Count As Integer = 0
     
127.             For Each dVal In keys
     
128.                 'MsgBox(dVal & " - " & dict.Item(dVal))
     
129.                 dgvData.Item(6, Count).Value = dVal
     
130.                 dgvData.Item(7, Count).Value = dict.Item(dVal)
     
131.                 Count += 1
     
132.             Next
     
133.             '// Hidden column
     
134.             dgvData.Columns(6).Visible = False
     
135.             dgvData.Columns(7).Visible = False
     
136.             '// Change position for Ranking.
     
137.             For iSource As Integer = 0 To MaxRow
     
138.                 For iDest As Integer = 0 To MaxRow
     
139.                     If dgvData.Item(7, iSource).Value = iDest Then
     
140.                         dgvData.Item(8, iDest).Value = iSource + 1
     
141.                         Exit For
     
142.                     End If
     
143.                 Next
     
144.             Next
     
145. 
     
146.         Catch ex As Exception
     
147.             MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
     
148.         End Try
     
149.     End Sub
     
150. 
     
151.     ' / --------------------------------------------------------------------------------
     
152.     '// https://msdn.microsoft.com/en-us/library/kc01y017(v=vs.110).aspx
     
153.     Public Function CovertDoubleFloat(ByVal doubleVal As Double) As Double
     
154.         Dim singleVal As Single = 0
     
155.         ' Double to Single conversion cannot overflow.
     
156.         singleVal = System.Convert.ToSingle(doubleVal)
     
157.         ' Conversion from Single to Double cannot overflow.
     
158.         CovertDoubleFloat = System.Convert.ToDouble(singleVal)
     
159.     End Function
     
160. 
     
161.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
     
162.         Me.Close()
     
163.     End Sub
     
164. 
     
165. End Class

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

โค้ด Dictionary Implement ...

1. ' / --------------------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / Purpose: How to make Ranking in DataGridView with Dictionary.
   
8. ' / Microsoft Visual Basic .NET (2010)
   
9. ' /
   
10. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
11. ' / You can modify and/or distribute without to inform the developer.
    
12. ' / --------------------------------------------------------------------------------
    
13. Public Class frmRankingDictionary
    
14.     Dim dt As DataTable
    
15.     Dim MaxRow As Integer = 9
    
16. 
    
17.     ' / --------------------------------------------------------------------------------
    
18.     Private Sub btnPopulate_Click(sender As System.Object, e As System.EventArgs) Handles btnProcess.Click
    
19.         Call InitGrid()
    
20.         Call FillData()
    
21.     End Sub
    
22. 
    
23.     ' / --------------------------------------------------------------------------------
    
24.     '// Initialize DataGridView @Run Time
    
25.     Private Sub SetupDGVData()
    
26.         With dgvData
    
27.             .RowHeadersVisible = False
    
28.             .AllowUserToAddRows = False
    
29.             .AllowUserToDeleteRows = False
    
30.             .AllowUserToResizeRows = False
    
31.             .MultiSelect = True
    
32.             .SelectionMode = DataGridViewSelectionMode.FullRowSelect
    
33.             .ReadOnly = True
    
34.             .Font = New Font("Tahoma", 9)
    
35.             ' Autosize Column
    
36.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    
37.             .AutoResizeColumns()
    
38.             '// Even-Odd Color
    
39.             .AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
    
40.             ' Adjust Header Styles
    
41.             With .ColumnHeadersDefaultCellStyle
    
42.                 .BackColor = Color.Navy
    
43.                 .ForeColor = Color.Black ' Color.White
    
44.                 .Font = New Font("Tahoma", 9, FontStyle.Bold)
    
45.             End With
    
46.         End With
    
47.     End Sub
    
48. 
    
49.     ' / --------------------------------------------------------------------------------
    
50.     ' / Sample Data
    
51.     Private Sub FillData()
    
52.         Randomize()
    
53.         Dim RandomClass As New Random()
    
54.         For i As Integer = 0 To MaxRow
    
55.             Dim dr As DataRow = dt.NewRow()
    
56.             dr(0) = i + 1
    
57.             '// RandomClass.Next(0, 99) Random integer value between 0 - 99.
    
58.             '// RandomClass.NextDouble(). A double-precision floating point number that is greater than or equal to 0.0, and less than 1.0.
    
59.             dr(1) = RandomClass.Next(0, 99) + Format(RandomClass.NextDouble(), "0.0")
    
60.             dr(2) = RandomClass.Next(0, 99) + Format(RandomClass.NextDouble(), "0.0")
    
61.             dr(3) = RandomClass.Next(0, 99) + Format(RandomClass.NextDouble(), "0.0")
    
62.             dr(4) = RandomClass.Next(0, 99) + Format(RandomClass.NextDouble(), "0.0")
    
63.             Dim SumCol As Double = 0
    
64.             For iCol As Integer = 1 To 4 'MaxCol
    
65.                 SumCol = SumCol + dr(iCol)
    
66.             Next
    
67.             dr(5) = Format(SumCol / 4, "0.00")
    
68.             dgvData.DataSource = dt
    
69.             '//
    
70.             dt.Rows.Add(dr)
    
71.         Next
    
72.         Try
    
73.             '// Dictionary. This collection allows fast key lookups. A generic type, it can use any types for its keys and values.
    
74.             '// Important: Dictionary can't have the duplicate key.
    
75.             '//
    
76.             '// Create Dictionary with double keys.
    
77.             Dim dict As New Dictionary(Of Double, Integer)
    
78.             '// Key and Value Pairs for Dummies.
    
79.             For i As Integer = 0 To MaxRow
    
80.                 '// Column index = 6 is dummy to get double value.
    
81.                 dgvData.Item(6, i).Value = dgvData.Item(5, i).Value
    
82.                 '// Key, Value
    
83.                 dict.Add(dgvData.Item(6, i).Value, i)
    
84.             Next
    
85.             '/ Get list of keys.
    
86.             Dim keys As List(Of Double) = dict.Keys.ToList
    
87.             '/ Sort the keys ascending. (A -> Z)
    
88.             keys.Sort()
    
89.             '/ Descending Z -> A
    
90.             keys.Reverse()
    
91.             '//
    
92.             Dim dVal As Double
    
93.             Dim Count As Integer = 0
    
94.             '/ Loop over the sorted keys.
    
95.             For Each dVal In keys
    
96.                 dgvData.Item(6, Count).Value = dVal
    
97.                 dgvData.Item(7, Count).Value = dict.Item(dVal)
    
98.                 Count += 1
    
99.             Next
    
100.             '// Hidden column
     
101.             dgvData.Columns(6).Visible = False
     
102.             dgvData.Columns(7).Visible = False
     
103.             '// Change position for Ranking.
     
104.             For iSource As Integer = 0 To MaxRow
     
105.                 For iDest As Integer = 0 To MaxRow
     
106.                     If dgvData.Item(7, iSource).Value = iDest Then
     
107.                         dgvData.Item(8, iDest).Value = iSource + 1
     
108.                         Exit For
     
109.                     End If
     
110.                 Next
     
111.             Next
     
112. 
     
113.         Catch ex As Exception
     
114.             MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
     
115.         End Try
     
116.     End Sub
     
117. 
     
118.     Private Sub frmRankingDictionary_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
     
119.         Call SetupDGVData()
     
120.         Call InitGrid()
     
121.         Call FillData()
     
122.     End Sub
     
123. 
     
124.     Private Sub InitGrid()
     
125.         '//
     
126.         dt = New DataTable
     
127.         dt.Columns.Add("#Row", GetType(String))
     
128.         '// Define input with integer type.
     
129.         dt.Columns.Add("A", GetType(Double))
     
130.         dt.Columns.Add("B", GetType(Double))
     
131.         dt.Columns.Add("C", GetType(Double))
     
132.         dt.Columns.Add("D", GetType(Double))
     
133.         dt.Columns.Add("Average", GetType(Double))
     
134.         dt.Columns.Add("Dummies", GetType(Double)) '<-- Visible = False
     
135.         dt.Columns.Add("Row") '<-- Visible = False
     
136.         dt.Columns.Add("Ranking", GetType(Integer))
     
137.         dgvData.DataSource = dt
     
138.     End Sub
     
139. 
     
140.     Private Sub frmRankingDictionary_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
141.         Me.Dispose()
     
142.         Application.Exit()
     
143.     End Sub
     
144. 
     
145.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
     
146.         Me.Close()
     
147.     End Sub
     
148. 
     
149. End Class

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

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

anuyut1995

Admin ครับ รบกวนถามหน่อยครับ พอดีจะ ศึกษาเรื่อง Vb2010 With Excel พอมีตัวอย่างให้ศึกษาไหมครับ
ขอบคุณร่วงหน้าครับ

thongkorn

anuyut1995 ตอบกลับเมื่อ 2019-1-21 13:07
Admin ครับ รบกวนถามหน่อยครับ พอดีจะ ศึกษาเรื่อง Vb2010 With Ex ...

[VB.NET] การนำไฟล์ MS Excel มาทำงานเป็นเหมือนฐานข้อมูล (DataBase Excel) ...

anuyut1995

Admin ครับ ขอสอบถามอีก นิดดดดด นึงครับ แบบที่ Admin ส่งมาให้ เป็นการ เชื่อมต่อกับ เพิ่ม ขอรบกวน การ ลบ อีกหน่อยได้ไหมครับ
ขอบคุณร่วงหน้าครับ ขอบคุณความรู้ดีๆนะครับ

puklit

anuyut1995 ตอบกลับเมื่อ 2019-1-21 15:19
Admin ครับ ขอสอบถามอีก นิดดดดด นึงครับ แบบที่ Admin ส่งมาใ ...

ท่านลองประยุกต์ดูครับ
โค้ดของอาจารย์ ทำเชื่อมต่อไว้ให้แล้ว มีตัวอย่าง Insert แล้ว
เหลือแค่ท่านลองแค่เปลี่ยน คำสั่ง SQL command เท่านั้น

DELETE FROM [MySheet$] WHERE condition
หรือถ้าต้องการจัดการข้อมูลใน Sheet (Range / Cell value / Formular / Chart)
ผมได้ทำตัวอย่างไว้แล้วที่
[VB.NET] การ Export ข้อมูลจาก Datagridview ไป Excel file (แบบใส่ไข่)
http://www.g2gnet.com/webboard/forum.php?mod=viewthread&tid=80&extra=page%3D3

anuyut1995

ผมลองมาหลายวันแล้วก็ยังไม่ได้นะครับ ติดเริ่องการลบ พาชี้ทางให้เด็กเดินหน่อยได้ไหมครับ

puklit

anuyut1995 ตอบกลับเมื่อ 2019-1-21 16:16
ผมลองมาหลายวันแล้วก็ยังไม่ได้นะครับ ติดเริ่องการลบ พาชี้ทางให้เด็กเดินหน่อยได้ไหมครับ

ก่อนอื่น ผมต้องขออภัยครับ ที่ไม่ได้หาข้อมูลเพิ่มก่อนตอบ
เบื้องต้นสรุปคร่าว ๆ คือ การเชื่อมต่อไฟล์ Excel ผ่านทาง OLEDBสามารถทำได้เพียง INSERT & UPDATE เท่านั้นไม่สามารถ DELETE ได้



หากต้องการลบแถวต้องวิธีทำผ่านทาง Library Excel interop แทน

anuyut1995

พอมีวิธีอื่น บ้างไหมครับ ช่วยแนะนำหน่อยครับ

puklit

anuyut1995 ตอบกลับเมื่อ 2019-1-22 07:58
พอมีวิธีอื่น บ้างไหมครับ ช่วยแนะนำหน่อยครับ

ท่านลองไปดูเนื้อหาของ Library ดังต่อไปนี้ ผมให้ไป 2 ตัว ท่านสามารถเลือกใช้ตัวใดตัวหนึ่งก็ได้ สามารถเข้าถึงจัดการไฟล์ Excel ได้เหมือนกัน
Microsoft.Office.Interop.Excel หรือ EPPlus

การลบแถวโดยตรงเมื่อเข้าถึง Sheet ข้อมูล ผ่าน Library
1. แล้วก็ Loop หาข้อมูล พอเจอข้อมูลก็ลบแถวออก
2. หลังจากลบแถวออก สั่งบันทึกไฟล์อีกครั้ง ก่อนปิดไฟล์ Excel
(ข้อนี้ผมไม่รู้ว่า Performance จะช้าหรือเร็ว ขึ้นอยู่กับข้อมูล)

จากโค้ดข้างล่างนี้ผมลองทำตัวอย่างมาให้ดูในการหา Rows Index ของ Excel ผ่าน DataSet (ที่ได้ทำสำเนาข้อมูลจากไฟล์ Excel มาเก็บใน DataSet)
ท่านสามารถนำไปเขียนต่อยอด โดยการ Loop หรือ ใช้ LinQ (SQL WHERE Clause) ผ่าน DataSet เพื่อเก็บ Rows Index ของ Excel ที่ต้องการลบ
แล้วสั่งการลบผ่าน Library Microsoft.Office.Interop.Excel หรือ EPPlus

จากนี้ท่านคงเห็นแล้วนะครับ สามารถลบได้แต่ Performance สู้ Database โดยตรงไม่ได้ เพราะต้องทำขั้นตอนมากกว่า

ตัวอย่างโค้ดเป็นเพียงการ หา Rows Index จากไฟล์ Excel เท่านั้น

1. Dim Conn As New OleDbConnection
   
2.         Conn.ConnectionString = CreateConnString(MyPath(Application.StartupPath) + "Book1.xls")
   
3. 
   
4.         Dim strSQL As String = "SELECT * FROM [MySheet$] "
   
5.         Dim DA = New OleDbDataAdapter(strSQL, Conn)
   
6. 
   
7.         Try
   
8.             Conn.Open()
   
9.             Dim DS = New DataSet
   
10.             DS.Clear()
    
11.             DA.Fill(DS, "MySheet")
    
12.             Conn.Close()
    
13. 
    
14.             '// Clear screen
    
15.             Call ClearScreen()
    
16. 
    
17.             Dim msg As String
    
18.             msg = String.Empty
    
19. 
    
20.             If Not DS.Tables("MySheet").Rows.Count = 0 Then
    
21. 
    
22.                 For Each dr As DataRow In DS.Tables(0).Rows
    
23. 
    
24.                     msg += dr("MemberID").ToString() & " " _
    
25.                            & dr("Firstname").ToString() & " " _
    
26.                            & dr("Lastname").ToString() & " " _
    
27.                            & dr("MemberShip").ToString() & " " _
    
28.                            & DS.Tables(0).Rows.IndexOf(dr) + 2 _
    
29.                            & vbNewLine
    
30. 
    
31.                 Next
    
32. 
    
33.                 MessageBox.Show(msg)
    
34. 
    
35.             End If
    
36. 
    
37.         Catch ex As Exception
    
38.             MsgBox("Error: " & ex.Message)
    
39.             Conn.Close()
    
40.         End Try

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

ตัวอย่างโค้ดที่รันออกมา MessageBox ที่ผมวงสีเขียวคือ ค่า Rows Index ที่จะใช้อ้างอิงในการลบแถวผ่าน Library ที่ผมได้ให้ไปครับ


อย่างที่อาจารย์ได้บอกไว้ Excel มันก็สามารถทำฐานข้อมูลได้ แต่มันก็มีข้อจำกัดในการใช้งานเหมือนกัน
MS- Excel สามารถทำได้ในรูปแบบ MS-Word หรือ MS-Access แต่ไม่เก่งเท่า MS-Access ในด้านฐานข้อมูล สุดท้่ายอยู่ที่ท่านจะเลือกใช้อะไรในการเก็บ
ส่วนตัวผมใช้ MS-Excel ในการ Import/Export และสร้าง Report เท่านั้น ส่วนฐานข้อมูลก็ต้องยกหน้าที่ให้ MS-Access หรือ Database ตัวอื่น ๆ

anuyut1995

ขอบคุณครับสำหรับความรู้