打包怎么把数据库也打进去

nixson 2007-11-13 09:53:19

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

...全文

87 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

nixson 2007-11-16

打赏
举报

问题解决了
用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);

最好是手打一条一条编译

nixson 2007-11-15