做的是GUI的程序  但数据库打不进包内  用的是ACCESS  最好说的详细些  新手  谢谢

解决方案 »

  1.   

    问题解决了
    用InstallShield制作安装文件
    下面网址为制作过程  很详细
    http://www.52dot.com/program/Visual_Cadding/20070209/InstallShield622-ODBC-y5er102722.html
    这个上面注册注册表的程序我没有编译通过
    下面是我编译通过的代码
    string szPath, szKeyName;    
     begin     
      RegDBSetDefaultRoot ( HKEY_CURRENT_USER );     
      szKeyName = "Software\\ODBC\\ODBC.INI\\000";     
      if(RegDBKeyExist(szKeyName)<0) then      
       RegDBCreateKeyEx (szKeyName,"");     
      else      
       RegDBDeleteKey (szKeyName);      
       RegDBCreateKeyEx (szKeyName,""); 
         endif; 
        
      szKeyName = "Software\\ODBC\\ODBC.INI\\ODBC Data Sources";    
      if(RegDBKeyExist(szKeyName)<0) then 
          RegDBCreateKeyEx (szKeyName,"");    
      endif;    
      RegDBSetKeyValueEx ( szKeyName, "000" , REGDB_STRING ,"Microsoft Access Driver (*.mdb)" , -1);   
      szPath = TARGETDIR^"db1.mdb";   
      szKeyName = "Software\\ODBC\\ODBC.INI\\000";   
      RegDBSetKeyValueEx ( szKeyName, "DBQ" , REGDB_STRING , szPath , -1);     
      RegDBSetKeyValueEx ( szKeyName, "Driver" , REGDB_STRING , WINSYSDIR+"\odbcjt32.DLL" , -1);   
      RegDBSetKeyValueEx ( szKeyName, "DriverID" , REGDB_NUMBER , "25" , -1); 
      RegDBSetKeyValueEx ( szKeyName, "FIL" ,REGDB_STRING , "MS Access;" , -1); 
      RegDBSetKeyValueEx ( szKeyName, "PWD" ,REGDB_STRING , "" , -1);
      RegDBSetKeyValueEx ( szKeyName, "SafeTransactions" , REGDB_NUMBER ,"0" , -1);   
      RegDBSetKeyValueEx ( szKeyName, "UID" , REGDB_STRING ,"" , -1);   
      RegDBCreateKeyEx ("Software\\ODBC\\ODBC.INI\\000\\Engines","");   
      RegDBCreateKeyEx ("Software\\ODBC\\ODBC.INI\\000\\Engines\\Jet","");   
      szKeyName = "Software\\ODBC\\ODBC.INI\\000\\Engines\\Jet";  
      RegDBSetKeyValueEx ( szKeyName, "ImplicitCommitSync" , REGDB_STRING , "" , -1);
      RegDBSetKeyValueEx ( szKeyName, "MaxBufferSize" , REGDB_NUMBER , "2048" , -1);
      RegDBSetKeyValueEx ( szKeyName, "PageTimeout" , REGDB_NUMBER , "5" , -1);   
      RegDBSetKeyValueEx ( szKeyName, "Threads" , REGDB_NUMBER , "3" , -1);   
      RegDBSetKeyValueEx ( szKeyName, "UserCommitSync" , REGDB_STRING , "Yes" , -1); 最好是手打  一条一条编译