Friend Class UserLogin
Public Shared User As String = ""
Public Shared UserPass As String = ""
Public Shared UserLstName As String = ""
Public Shared UserFstName As String = ""
End Class
สร้าง Friend Class ขึ้นมาครับ
จะสามารถใช้ได้ทั้งโปรแกรม โดยไม่ต้องประกาศตัวแปรให้ยุ่งยาก สามารถเรียกใช้งานได้จากทุก form
Code (VB.NET)
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
UserLogin.User = "TOR 5555"
End Sub
End Class
Code (VB.NET)
Public Class Form3
Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
MessageBox.Show(UserLogin.UserFstName)
End Sub
End Class
Private Sub InitConnection()
Me._connection = New Global.System.Data.OleDb.OleDbConnection()
Me._connection.ConnectionString = Global.WindowsApplication1.My.MySettings.Default.PostCodeConnectionString
End Sub
Dim constr As String = "Data Source=10.x.x.x;Initial Catalog=TEST_DB;Persist Security Info=true;User ID=sa;Password=123456"
Dim con As New SqlConnection(constr)
'PostCodeConnectionString
Dim con As New SqlConnection(Global.WindowsApplication1.My.MySettings.Default.PostCodeConnectionString)
'ฐานข้อมูล1ConnectionString
Dim con As New SqlConnection(Global.WindowsApplication1.My.MySettings.Default.ฐานข้อมูล1ConnectionString)
'FormRecordConnectionString
Dim con As New SqlConnection(Global.WindowsApplication1.My.MySettings.Default.FormRecordConnectionString)
หรือถ้าต้องการแยกแต่ละ Connection ก็
Code (VB.NET)
'PostCodeConnectionString
Dim conPostCode As New SqlConnection(Global.WindowsApplication1.My.MySettings.Default.PostCodeConnectionString)
'ฐานข้อมูล1ConnectionString
Dim conฐานข้อมูล1 As New SqlConnection(Global.WindowsApplication1.My.MySettings.Default.ฐานข้อมูล1ConnectionString)
'FormRecordConnectionString
Dim conFormRecord As New SqlConnection(Global.WindowsApplication1.My.MySettings.Default.FormRecordConnectionString)
Dim path As String = "C:\Users\DATAAA\Documents\Visual Studio 2012\Projects\WindowsApplication1\WindowsApplication1\bin\Debug\WindowsApplication1.exe.config"
Dim fileReader As String = My.Computer.FileSystem.ReadAllText(path)
Try
fileReader = fileReader.Replace(My.Settings.ฐานข้อมูล1ConnectionString, "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=F:\DATA\ฐานข้อมูล1.accdb")
IO.File.WriteAllText(path, fileReader)
Catch ex As Exception
MsgBox("Error: " + ex.Message)
Return
End Try