Read the File

 avatar
devsurigao
vbscript
13 days ago
672 B
11
Indexable
    Private Sub frmSetting_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If File.Exists(connectionStringFile) Then
            Dim connStr As String = LoadConnectionString()
            Dim parts = connStr.Split(";"c)

            For Each part In parts
                If part.StartsWith("Server=") Then txtServer.Text = part.Substring(7)
                If part.StartsWith("Database=") Then txtDatabase.Text = part.Substring(9)
                If part.StartsWith("Uid=") Then txtUser.Text = part.Substring(4)
                If part.StartsWith("Pwd=") Then txtPassword.Text = part.Substring(4)
            Next
        End If
    End Sub
Editor is loading...
Leave a Comment