Eh, sori, salah kasih pathnya.. hehe..
Nih yang bener...
App.path itu return path tempat aplikasinya (executable file) berada.
Jadi misalnya program VBnya itu buka database db_Problems.mdb, dan nama file
executable VB yang dibuat : file.exe
Semua file database & exe nya di masukin dalam c:\Program.
Nah, pas buat connection stringnya yang seharusnya :
con = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=c:\Program\db_Problems.mdb;Persist Security Info=False"
bisa diganti jadi:
con = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path &
"\db_Problems.mdb";Persist Security Info=False"
Catatan : File-nya mesti satu folder dengan file aplikasi (executable) nya.
Kalo misalkan database-nya dimasukin dalam c:\Program\DB
maka diganti jadi gini connection stringnya:
con = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path &
"\DB\db_Problems.mdb";Persist Security Info=False"
Cya.
Steven Luck <[EMAIL PROTECTED]> wrote: App.path
itu return path tempat aplikasinya (executable file) berada.
Jadi misalnya program VBnya itu buka database data.mdb, dan nama file
executable VB yang dibuat : file.exe
Semua file database & exe nya di masukin dalam c:\Program.
Nah, pas buat connection stringnya yang seharusnya :
con = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\My Documents\Steven's
Privacy\Lesson\ACM Problems\ACM Accepted\Organizer\db_Problems.mdb;Persist
Security Info=False"
bisa diganti jadi:
con = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path &
"\db_Problems.mdb";Persist Security Info=False"
Catatan : File-nya mesti satu folder dengan file aplikasi (executable) nya.
Kalo misalkan database-nya dimasukin dalam c:\Program\DB
maka diganti jadi gini connection stringnya:
con = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path &
"\DB\db_Problems.mdb";Persist Security Info=False"
Cya.
CMIIW
fachry ai <[EMAIL PROTECTED]> wrote: mohon
dikasih penjelasan mengenai app.path...
terima kasih banyak...
--- Hery Kurniawan <[EMAIL PROTECTED]> wrote:
> coba pakai app.path ajah....
>
> semoga membantu
>
>
> --- fachry ai <[EMAIL PROTECTED]> wrote:
>
> > kebetulan gw juga lagi belajar saat ini....
> > mungkin klo lu tau ntar,
> > kasi tw gw juga yah,...
> > biar kita sama2 pintar.....
> > cayo,....
> > Happy Idoel Fitrie 1428 H....
> >
> > galuh adi insani <[EMAIL PROTECTED]> wrote:
> > Teman-teman Indoprog semuanya saya
> membuat
> > sebuah aplikasi dengan
> > menggunakan database Access, pembuatannya adalah
> > dengan membuat database
> > Accessnya terlebih dahulu kemudian baru saya buat
> > script visual
> > basicnya, berikut contoh script VBnya:
> >
> > > Private Sub Form_Load()
> > > Dim Koneksi As String
> > > 'Driver ODBC Connection String
> > > Koneksi = "Driver={Microsoft Access Driver
> > (*.mdb)};" & _
> > > "Dbq=Kendali.mdb;" & _
> > > "DefaultDir=C:\Kendali;" & _
> > > "Uid=Admin;Pwd=;"
> > > conex.Open Koneksi
> > > End Sub
> > Yang menjadi permasalahan saya adalah file
> database
> > itu haruslah
> > terletak di dalam folder Kendali dengan nama
> > Kendali.mdb dan terletak di
> > drive C:. Pada saat saya package dengan package
> and
> > deployment, maka
> > akan terbentuk sebuah instaler. Nah pertanyaan
> saya
> > bagaimana caranya
> > agar pada saat saya instal program ini maka akan
> > terbentuk secara
> > default sebuah folder kendali yang berisi database
> > Kendali.mdb tersebut
> > dan letaknya persis seperti saat saya buat script
> > (C:\Kendali), karena
> > jika database tersebut saya letakkan kedalam
> folder
> > yang lain maka tidak
> > akan konek databasenya.
> >
> > Pertanyaan saya berikutnya adalah bagaimana
> caranya
> > agar meskipun
> > database diletakkan ditempat folder sembarang,
> > tetapi software dapat
> > mengenali database saya tersebut dengan nama
> > Kendali.mdb dengan cara
> > perubahan script, mungkin ada diantara teman-teman
> > yang ingin memberi
> > tahu saya script tersebut.
> >
> > Sebelum dan sesudahnya saya ucapkan banyak
> > terimakasih.
> >
> > Salam,
> > Galuh Adi Insani
> >
> > ++ Saya ucapkan mohon maaf lahir dan bathin,
> selamat
> > Idhul Fitri ++
> >
> >
> >
> >
> >
> > Send instant messages to your online friends
> > http://uk.messenger.yahoo.com
> >
> > [Non-text portions of this message have been
> > removed]
> >
> >
>
>
>
>
>
__________________________________________________________
> Boardwalk for $500? In 2007? Ha! Play Monopoly Here
> and Now (it's updated for today's economy) at Yahoo!
> Games.
>
http://get.games.yahoo.com/proddesc?gamekey=monopolyherenow
>
>
Send instant messages to your online friends http://uk.messenger.yahoo.com
Steven Luck
"The Only Thing for The Triumph of Evil is For A Good Man to Do Nothing"
---------------------------------
Check out the hottest 2008 models today at Yahoo! Autos.
[Non-text portions of this message have been removed]
Steven Luck
"The Only Thing for The Triumph of Evil is For A Good Man to Do Nothing"
---------------------------------
Boardwalk for $500? In 2007? Ha!
Play Monopoly Here and Now (it's updated for today's economy) at Yahoo! Games.
[Non-text portions of this message have been removed]
