[Konfigurasi]
DBName=D:\DB\DATA.MDB
jadi kalo ada perubahan lokasi database u cukup ganti nilai "D:\DB\DATA.MDB" ke lokasi yang baru.
source code
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Dim DBName As String
Dim strConn As String
Private Function ReadINI(SectionHeader As String, VariableName As String, FileName As String, strDefault As String) As String
Dim Buffer As String
Dim x As Byte
Buffer = String(255, 0)
x = GetPrivateProfileString(SectionHeader, VariableName, strDefault, Buffer, 255, FileName)
If x <> 0 Then Buffer = Left$(Buffer, x)
ReadINI = Buffer
End Function
Private Sub Form_Load()
DBName = ReadINI("Konfigurasi", "DBName", App.Path & "\Konfigurasi.ini", App.Path)
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBName & ""
KonekDB.Open strConn
End Sub
DAS mania <[EMAIL PROTECTED]> wrote:
Untuk hal seperti ini saya sarankan anda membuat file config ( text file ) yang disertakan satu direktori dengan EXE file trus isi file tersebut sbb :
Database=D:\DBase.mdb
User=admin
Passwd=XXXX
jadi kemanapun databasenya dipindah, kita tinggal ganti text file tersebut, pastikan di program kita baca database dari file teks tersebut
semoga membantu
"_♠♥-ÑìtnôT-♥♠_" <[EMAIL PROTECTED]> wrote:
app.path itu stauku si bisa gantiin path alamat directory database
misalnya set2an connectin string nya spt ini :
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\viccy.mdb;Persist Security Info=False"
yang bertuliskan merah itu biasanya khan...
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\NitnoT.NIETNOET\Desktop\KP\New_KP\viccy.mdb;Persist Security Info=False"
jadi otomatis lebih fleksibel....
trus kalo emang mau gt, file database nya ama programnya dijadikan 1 folder ajah spy gak repot...or
make data link juga bisa, tp yang di ubah tar yang di data link nya
Hery Kurniawan <[EMAIL PROTECTED]> wrote: app.path itu sebenernya gunae buat apa to???
trus kalo saya pingin tempat databasenya jadi fleksible tanpa harus merubah coding gimana carae????
jadi misalkan program ada di drive C tapi database di drive D, tapi suatu saat Database itu isa pindah ke drive E, nah gimana carae biar kita ga buka coding trus ganti direktorie lagi????
kalo udah di exe kan susah juga....
tolong yah......
Thanks
---------------------------------
Ring'em or ping'em. Make PC-to-phone calls as low as 1¢/min with Yahoo! Messenger with Voice.
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Forum ini berkembang dengan pesat, jika anda memiliki
dedikasi dan waktu, silahkan mengaplikasikan diri
menjadi moderator.
SPONSORED LINKS
Computer internet security Computer internet business Computer internet access Computer internet privacy securities Computer internet help Computer internet connection
---------------------------------
YAHOO! GROUPS LINKS
Visit your group "indoprog-vb" on the web.
To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
---------------------------------
-,()()~~~~~~~~~~~~~~~~~~~~()+,,
+() o, ) [EMAIL PROTECTED] ( o,()-
,()(),,)~~~~~~~~~~~~~~~~~~~(,,()(),
---------------------------------
Blab-away for as little as 1¢/min. Make PC-to-Phone Calls using Yahoo! Messenger with Voice.
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Forum ini berkembang dengan pesat, jika anda memiliki
dedikasi dan waktu, silahkan mengaplikasikan diri
menjadi moderator.
SPONSORED LINKS
Computer internet security Computer internet business Computer internet access Computer internet privacy securities Computer internet help Computer internet connection
---------------------------------
YAHOO! GROUPS LINKS
Visit your group "indoprog-vb" on the web.
To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
---------------------------------
Best Regards,
DASmania Cool
Free 500 MB File Hosting at File Lodge
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Forum ini berkembang dengan pesat, jika anda memiliki
dedikasi dan waktu, silahkan mengaplikasikan diri
menjadi moderator.
SPONSORED LINKS
Computer internet security Computer internet business Computer internet access Computer internet privacy securities Computer internet help Computer internet connection
---------------------------------
YAHOO! GROUPS LINKS
Visit your group "indoprog-vb" on the web.
To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
---------------------------------
---------------------------------
Blab-away for as little as 1¢/min. Make PC-to-Phone Calls using Yahoo! Messenger with Voice.
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Forum ini berkembang dengan pesat, jika anda memiliki
dedikasi dan waktu, silahkan mengaplikasikan diri
menjadi moderator.
SPONSORED LINKS
| Computer internet security | Computer internet business | Computer internet access |
| Computer internet privacy securities | Computer internet help | Computer internet connection |
YAHOO! GROUPS LINKS
- Visit your group "indoprog-vb" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
