[VB.NET] วิธีการจัดเก็บ และดึงข้อมูลที่กำหนดเองจาก app.config

thongkorn

บทความนี้อธิบายถึงวิธีการเก็บข้อมูลแบบกำหนดเองในแฟ้มการตั้งค่าคอนฟิก (.config ของโปรแกรม) ที่คุณสามารถเรียกดูได้ในภายหลัง ในระหว่างการรันไทม์ของแอพพลิเคชันที่เกี่ยวข้อง มีประโยชน์เมื่อคุณต้องกำหนดข้อมูลที่เกี่ยวข้องกับแอพพลิเคชัน (แปลจาก Microsoft 5555+ ... https://support.microsoft.com/th-th/help/815786/how-to-store-and-retrieve-custom-information-from-an-application-confi)

1. <?xml version="1.0" encoding="utf-8"?>
   
2. <configuration>
   
3.   <appSettings>
   
4.     <add key="Server" value="(local)" />
   
5.     <add key="Database" value="G2GNETDB" />
   
6.     <add key="uid" value="admin" />
   
7.     <add key="pwd" value="admin" />
   
8.     <add key="providerType" value="Sql" />
   
9.     <add key="databaseVersion" value="MSSQL2016" />
   
10.   </appSettings>
    
11. </configuration>

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

รูปร่างหน้าตาของไฟล์ app.config ก็จะอยู่ในรูปแบบของ XML (eXtensible Markup Language) อีกแล้วครับท่าน ...

อันดับแรกต้องอ้างอิง Library หรือ การเรียกใช้ Reference --> System.Configuration

1.         '<?xml version="1.0" encoding="utf-8"?>
   
2.         '<configuration>
   
3.         '<appSettings>
   
4.         '<add key="Server" value="(local)" />
   
5.         '<add key="Database" value="G2GNETDB" />
   
6.         '<add key="uid" value="admin" />
   
7.         '<add key="pwd" value="admin" />
   
8.         '<add key="providerType" value="Sql" />
   
9.         '<add key="databaseVersion" value="MSSQL2016" />
   
10.         '</appSettings>
    
11.         '</configuration>
    
12.         Try
    
13.             Dim reader As New System.Configuration.AppSettingsReader
    
14.             txtServer.Text = reader.GetValue("server", GetType(String))
    
15.             txtDatabase.Text = reader.GetValue("database", GetType(String))
    
16.             txtUID.Text = reader.GetValue("uid", GetType(String))
    
17.             txtPwd.Text = reader.GetValue("pwd", GetType(String))
    
18.             btnSave.Enabled = True
    
19. 
    
20.         Catch ex As Exception
    
21.             MessageBox.Show(ex.Message, "Read Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    
22.         End Try

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

มีอยู่หลายวิธีในการเรียกข้อมูลออกมาจาก app.config สำหรับตัวอย่างนี้แอดมินใช้ Class AppSettingsReader เพื่อเลือกการอ่านเฉพาะค่าออกมาเลย ... (https://msdn.microsoft.com/en-us/library/system.configuration.appsettingsreader(v=vs.110).aspx)

1.         Dim config As Configuration = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)
   
2.         Dim settings As KeyValueConfigurationCollection = config.AppSettings.Settings
   
3.         Try
   
4.             '// update SaveBeforeExit
   
5.             settings("server").Value = txtServer.Text
   
6.             settings("database").Value = txtDatabase.Text
   
7.             settings("uid").Value = txtUID.Text
   
8.             settings("pwd").Value = txtPwd.Text
   
9.             '//save the file
   
10.             config.Save(ConfigurationSaveMode.Modified)
    
11.             ConfigurationManager.RefreshSection(config.AppSettings.SectionInformation.Name)
    
12. 
    
13.             MessageBox.Show("Update Setting.", "Report status", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
14.             btnSave.Enabled = False
    
15. 
    
16.         Catch ex As Exception
    
17.             MessageBox.Show(ex.Message)
    
18.         End Try

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

สำหรับการ Save ข้อมูลกลับเข้าไปใน app.config

IMPORTANT - สำคัญเชียวน่ะจะบอกให้
เมื่อเราสั่งทดสอบโปรแกรมด้วยการกด F5 หากเกิดการเปลี่ยนแปลงใดๆของข้อมูล เราจะมองไม่เห็น เพราะว่าตำแหน่งของไฟล์ Execute กับไฟล์ app.config อยู่คนละตำแหน่งกัน ... การใช้วิธีนี้ต้อง Build Project ก่อน จากนั้น App.Config มันจะถูกคัดลอกนำไปไว้ยังโฟลเดอร์ Debug/Release (ขึ้นกับว่าเราไปกำหนดให้ Execute ที่ไหน) จากนั้นมันก็สร้าง ชื่อโปรเจค.exe.config เช่นตัวอย่างนี้คือ MyAppConfig ... เราจะรันเพื่อให้สามารถเปลี่ยนแปลงข้อมูลได้ที่นี่
มาดูโค้ดฉบับเต็ม ...

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. ' /
   
8. ' / Purpose: Using app.config for user defined @runtime parameters.
   
9. ' / Microsoft Visual Basic .NET (2010)
   
10. ' /
    
11. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
12. ' / You can modify and/or distribute without to inform the developer.
    
13. ' / --------------------------------------------------------------------------------
    
14. Imports System.Configuration
    
15. 
    
16. Public Class frmConfig
    
17.     Private Sub btnLoad_Click(sender As System.Object, e As System.EventArgs) Handles btnLoad.Click
    
18.         '<?xml version="1.0" encoding="utf-8"?>
    
19.         '<configuration>
    
20.         '<appSettings>
    
21.         '<add key="Server" value="(local)" />
    
22.         '<add key="Database" value="G2GNETDB" />
    
23.         '<add key="uid" value="admin" />
    
24.         '<add key="pwd" value="admin" />
    
25.         '<add key="providerType" value="Sql" />
    
26.         '<add key="databaseVersion" value="MSSQL2016" />
    
27.         '</appSettings>
    
28.         '</configuration>
    
29.         Try
    
30.             Dim reader As New System.Configuration.AppSettingsReader
    
31.             txtServer.Text = reader.GetValue("server", GetType(String))
    
32.             txtDatabase.Text = reader.GetValue("database", GetType(String))
    
33.             txtUID.Text = reader.GetValue("uid", GetType(String))
    
34.             txtPwd.Text = reader.GetValue("pwd", GetType(String))
    
35.             btnSave.Enabled = True
    
36. 
    
37.         Catch ex As Exception
    
38.             MessageBox.Show(ex.Message, "Read Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    
39.         End Try
    
40. 
    
41.     End Sub
    
42. 
    
43.     Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click
    
44.         Dim config As Configuration = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)
    
45.         Dim settings As KeyValueConfigurationCollection = config.AppSettings.Settings
    
46.         Try
    
47.             '// update SaveBeforeExit
    
48.             settings("server").Value = txtServer.Text
    
49.             settings("database").Value = txtDatabase.Text
    
50.             settings("uid").Value = txtUID.Text
    
51.             settings("pwd").Value = txtPwd.Text
    
52.             '//save the file
    
53.             config.Save(ConfigurationSaveMode.Modified)
    
54.             ConfigurationManager.RefreshSection(config.AppSettings.SectionInformation.Name)
    
55.             '// Or use sub program from MSDN.
    
56.             '//AddUpdateAppSettings("database", txtDatabase.Text)
    
57. 
    
58.             MessageBox.Show("Update Setting.", "Report status", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
59.             btnSave.Enabled = False
    
60. 
    
61.         Catch ex As Exception
    
62.             MessageBox.Show(ex.Message)
    
63.         End Try
    
64.     End Sub
    
65. 
    
66.     '// If you want to learn more.
    
67.     '// https://msdn.microsoft.com/en-us/library/system.configuration.configurationmanager.appsettings(v=vs.110).aspx
    
68.     Sub AddUpdateAppSettings(key As String, value As String)
    
69.         Try
    
70.             Dim configFile = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)
    
71.             Dim settings = configFile.AppSettings.Settings
    
72.             If IsNothing(settings(key)) Then
    
73.                 settings.Add(key, value)
    
74.             Else
    
75.                 settings(key).Value = value
    
76.             End If
    
77.             configFile.Save(ConfigurationSaveMode.Modified)
    
78.             ConfigurationManager.RefreshSection(configFile.AppSettings.SectionInformation.Name)
    
79.         Catch e As ConfigurationErrorsException
    
80.             MessageBox.Show("Error writing app settings: " & vbCrLf & e.Message)
    
81.         End Try
    
82.     End Sub
    
83. 
    
84.     Private Sub frmConfig_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
85.         btnSave.Enabled = False
    
86.     End Sub
    
87. 
    
88.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
    
89.         Me.Close()
    
90.     End Sub
    
91. 
    
92.     Private Sub frmConfig_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
93.         Me.Dispose()
    
94.         Application.Exit()
    
95.     End Sub
    
96. 
    
97. End Class

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

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

g2gsoftuser

ขอบคุณครับ

MMEE007

ขอบพระคุณคัพ อาจารย์