请采取动态配置BDE别名的办法来解决。
解决方案 »
- 请问如何制作用鼠标点燃蜡烛?
- 新手,急~~~,求delphi登陆界面代码!!
- 昨晚8点多,在深圳明显有震感,楼房在摇晃?
- 在编写三层架构程序中,传递给应用服务器端接口函数参数的问题。参数类型为流类型!急!急!急!
- 请问delphi2005在那下载,已测试能安装的
- 大哥我用二进制作为dll中函数的返回值遇到如下问题?
- 用ADO访问Sql Server 2000,为什么客户端机器设置了密码后,再运行我原来的程序,需要先通过网上邻居访问一下服务器才能正确连接,否则会
- 关于Delphi7的浮点运算。见鬼了。100分求教
- 寻求好的计剩余时间方法
- 送分,生日大放送!!!
- 怎么用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速度又太慢?
怎么辦