Tutorial Pemrograman Delphi dan Visual Basic untuk Path Database

Bila aplikasi mengalami masalah pada saat dirubah nama foldernya atau pada saat dipindahkan ke folder lain, mungkin itu karena anda memberikan path absolute ke file-file atau database yang digunakannya.
Untuk menghindari masalah seperti yang saya sebutkan diatas, anda harus membuat path ke file-file yang digunakannya menjadi path relative. Misalnya anda mempunyai aplikasi yang disimpan di "F:\APP\VB\PathRelative\Contoh.exe" dan databasenya disimpan di "F:\APP\VB\PathRelative\Sample.mdb".

Visual Basic Syntax

Berdasarkan contoh diatas, berikut ini syntax Visual Basic agar path ke database "Sample.mdb" menjadi relative :

koneksi_ado.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source=" & app.path & "\sample.mdb;Persist Security Info=True"

Property Path dari App.path digunakan untuk menghasilkan path ke aplikasi .exe berada. pada contoh diatas aplikasi .exe anda berada di "F:\APP\VB\PathRelative", sehingga kode app.path & "\sample.mdb" akan menghasilkan "F:\APP\VB\PathRelative\sample.mdb".

Delphi Syntax

dan dibawah ini adalah syntax Delphi agar path ke database "Sample.mdb" menjadi relative :

koneksi_ado.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source=sample.mdb;Persist Security Info=True"

Apabila anda menggunakan komponen seperti Adodc di Visual Basic atau Adoconnection di Delphi untuk koneksi ke database, maka setting Data Sourcenya adalah seperti gambar dibawah ini :

Path yang tadinya adalah path lengkap (absolute) => "F:\APP\VB\PathRelative\sample.mdb"
anda rubah menjadi => "sample.mdb"
Dengan cara seperti ini maka, aplikasi akan mencari file-file yang telah dideklarasikan sebelumnya di folder manapun aplikasi tersebut ditempatkan.

Read more Read More...

Tutorial pemrograman Delphi dan Visual Basic Menampilkan Dua Baris Pesan pada Messagebox

Kadang kita ingin agar teks dalam sebuah messagebox atau message dialog dalam aplikasi kita menjadi beberapa baris karena teks yang akan kita tampilkan cukup panjang dan kurang indah jika pesan tersebut ditempatkan dalam satu baris.

Berikut ini adalah cara menampilkan teks dua baris pada messagebox di Delphi :

application.MessageBox('Ini adalah baris pertama pesan'+chr(10)+ 'Ini adalah baris kedua pesan','Informasi',mb_ok)

Berikut ini adalah cara menampilkan teks dua baris pada messagebox di Visual Basic :

MsgBox "Ini adalah baris pertama pesan" & Chr(10) & "Ini adalah baris kedua pesan", vbOKOnly, "Informasi"

Read more Read More...