请采取动态配置BDE别名的办法来解决。
解决方案 »
- 想做个动态托盘消息
- << 征集 : 屏幕传输最快的代码 >> 大家一起讨论提高
- winSocket中如何将Delphi的TDateTime转换成VC++所接收的CTime类型?
- 如何计算两个时间Tdatetime之间相隔多少天?
- 關於fast report表體動態高度問題
- 谁有源代码自己写的关于数据库的。简单的。狂送100不够在给。
- 关于函数的问题?
- 我刚安装了一个XPMenu控件,但不知道如何使用,请指教!
- 我想知道maskedit控件的属性,到哪里可以找到
- 在 vss check out 下修改代码出错!
- 怎么用delphi,往快速启动栏中添加快捷方式。
- 请大侠指点比较好的数据库设计工具?
以下是cobi的一段注册Bde的过程,把它放在FormCteate中,或者在工程文件的初始化之前运行它
配置BDE注册的代码:
procedure InitBde;
var
DataDirectory : string;
ARegistry : TRegistry;
begin
DataDirectory := ExtractFilePath( Application.ExeName );
DataDirectory := DataDirectory+'bde\'; //Bde路径根据你的实际情况修改
ARegistry := TRegistry.Create;
with ARegistry do {创建一个TRegistry对象实例 }
begin
RootKey := HKEY_LOCAL_MACHINE;{指定根键为HKEY_LOCAL_MACHINE}
if not OpenKey( 'Software\Borland\BLW32', False ) then
begin
// showmessage('key 1'); {写入BDE语言驱动程序所在的目录,即当前程序目录 }
OpenKey( 'Software\Borland\BLW32', True );
WriteString( 'BLAPIPATH', DataDirectory );
end;
CloseKey; {关闭主键,同时将信息写入注册表}
RootKey := HKEY_LOCAL_MACHINE;
if not OpenKey('Software\Borland\Database Engine',False) then
begin
// showmessage('key 2');
OpenKey('Software\Borland\Database Engine',True);
WriteString( 'DLLPATH', DataDirectory );
end;
CloseKey; {关闭主键,同时将信息写入注册表}
Destroy; {释放内存 }
end;
end;
我把你以上程序加到TDataM.DataModuleCreate中了,
但每次運行會有以下錯誤提示:
an error ccurred while attempting to initialize the Borland database engine(error $3eo6)
請問怎麼改???
老兄,能否就我上面的問題講詳細一點,謝謝。
我把你以上程序加到TDataM.DataModuleCreate中了,
但每次運行會有以下錯誤提示:
an error ccurred while attempting to initialize the Borland database engine(error $3eo6)
請問怎麼改???
我把你以上程序加到TDataM.DataModuleCreate中了,
但每次運行會有以下錯誤提示:
an error ccurred while attempting to initialize the Borland database engine(error $3eo6)
請問怎麼改???
我用的數据庫是vf不是sql啊!
怎么用ado呢,如果用ODBC速度又太慢?
怎么辦