安装程序中如何将odbc注册的数据库打包? vc中的install Shield,我没用过。不过我用installshield5.0配置odbc的方法是修改注册表。你需要的话,可以给你代码! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 这是installshield中修改脚本的程序。我从天极网当的,你可以去看看function SetupRegistry() NUMBER nResult; STRING szPath, szKeyName; begin RegDBSetDefaultRoot ( HKEY_CURRENT_USER ); szKeyName = "Software\\ODBC\\ODBC.INI\\我的数据库"; 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, "我的数据库" , REGDB_STRING ,"Microsoft Access Driver (*.mdb)" , -1); szPath = TARGETDIR^"student.mdb"; szKeyName = "Software\\ODBC\\ODBC.INI\\我的数据库"; RegDBSetKeyValueEx ( szKeyName, "DBQ" , REGDB_STRING , szPath , -1); RegDBSetKeyValueEx ( szKeyName, "Description" , REGDB_STRING , "用于VC++的数据源" , -1); RegDBSetKeyValueEx ( szKeyName, "Driver" , REGDB_STRING , WINSYSDIR+"\odbcjt32.DLL" , -1); RegDBSetKeyValueEx ( szKeyName, "DriverID" , REGDB_NUMBER , "25" , -1); RegDBSetKeyValueEx ( szKeyName, "SafeTransactions" , REGDB_NUMBER ,"0" , -1); RegDBSetKeyValueEx ( szKeyName, "UID" , REGDB_STRING ,"" , -1); RegDBCreateKeyEx ("Software\\ODBC\\ODBC.INI\\我的数据库\\Engines",""); RegDBCreateKeyEx ("Software\\ODBC\\ODBC.INI\\我的数据库\\Engines\\Jet",""); szKeyName = "Software\\ODBC\\ODBC.INI\\我的数据库\\Engines\\Jet"; RegDBSetKeyValueEx ( szKeyName, "Driver" , REGDB_STRING , WINSYSDIR+"\odbcjt32.DLL" , -1); RegDBSetKeyValueEx ( szKeyName, "ImplicitCommitSync" , REGDB_STRING , "" , -1); RegDBSetKeyValueEx ( szKeyName, "Threads" , REGDB_NUMBER , "3" , -1); RegDBSetKeyValueEx ( szKeyName, "UserCommitSync" , REGDB_STRING , "Yes" , -1); end; <讨论>怎样处理要数据库中频繁使用的数据? 窗口滚动条设置问题,高手帮帮忙,谢谢!! 怎样替换文本文件里的字符 在线 如何计算一个String的长度(in pixel) 如何将我word的内容按页一页一页的选入Selection中? 一个超前引用的问题 请问如何实现zoom in和zoom out的功能 有没有可以使所有的控件实现扁平效果? +++++++SOCKET 问题++++++++ 奇怪!sqlce 无法查询nvarchar长度大于127的列 关于编译器 请问在WIN32SDK中如何使用List Control?
function SetupRegistry()
NUMBER nResult;
STRING szPath, szKeyName;
begin
RegDBSetDefaultRoot ( HKEY_CURRENT_USER );
szKeyName = "Software\\ODBC\\ODBC.INI\\我的数据库";
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, "我的数据库" , REGDB_STRING ,"Microsoft Access Driver (*.mdb)" , -1);
szPath = TARGETDIR^"student.mdb";
szKeyName = "Software\\ODBC\\ODBC.INI\\我的数据库";
RegDBSetKeyValueEx ( szKeyName, "DBQ" , REGDB_STRING , szPath , -1);
RegDBSetKeyValueEx ( szKeyName, "Description" , REGDB_STRING , "用于VC++的数据源" , -1);
RegDBSetKeyValueEx ( szKeyName, "Driver" , REGDB_STRING , WINSYSDIR+"\odbcjt32.DLL" , -1);
RegDBSetKeyValueEx ( szKeyName, "DriverID" , REGDB_NUMBER , "25" , -1);
RegDBSetKeyValueEx ( szKeyName, "SafeTransactions" , REGDB_NUMBER ,"0" , -1);
RegDBSetKeyValueEx ( szKeyName, "UID" , REGDB_STRING ,"" , -1);
RegDBCreateKeyEx ("Software\\ODBC\\ODBC.INI\\我的数据库\\Engines","");
RegDBCreateKeyEx ("Software\\ODBC\\ODBC.INI\\我的数据库\\Engines\\Jet","");
szKeyName = "Software\\ODBC\\ODBC.INI\\我的数据库\\Engines\\Jet";
RegDBSetKeyValueEx ( szKeyName, "Driver" , REGDB_STRING , WINSYSDIR+"\odbcjt32.DLL" , -1);
RegDBSetKeyValueEx ( szKeyName, "ImplicitCommitSync" , REGDB_STRING , "" , -1);
RegDBSetKeyValueEx ( szKeyName, "Threads" , REGDB_NUMBER , "3" , -1);
RegDBSetKeyValueEx ( szKeyName, "UserCommitSync" , REGDB_STRING , "Yes" , -1);
end;