Menyimpan Setting Koneksi Vb.Net Ms Access

Artikel ini agar bisa menjawab pertanyaan dari Andre di we.com/search?q=vbnet-menyimpan-setting-koneksi-di-user

Sebenernya Rani udah pernah diskusikan ihwal koneksi VB.NET ke Ms. Access di we.com/search?q=vbnet-menyimpan-setting-koneksi-di-user karena memang kebanyakan kita menyimpan file database access di folder yang serupa dengan file exe saat dicompile.

Tapi klo pengen menciptakan connection string yang lebih dinamis, setuju Rani coba kasih acuan tapi terbatas cuma pada lokasi penyimpanan file database access nya yah. Dan Rani anggap temen2 coder udah tau klo connection string itu mampu bermacam2 juga. Tergantung versi dan settingan seperti password atau penggunaan Data Directory.

Rani cuman kasih 1 pola connection string standard: (teks dengan highlight kuning yaitu nilai yang mau dibuat dinamis.

Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\latihan.accdb;Persist Security Info=False;

OLEDB 12.0 berlaku untuk access2007, 2010, 2013. Rani buat database bernama latihan.accdb dan menciptakan copy 2 file yang disimpan di path:

• D:\latihan.accdb
• D:\Blogging\latihan.accdb

Isi database kira-kira mirip ini dan nanti Rani bakal pakai tabel klasifikasi selaku pola.

Lalu kita beranjak ke project VB.NET. Project yang Rani gunakan sebagaimana terlihat pada gambar di bawah. Form1 dengan layout sebagai berikut:

Kemudian kita buka project properties.

Klik bab setting, maka kita akan ditawarkan grid/tabel untuk menginput data setting yang kita perlukan.

Rani membuatsatu saja, berjulukan dbPath (yang akan menjadi nama property setting ketika dipanggil di code). Type string karena memang mau digabungkan dengan connection string, Scope = User supaya ketika telah compile user dapat mengganti dan perubahan tersimpan di setting. Value permulaan aku buat D:\latihan.accdb.

Kemudian kita kembali ke code di belakang Form1.

Public Class Form1

    Dim strConn As String

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        'menampilkan nilai dbPath saat ini

        txtFile.Text = My.Settings.dbPath

        'Kombinasi nilai dbPath dengan connection string

        strConn = "Provider=Microsoft.ACE.OLEDB.12.0;" & _

                  "Data Source=" & My.Settings.dbPath & ";" &  _

                  "Persist Security Info=False;"

        lblConnectionString.Text = strConn

    End Sub

End Class

Saat kita coba run, code di atas akan menciptakan tampilan sebagai berikut:

Lanjut kita buat code untuk memilih file dengan OpenFileDialog.

Private Sub btnFile_Click(sender As Object, e As EventArgs) Handles btnFile.Click

    OpenFileDialog1.Filter = "Ms. Access

blogger

Cara Menjahit Kerudung Dua Lapis

Tutorial Membuat Web Online Part 10: Cara Upload File Website Menggunakan FTP