Menyimpan Koneksi Database Di File txt Dengan VB.Net

Pagi menjelang siang.....!!!!!

hari ini libur kerja, gak ada kerjaan dikos. BORIINGGGG....!!!

hmm, kok jadi curhat gini. hahahaha

Ok. langsung aja sesuai judul postingan yaitu menyimpan koneksi aplikasi di file txt.
pertama kita buat file txt seperti pada gambar berikut :

note : baris pertama nama server

          baris kedua nama database

          baris ketiga nama user

          baris keempat password

untuk database disini saya menggunakan SQL Server. :D

jika sudah simpan file txt tersebut dengan nama koneksi dan di simpan di file bin/debug aplikasi yang kita buat.

selanjutnya kita buat project di visual studio, untuk nama project terserah, bebas yang penting sopan dan rapi. :D

ok. jika sudah tinggal design form sederhana seperti berikut :

jika sudah, tambahkan sebuah class baru kedalam project dengan nama ClsKoneksi

masukkan source code berikut :

Imports System.IO Imports System.Data.SqlClient Public Class ClsKoneksi     Protected con As New SqlConnection     Public Function OpenConn() As Boolean         On Error Resume Next         Dim txtPath As String = Application.StartupPath & "\koneksi.txt"         Dim server, database, user, password As String         server = (ReadALine(txtPath, GetNumberOfLines(txtPath), 0)) 'mengambil baris pertama         database = (ReadALine(txtPath, GetNumberOfLines(txtPath), 1)) 'baris kedua         user = (ReadALine(txtPath, GetNumberOfLines(txtPath), 2)) 'baris ketiga         password = (ReadALine(txtPath, GetNumberOfLines(txtPath), 3)) 'baris keempat         con = New SqlConnection("Data Source = " & server & "; Database=" & database & ";user id=" & user & ";password=" & password & "")         con.Open()         If con.State <> ConnectionState.Open Then             Return False         Else             Return True         End If     End Function     Public Sub closeCon()         If Not IsNothing(con) Then             con.Close()             con = Nothing         End If     End Sub     Public Function GetNumberOfLines(ByVal file_path As String) As Integer         Dim sr As New StreamReader(file_path)         Dim NumberOfLines As Integer         Do While sr.Peek >= 0             sr.ReadLine()             NumberOfLines += 1         Loop         Return NumberOfLines         sr.Close()         sr.Dispose()     End Function     Public Function ReadALine(ByVal File_Path As String, ByVal TotalLine As Integer, ByVal Line2Read As Integer) As String         Dim Buffer As Array         Dim Line As String         If TotalLine <= Line2Read Then             Return "No Such Line"         End If         Buffer = File.ReadAllLines(File_Path)         Line = Buffer(Line2Read)         Return Line     End Function End Class

kemudian double click button Tes Koneksi pada form lalu masukkan source code barikut :

If Not koneksi.OpenConn Then             MsgBox("Koneksi Gagal")             Exit Sub         Else             MsgBox("Koneksi Berhasil") End If

sekarang testing, jalankan program dan klik button tes koneksi.
dan hasilnya seperti ini :

Ok. cukup sampai disini postingan kali ini, semoga bermanfaat untuk sobat blogger.

see you to next Post.

:D

jangan lupa komentarnya ya......

heheheheheehehe