Skip to main content

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

Labels:

Comments

  1. memet24 February 2018 at 12:14

    This comment has been removed by the author.

    ReplyDelete
  2. Yori19 June 2020 at 20:58

    koneksi.OpenConn => koneksi is not declared.. mohon pencerahannya

    ReplyDelete

Post a Comment

Popular posts from this blog

PHP MySql CRUD Dengan Konsep MVC

Pada postingan kali ini saya akan sharing cara membuat CRUD dengan php menggunakan konsep MVC, ok langsung saja buka code editor (saya menggunakan sublime text) dan buat folder baru dengan nama phpmvc didalam folder htdocs kalian dan tambah folder seperti berikut :  Setelah itu kita siapkan database di mysql, buat database dengan nama phpmvc dan tablenya seperti gambar berikut : tambahkan file config.php didalam folder app/config : <?php define('BASEURL', 'http://localhost:8181/phpmvc/public'); define('DB_HOST', 'localhost'); define('DB_USER', 'root'); define('DB_PASS', ''); define('DB_NAME', 'phpmvc'); kemudian tambahkan 3 file controller didalam folder app/controllers, yaitu Home, About, dan Mahasiswa : Home.php <?php class Home extends Controller { public function index() { $data['nama'] = $this->model('User_model')->getUser()...
22 comments
Read more

Cara Sederhana Multi Insert Data Dengan PHP - MySQL

Pada postingan kali ini saya akan share cara melakukan insert lebih dari satu data dengan menggunaka PHP- Jquery dan MySQL. Pertama buat database di MySQL dan table, disini saya membuat database dengan nama db_latihan dan table dengan nama t_barang dengan struktur table seperti berikut : Setelah membuat database dan table selanjutnya membuat project PHP, project PHP nya saya buat dengan nama multi-insert, lalu didalam folder ini saya membuat dua file yaitu index.php dan insert.php . Source code index.php seperti berikut : <! doctype   html > < html   lang = "en" >    < head >      <!-- Required meta tags -->      < meta   charset = "utf-8" >      < meta   name = "viewport"   content = "width=device-width, initial-scale=1" >      <!-- Bootstrap CSS -->      < link ...
2 comments
Read more

Laravel - Sistem Informasi Perpustakaan Sederhana Laravel

Postingan kali saya akan sharing membuat aplikasi perpustakaan sederhana menggunakan laravel 5.8, dimana terdapan menu Anggota, Kategori Buku, Daftar Buku dan Transaksi (Peminjaman/Pengembalian Buku). ok langsung saja kita buat project laravel dengan nama perpus : composer create-project --prefer-dist laravel/laravel perpus setelah create project laravel-nya selesai kita buat database melalui localhost/phpmyadmin dengan nama db_perpus, lalu kita buka project laravel dengan code editor disini saya menggunakan visual studio code. Setelah project kita buka dengan code editor, pertama kita atur koneksi database yang ada di file .env, kita rubah menjadi seperti berikut : note : untuk db_username dan db_password di sesuiakan dengan configurasi masing-masing. Selanjutnya kita tambahkan 4 buah data migration yaitu : table_anggota, table_kategori, table_buku, table_transaksi, kita buka terminal dan jalankan command berikut :  php artisan make:migration crea...
14 comments
Read more