Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,027

HOME > .NET Framework > Forum > VB.NET รบกวนสอบถามเรื่องการสร้างฟอร์มเพื่อกำหนด Update แก้ไขค่าค่าในไฟล์ App.Config



 

VB.NET รบกวนสอบถามเรื่องการสร้างฟอร์มเพื่อกำหนด Update แก้ไขค่าค่าในไฟล์ App.Config

 



Topic : 090254



โพสกระทู้ ( 153 )
บทความ ( 0 )



สถานะออฟไลน์




ถ้าหากว่าเราจะสร้างฟอร์มขึ้นมาเพื่อให้ไป Update ค่าในไฟล์ app.config จะต้องทำอย่างไรหรอค่ะเพื่อที่ว่าผู้ใช้จะสามารถกำหนดค่าในการเริ่มใช้ระบบเองได้ในครั้งแรก และเมื่อองค์กรมีการเปลี่ยนแปลงฐานข้อมูลหรือ server ผู้ใช้จะสามารถเข้ามาแก้ไขได้โดยผ่านฟอร์มนี้

app.config



Tag : .NET, VB.NET







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2013-02-04 08:52:24 By : MooT View : 1865 Reply : 5
 

 

No. 1



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

App.Config
<appSettings>
    <add key="ConnectionString" value=""/>
 </appSettings>


แก้ไขค่า
 Dim config As System.Configuration.Configuration
    Dim fileMap As New ExeConfigurationFileMap()

    fileMap.ExeConfigFilename = "Path of app.config"
    config = ConfigurationManager.OpenMappedExeConfiguration(fileMap, ConfigurationUserLevel.None)

    '   Sets values to config file.
    If config.HasFile() Then

        config.AppSettings.Settings.Item("ConnectionString").Value = "Data Source=blah;Initial Catalog=blah;UID=blah;password=blah"
        config.Save(ConfigurationSaveMode.Modified)
        ConfigurationManager.RefreshSection("AppSettings")

    End If


อ่านค่า
  Dim config As System.Configuration.Configuration
    Dim fileMap As New ExeConfigurationFileMap()

 fileMap.ExeConfigFilename = "Path of app.config"
    config = ConfigurationManager.OpenMappedExeConfiguration(fileMap, ConfigurationUserLevel.None)

    '   Sets values to config file.
    If config.HasFile() Then

        strConnString = config.AppSettings.Settings.Item("ConnectionString").Value

    End If







แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-02-04 09:54:56 By : mr.win
 


 

No. 2



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

เห็นใน Code Project ครับ ลองเข้าไปดู

Update App.Config

http://www.codeproject.com/Articles/18128/Modifying-app-config-File

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-02-04 10:01:04 By : mr.win
 

 

No. 3



โพสกระทู้ ( 153 )
บทความ ( 0 )



สถานะออฟไลน์


ขอบคุณมากน่ะค่ะ เหมือนพบแสงสว่างในชีวิตขึ้นมาทันที 55+
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-02-04 10:52:46 By : MooT
 


 

No. 4



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

ทำได้ยังไงลองเอามาแชร์กันดูครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-02-04 10:55:46 By : mr.win
 


 

No. 5



โพสกระทู้ ( 153 )
บทความ ( 0 )



สถานะออฟไลน์


ตอบความคิดเห็นที่ : 4 เขียนโดย : mr.win เมื่อวันที่ 2013-02-04 10:55:46
รายละเอียดของการตอบ ::
ตอนนี้สามารถรันไฟล์ได้แล้วค่ะ แต่ไม่รู้จะเปิดconnection ยังไงรบกวนด้วยน่ะค่ะ

code>>>frmChaneSettings

Public Class frmChaneSettings
Private Sub frmChaneSettings_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
LoadConfigValueToControls()
End Sub

''' <summary>
''' This Will set the appConfigs Paramters values to Text box Controls
''' </summary>
''' <remarks></remarks>
Private Sub LoadConfigValueToControls()
txtServerName.Text = System.Configuration.ConfigurationSettings.AppSettings.Get("DBServerName")
txtDBName.Text = System.Configuration.ConfigurationSettings.AppSettings.Get("DatabaseName")
txtDBUserID.Text = System.Configuration.ConfigurationSettings.AppSettings.Get("DatabaseUserID")
txtDBPwd.Text = System.Configuration.ConfigurationSettings.AppSettings.Get("DatabasePwd")
End Sub

Private Sub btnChange_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnChange.Click
AppConfigFileSettings.UpdateAppSettings("DBServerName", txtServerName.Text)
AppConfigFileSettings.UpdateAppSettings("DatabaseName", txtDBName.Text)
AppConfigFileSettings.UpdateAppSettings("DatabaseUserID", txtDBUserID.Text)
AppConfigFileSettings.UpdateAppSettings("DatabasePwd", txtDBPwd.Text)
MsgBox("Application Settings has been Changed successfully.")
End Sub

Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
Application.Exit()
End Sub


code >> AppConfigFileSettings.vb

Imports System.Configuration
Imports System.Xml

''' <summary>
''' AppConfigFileSettings: This class is used to Change the AppConfigs Paramters at rumtime through User Interface
''' </summary>
''' <remarks></remarks>
Public Class AppConfigFileSettings

''' <summary>
''' UpdateAppSettings: It will update the app.Config file AppConfig key values
''' </summary>
''' <param name="KeyName">AppConfigs KeyName</param>
''' <param name="KeyValue">AppConfigs KeyValue</param>
''' <remarks></remarks>
Public Shared Sub UpdateAppSettings(ByVal KeyName As String, ByVal KeyValue As String)
Dim XmlDoc As New XmlDocument()
XmlDoc.Load(AppDomain.CurrentDomain.SetupInformation.ConfigurationFile)
For Each xElement As XmlElement In XmlDoc.DocumentElement
If xElement.Name = "appSettings" Then
For Each xNode As XmlNode In xElement.ChildNodes
If xNode.Attributes(0).Value = KeyName Then
xNode.Attributes(1).Value = KeyValue
End If
Next
End If
Next
XmlDoc.Save(AppDomain.CurrentDomain.SetupInformation.ConfigurationFile)
End Sub
End Class

code >> app.config
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<appSettings>
<add key="DBServerName" value="Localhost"></add>
<add key="DatabaseName" value="TestDB"></add>
<add key="DatabaseUserID" value="sa"></add>
<add key="DatabasePwd" value="sa"></add>
</appSettings>
<configSections>
</configSections>
<system.diagnostics>
<sources>
<!-- This section defines the logging configuration for My.Application.Log -->
<source name="DefaultSource" switchName="DefaultSwitch">
<listeners>
<add name="FileLog"/>
<!-- Uncomment the below section to write to the Application Event Log -->
<!--<add name="EventLog"/>-->
</listeners>
</source>
</sources>
<switches>
<add name="DefaultSwitch" value="Information" />
</switches>
<sharedListeners>
<add name="FileLog"
type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL"
initializeData="FileLogWriter"/>
<!-- Uncomment the below section and replace APPLICATION_NAME with the name of your application to write to the Application Event Log -->
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
</sharedListeners>
</system.diagnostics>
</configuration>

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-02-05 15:50:57 By : MooT
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : VB.NET รบกวนสอบถามเรื่องการสร้างฟอร์มเพื่อกำหนด Update แก้ไขค่าค่าในไฟล์ App.Config
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 01
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่