社区
Delphi
帖子详情
如何通过Session在程序中动态设置BDE别名?
Qcj
2000-07-02 03:31:00
...全文
84
2
打赏
收藏
如何通过Session在程序中动态设置BDE别名?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
2 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
zxghl
2000-07-03
打赏
举报
回复
不知道你的用途,其实你在程序中添加一个 TDataBase 控件,在数据表单
的create事件中添加:
with TDataBase1 do
begin
Connected := False;
Params.Clear;
Params.Add('PATH=' + 'c:\yourpath');
Connected := True;
end;
和 CJ 不同的是,这样创建的别名是全程的。
注意:这个例子创建 Pardox 别名,如果使用其它数据库,请看 TDataBase 的帮助。
CJ
2000-07-02
打赏
举报
回复
procedure AddAlias(const Name, Driver: String; List: TStrings);
var
st:Tstringlist;
ss:tsession;
begin
st := TStringList.Create;
ss := tsession.Create(Application);
try
ss.AutoSessionName := true;
st.Add('PATH = C:\YOURPATH');
ss.AddAlias('NewAlias','STANDARD',ss);
finally
ss.free;
st.free;
end;
end;
一个Delphi简单多层的SQL服务器实例.rar
一个Delphi 多层SQL服务器实例,
程序
将建立一个字符串数组存放
BDE
所有的数据库
别名
数据,利用
Session
控件取得当前
BDE
所有的数据库
别名
数据,建立一个变量数组给函数返回变量Result,增加一位前台上线者(调用Form1上的
程序
),最后再把数据库
别名
数据指定给该变量数组。如果错误就把构造的DBNames释放掉。 本源码
中
的异常处理思路:把前台传来的数据库
别名
、用户上线名称、用户上线密码等三项数据指定给TDatabase控件,并且执行联机的操作。如果联机时发生错误,则产生一个exception给前台
程序
,前台
程序
将会利用到这个exception来判断是否要把输入上,线数据的窗口激活。
怎样在
程序
中
动态
加
BDE
别名
对于
BDE
会话期对象来说,
BDE
别名
特别重要,许多方法都需要传递一个数据库的
别名
作为参数。T
Session
提供了管理
BDE
别名
的功能。 但是作者往往等到要发布
程序
时才发现,你的
程序
由于找不到
别名
而无法运行,必须在一台已经装了
BDE
管理
程序
的机上才能用,你一定非常失望。不要紧,只要在
程序
中
加入以下语句,你的
程序
就又可以执行。 AddAlias用于为Paradox、dBase或文本创建
C++Builder:在运行时创建
BDE
别名
C++Builder:在运行时创建
BDE
别名
通过
BDE
别名
来连接数据库,确实很方便,然而,那些没有确定的数据库,我们却无法给它创建
别名
。而大多数时候,当我们把
程序
交给别人真正投入使用时,
别名
的路径也是不确定的。这就要求我们在
程序
运行时
动态
连接到数据库。 现在,假设在
程序
运行目录下有个通讯录Friends.db,我们要通过TQuery、TDataSource等控件来访问:本人学习
delphi代码创建
bde
别名
示例
实际应用
中
可能需要
程序
自动创建
BDE
别名
特试建 MSsql和paradox数据库
别名
//单元代码 unit Unit11; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DBTables; type
Session
Delphi的数据库应用
程序
能自 动提供一个
Session
组件,这个
Session
组件即为应用
程序
与
BDE
的接口。 1.检测
别名
通过调用
Session
.GetAliasNames(list:Tstrings) 方法,可将当前
BDE
配置
中
的所有数据库
别名
的名称存放到List字符串列表
中
。list.IndexOf(需要检测的
别名
)的值会告诉我们这个
别名
是否 存在(其值为-1时不存在)。2.
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章