Arsip: Buat alias ADO Dengan Install Shield
more 18 years ago
memet
Aku punya problem nih.
Aku pake Delphi 7 trus buat database dengan ADO, gimana cara buat alias setup nya pake install shield
more 18 years ago
Kecret
???..... aduhh mas memet yang mumet....... kalo anda pake ADO, sebenarnya anda tinggal simpan variable unt connectionstring-nya aja koq.....
saya kasih samplenya:
{ Reading Connection Data from Registry ...............}
{ HKEY_LOCAL_MACHINE\Software\VSTech}
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('\Software\VSTECH', false) then
begin
Reg_Database := reg.ReadString('Database');
Reg_Server := reg.ReadString('Server');
Reg_password := reg.ReadString('Password');
Req_User := reg.ReadString('Users');
end
else
begin
Reg_Database := '';
Reg_Server := '';
Reg_password := '';
Req_User :='';
end;
finally
Reg.Free;
end;
Connect_str := 'Provider=SQLOLEDB.1;'+
'Password='+Req_User+';'+
'Persist Security Info=True;'+
'User ID='+Reg_password+';'+
'Initial Catalog='+Reg_Database+';'+
'Data Source='+Reg_Server;
more 18 years ago
Kecret
???..... aduhh mas memet yang mumet....... kalo anda pake ADO, sebenarnya anda tinggal simpan variable unt connectionstring-nya aja koq.....
saya kasih samplenya:
{ Reading Connection Data from Registry ...............}
{ HKEY_LOCAL_MACHINE\Software\VSTech}
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('\Software\VSTECH', false) then
begin
Reg_Database := reg.ReadString('Database');
Reg_Server := reg.ReadString('Server');
Reg_password := reg.ReadString('Password');
Req_User := reg.ReadString('Users');
end
else
begin
Reg_Database := '';
Reg_Server := '';
Reg_password := '';
Req_User :='';
end;
finally
Reg.Free;
end;
Connect_str := 'Provider=SQLOLEDB.1;'+
'Password='+Req_User+';'+
'Persist Security Info=True;'+
'User ID='+Reg_password+';'+
'Initial Catalog='+Reg_Database+';'+
'Data Source='+Reg_Server;
more 18 years ago
Kecret
trus dari installshieldnya anda create registry data tersebut......................
more ...
- Pages:
- 1
reply |
Report Obsolete
AI Forward
🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- Ada yang bisa bantu tahu komponent ini ?
by Manz in Tip n Trik Pemrograman more 17 years ago - Retrieve table structure
by bboyz in Tip n Trik Pemrograman more 17 years ago - Monitoring Proses Printing
by jimbot in Tip n Trik Pemrograman more 16 years ago - Permohonan Maaf
by othello in FireBird more 16 years ago - delphi nya aneh
by hendra23 in Tip n Trik Pemrograman more 16 years ago - Atur Naik Turun Nada Lagu (Pitch Control)
by machomen in Multimedia & Graphic Enhancement more 18 years ago - Ngeload data dari File Notepad ke MySQL
by Yudho in MySQL more 18 years ago - buat Form Transparan ?
by debby in Tip n Trik Pemrograman more 17 years ago - Bagaimana Login dengan User Dari MySQL
by jainul in MySQL more 13 years ago - Script untuk tau komp di jaringan (komp lain) hidup apa gak
by Starboard in Enginering more 19 years ago