Arsip: Buat alias ADO Dengan Install Shield
more 17 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 17 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 17 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 17 years ago
Kecret
trus dari installshieldnya anda create registry data tersebut......................
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 4 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago
Random Topic
- about UPX ..
by rehmoe in Enginering more 16 years ago - Help .. Terjemahin in delphi Dunk ...
by daryl_sukma_gumilar in Hal umum tentang Pascal Indonesia more 14 years ago - Fast & simple recognition
by ZeAL in Tip n Trik Pemrograman more 18 years ago - PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tentang Acak Pertanyaan
by krishy in Tip n Trik Pemrograman more 17 years ago - Gimana caranya 1 report ada 2 detail (quickreport) ?
by vikraa in Reporting more 16 years ago - error
by vandy in Multimedia & Graphic Enhancement more 16 years ago - Cara overlay image
by reza_elka in Multimedia & Graphic Enhancement more 13 years ago - [Ref] Mau download buku gratis ?
by dr4cul453xy in Hal umum tentang Pascal Indonesia more 17 years ago - Buat program untuk menampilkan slide show file ppt
by h4de5 in Tip n Trik Pemrograman more 13 years ago