Read the File
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