Arsip: Buat alias ADO Dengan Install Shield

 
user image
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
user image
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;
user image
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;
user image
more 17 years ago

Kecret

trus dari installshieldnya anda create registry data tersebut......................
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com