Membuat fungsi koneksi menggunakan mysql pada vb.net menggunakan metode pengambilan data memalui file.txt

pada pembahasan kali ini saya merekomendasi agan semua untuk beralih menggunakan koneksi yang memungkinkan untuk di putus dan di sambungkan dengan koneksi ke database lain ataupun server yang lain,.

konsepnya adalah memindahkan file koneksi kebentuk file.txt yang memungkinkan untuk dibaca,
cara pertama yang harus di mulai adalah

1. membuat form yang memuat string yang akan menghasilkan tulisan pada file.txt
2. membuat module koneksi yang akan membaca file.txt
3. membuat prosedure pemanggilan fungsi koneksi

okey setelah memahami konsep mari kita menuju TKP

siapkan form koneksi didalam form_mysql_koneksi.vb
dan isikan dengan sekrip sebagai berikut

letakan di bagian atas :
Imports System.IO
Imports MySql.Data.MySqlClient

membuat prosedur buat()
    Public Sub buat()
        Dim TW As TextWriter
        If File.Exists("config.txt") Then
            File.Delete(My.Application.Info.DirectoryPath & "\config.txt")
        End If
        TW = File.CreateText("config.txt")
        TW.WriteLine(Tserver.Text)
        TW.WriteLine(Tuser.Text)
        TW.WriteLine(Tpass.Text)
        TW.WriteLine(Tdatabase.Text)
        TW.Close()
    End Sub

membuat prosedur string_txt()
    Sub string_text()
        Tserver.Text = "localhost"
        Tuser.Text = "root"
        Tpass.Text = ""
        Tdatabase.Text = "sibbuna"
    End Sub

membuat fungsi pemanggil prosedure diatas :
    Private Sub Boff_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Boff.Click
        Call string_text()
        Call buat()
        MsgBox("Koneksi Ke Localhost", MsgBoxStyle.Information)
    End Sub

langkah langkah di atas adalah cara untuk menulis pada file.txt

sekarang kita buat sebuah module untuk membaca file.txt
buatlah module fungsi seperti berikut:

membuat module dengan nama module1
sekarang buat prosedur data_koneksi().., jangan lupa untuk menaruh skrip ini di atas prosedur yang akan agan buat


Imports MySql.Data.MySqlClient
Imports System.IO
Module Module1
    Public Tserverr As String
    Public Tuserr As String
    Public Tpasss As String
    Public Tdatabasee As String
    Public conn As New MySql.Data.MySqlClient.MySqlConnection


    Public Sub Data_Koneksi()
        Dim fileReader = New StreamReader((My.Application.Info.DirectoryPath & "\config.txt"), True)
        Tserverr = "" & fileReader.ReadLine & ""
        Tuserr = "" & fileReader.ReadLine & ""
        Tpasss = "" & fileReader.ReadLine & ""
        Tdatabasee = "" & fileReader.ReadLine & ""
        fileReader.Close()
        conn.ConnectionString = "server='" & Tserverr & "';User Id='" & Tuserr & "';password='" & Tpasss & "';database='" & Tdatabasee & "'"
    End Sub

    Public Sub switch_koneksi()
        Try
            conn.Close()
            If conn.State = ConnectionState.Closed Then
                conn.Open()
            End If
        Catch ex As MySql.Data.MySqlClient.MySqlException
            MsgBox(ex.Message)
            conn.Close()
        End Try
    End Sub
end module

tahap yang ketiga adalah pemanggilan fungsi yang kita bikin

buatlah form login dan letakan fungsi pemanggilan pada saat load

 Private Sub Form_Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     Call Data_Koneksi()
end sub

 okey sampe disini klo ada pertanyaan silahkan isi di komentar
semoga bermanfaat