紧急,有关程序打包的问题 将你的ODBC注册表设置导出为.REG文件,在安装过程最后把.REG文件导入注册表 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 导出操作可以在注册表管理界面通过菜单完成导入操作在使用INSTALLSHIELD制作安装盘时写上用REGEDIT。也可以在程序中用代码创建ODBC。注册表项的具体数据你可以在你的开发机的注册表中找到。下面是连接ACCESS数据库使用的ODBC的位置HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\MS Access Database 利用DELPHI读写注册表用TREGISTER对象,可以在帮助中找到代码,修改成你需要的即可。 也许这段代码对你有用const ODBC_ADD_DSN = 1; ODBC_CONFIG_DSN = 2; ODBC_REMOVE_DSN = 3; ODBC_ADD_SYS_DSN = 4; ODBC_CONFIG_SYS_DSN = 5; ODBC_REMOVE_SYS_DSN = 6;function SQLConfigDataSource(hwndParent: Integer; fRequest: LongInt; lpszDriverString: string; lpszAttributes: string): LongBool; stdcall; external 'ODBCCP32.DLL';procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);const BoolStr: array[Boolean] of string = ('f', 't');begin if Key <> VK_RETURN then Exit; Caption := BoolStr[ SQLConfigDataSource(0, ODBC_ADD_SYS_DSN,// ~换成Handle就是手工配置'SQL Server', //数据库类型'DSN=MyDatabase'#0 + //数据源名称'Server=(local)'#0 + //SQL Server服务器名'Database=DatabaseName'#0 + //数据库名称'Description=动态配置ODBC'#0 //描述 )];end; delphi本身有网络通信函数吗? PlaySound问题,谢谢帮忙 Delphi 指针强制类型转换 怎样使窗口始终停留在所有窗口最前端 dll调用问题 使用IdFTP组件无法上载文件到Unix上的FTP站点? 在程序中使用TOpenDialog在free的时候出错,原因可能是什么? 建新表时如何加上缺省值?一直在线! 怎样用代码来构建一个对象实例,如TEdit 较简单问题 哪位大侠给一个彩色按钮的控件或者自定义的类!!(D6) 哪里有delphi6.0的电子教程
导入操作在使用INSTALLSHIELD制作安装盘时写上用REGEDIT。也可以在程序中用代码创建ODBC。注册表项的具体数据你可以在你的开发机的注册表中找到。下面是连接ACCESS数据库使用的ODBC的位置
HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\MS Access Database
利用DELPHI读写注册表用TREGISTER对象,可以在帮助中找到代码,修改成你需要的即可。
ODBC_ADD_DSN = 1;
ODBC_CONFIG_DSN = 2;
ODBC_REMOVE_DSN = 3;
ODBC_ADD_SYS_DSN = 4;
ODBC_CONFIG_SYS_DSN = 5;
ODBC_REMOVE_SYS_DSN = 6;function SQLConfigDataSource(hwndParent: Integer;
fRequest: LongInt; lpszDriverString: string;
lpszAttributes: string): LongBool; stdcall; external 'ODBCCP32.DLL';procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
const
BoolStr: array[Boolean] of string = ('f', 't');
begin
if Key <> VK_RETURN then Exit;
Caption := BoolStr[
SQLConfigDataSource(0, ODBC_ADD_SYS_DSN,
// ~换成Handle就是手工配置
'SQL Server', //数据库类型
'DSN=MyDatabase'#0 + //数据源名称
'Server=(local)'#0 + //SQL Server服务器名
'Database=DatabaseName'#0 + //数据库名称
'Description=动态配置ODBC'#0 //描述
)];
end;