Inno Setup 制作的安装程序直接访问Access数据库

admin

1. [Code]
   
2. procedure SaveSecureKey;
   
3. var
   
4.   AccessServer: Variant;
   
5.   RecordAffected: Integer;
   
6. begin
   
7.   try
   
8.     AccessServer := CreateOleObject ('ADODB.Connection');
   
9.   except
   
10.     RaiseException ('Failed to create ADODB object!');
    
11.   end;
    
12. 
    
13.   AccessServer.ConnectionString := Format (
    
14.     'Provider=%s;Data Source=%s%s;Persist Security Info=False;' +
    
15.     'Jet OLEDB:Database Password=123456',
    
16.     ['Microsoft.Jet.OLEDB.4.0', 'd:/temp/', 'data.mdb']);
    
17.   try
    
18.     AccessServer.Open;
    
19.     try
    
20.       AccessServer.Execute ('DELETE * FROM dic_SysParams');
    
21.       AccessServer.Execute (
    
22.         Format ('INSERT INTO dic_SysParams(Sp_SecureKey)' +
    
23.           'values (''%s'');', ['1234567890']));
    
24.     except
    
25.       RaiseException ('Failed to initialize secure key value!');
    
26.     end;
    
27. 
    
28.   finally
    
29.     AccessServer.Close;
    
30.   end;
    
31. end;

复制代码