如何修改bde中已知别名的数据库路径

[ghz2000]

我想在程序中实现动态的修改某一别名对应的数据库的路径
我该怎么做？分数一定给。大家可以搜搜我以前的贴子！

[chechy]

Delphi的例子，现拷现卖。
procedure TForm1.ChangeAlias;

var
AParams: TStringList;
Dir: string;
begin
if not Session.IsAlias('MyAlias') then
begin
ShowMessage('Alias MyAlias does not exist');
Exit;
end;
AParams := TStringList.Create;
try
// get the current PATH parameter
Session.GetAliasParams('MyAlias',AParams);
Dir := Copy(AParams.Strings[0],6,255);
// get the new PATH parameter
if InputQuery('MyAlias Alias Path','Path:' ,Dir) then

begin
// Update the alias parameters
AParams.Clear;
AParams.Add('PATH=' + Dir);
Session.ModifyAlias('MyAlias',AParams);
Session.SaveConfigFile;
end;
finally
AParams.Free;
end;
end;

[machin]

你的数据库是本地的呢？还是服务器上的呢？

服务器上的你能更改路径吗？

[chechy]

一样的，都是按照上面的方法改参数。
比如SQL SERVER
你的StringList只要包含
SERVER NAME=YOUR_SERVER
DATABASE NAME=YOUR_DB
照样可以发生作用。

[Brad]

我不知道你为什麽不用DATABASE连别名，然后设置其属性

[dana]

在程序中吗?

[ghz2000]

是的

[sweihua]

可以通过修改注册表来修改！

[sweihua]

这些代码是我在程序中用来建立数据库别名的，当然，也可以用作修改数据库别名！！！


procedure TPmain.FormCreate(Sender: TObject);
var
myreg:Tregistry;
SDir,check:String;
begin
Dir:=ExtractFilePath(Application.ExeName);
SetLength(SDir,144);
if GetSystemDirectory(PChar(SDir),144) <> 0 then
SetLength(Sdir,Strlen(Pchar(Sdir)));
myreg:=Tregistry.Create;
myreg.RootKey := HKEY_CURRENT_USER;
if not myreg.KeyExists('\Software\ODBC\ODBC.INI\just for xy') then
begin
myreg:=Tregistry.Create;
try
if myreg.OpenKey('\Software\ODBC\ODBC.INI\just for xy', True) then
begin
myreg.WriteString('Driver',SDir + '\odbcjt32.dll');
myreg.WriteString('DBQ',Dir + 'picture');
myreg.WriteString('FIL','MS Access;');
myreg.WriteString('UID','');
myreg.WriteInteger('DriverId',25);
myreg.WriteInteger('SafeTransactions',0);
end;
if myreg.OpenKey('\Software\ODBC\ODBC.INI\just for xy\Engines\Jet', True) then
begin
myreg.WriteString('ImplicitCommitSync','');
myreg.WriteString('UserCommitSync','Yes');
myreg.WriteInteger('MaxBufferSize',2048);
myreg.WriteInteger('PageTimeout',5);
myreg.WriteInteger('Threads',3);
end;
if myReg.OpenKey('\Software\ODBC\ODBC.INI\ODBC Data Sources', True) then
myreg.WriteString('just for xy','Driver do Microsoft Access (*.mdb)');
finally
myreg.CloseKey;
end;
end
else
begin
if myreg.OpenKey('\Software\ODBC\ODBC.INI\just for xy', True) then
begin
check:= myreg.ReadString('DBQ');
if check<>dir+'picture' then
myreg.WriteString('DBQ',Dir + 'picture');
end;
end;
myreg.Free;
end;

[ghz2000]

数据库是在本机上的。
chechy(chechy)　我试一试，如果可以一定给分

[ghz2000]

sweihua(nil)　谢了
我只是想修改bde的别名，和odbc无关。

[路人丁]

//动态设定数据库别名
//判断系统中是否有SyManDB别名，如果有则删除,这样防止别名重复
if(Session->IsAlias("DBSyMan"))
{
Session->DeleteAlias("DBSyMan");
}
//保存别名配置
Session->SaveConfigFile();


//创建系统数据库别名DBSyMan
AnsiString strDBPath;
char szCurrDir[256];
GetCurrentDirectory(256,szCurrDir);
strDBPath=(AnsiString)szCurrDir+(AnsiString)"\\DBFiles";
Session->AddStandardAlias("DBSyMan",strDBPath,"PARADOX");

[flypuma]

chechy的应该是可以得，唉，为什么我每次都迟到，这位chechy兄好像整天在网上猎问题的，
佩服佩服

[ghz2000]

在这里谢了以上各位朋友，我这里有篇文章给大家工赏：

Delphi中数据文件路径的管理


Delphi中的Table控件（Component）和Query控件都有一个DatabaseName属性。可以用DatabaseName属性来指定该控件所引用的数据表的路径。有两种方法可以为属性DatabaseName设置路径：第一种方法是直接输入数据表所在路径，另一种方法是使用数据库别名（Alias）。在Delphi中，数据库别名是在数据库引擎（BDE）中建立的，一个别名对应一个文件路径。可以这样为别名下定义：别名是对文件路径的映射，是文件路径的简称。因此，在属性DatabaseName中使用数据库别名和使用文件路径实质都是一样的，它们都作为查找数据表的根（Root）路径。但是，在数据库应用程序的设计中，如果涉及到的Table控件和Query控件比较多的话，那么使用别名来引用文件路径就十分高效、方便，并且不容易出差错。原因是显而易见的：一方面，别名可以在列表中直接选取而不必像文件路径那样从键盘上输入；另一方面，别名可以设置得很简短，即使从键盘录入也比较快捷。因此，笔者建议要多使用数据库别名而少使用文件路径。

　　另外，在Table控件的属性TableName和Query控件的SQL语句中，都可以包含数据表的路径信息。因为Query控件和Table控件的情况十分相似，所以下面只对Table控件进行说明。这种路径信息既可以是一个完整的路径，也可以是一个完整路径的后面部分。比如对Table控件的属性TableName赋值时，可以把C:\Delphi\Demos\Data\CustomerDB赋给它，也可以把Data\CustomerDB赋给它。

　　在实际应用中，我们可以把Table控件的属性DatabaseName和属性TableName结合起来使用。把属性DatabaseName中的路径作为根路径，把属性TableName中的不完整路径（如果有的话）作为子路径。把这两个路径结合起来就是访问到数据表的一个完整的路径。比如，假设在路径C:\Delphi\Demos\Data下存在数据表CustomerDB，把Table控件的属性DatabaseName指定为C:\Delphi\Demos\Data，然后把属性TableName指定为CustomerDB，就可以访问数据表CustomerDB了。如果属性DatabaseName指定为C:\Delphi\Demos，要想访问数据表CustomerDB，只要把属性TableName指定为data\CustomerDB就行了。有时候这二者并不同时起作用。例如，如果属性TableName中包括了完整的路径，那么属性DatabaseName中的路径就不起任何作用了。又如，如果属性DatabaseName中没有指定任何路径，而属性TableName中的路径又是不完整的，如Data\CustomerDB，那么应用程序运行时的当前路径就作为根路径。为了便于程序移植，笔者有两点建议：
　　1、通常，只需要在属性DatabaseName中指定数据表的路径，而在属性TableName中不必包括路径信息。
　　2、一般情况下，不要在属性TableName中指定完整的路径。

　　下面就来介绍一下如何提高数据库应用程序的移植性。
　　数据库应用程序的移植是一个重要的问题。因为在数据库应用程序中要访问数据库或数据表，就要涉及到数据文件的路径。一般来说，数据库应用程序开发完成后要移植到其它机器上使用，因此数据库应用程序运行时的数据文件的路径很可能和开发时的不同。所以必须对数据文件的路径进行有效的管理，以便于系统的移植。下面介绍三种管理数据文件路径的方法。
　　1、把数据文件建立在应用程序所在目录的子目录下。具体过程为：
　　（1）为了设计起来方便，在设计时可以使用数据库别名，且该数据库别名指向应用程序所在路径。把子路径名加上数据表名字之后赋给Table控件的属性TableName。
　　（2）在发行应用程序前，把所有的Table控件或Query控件的属性Active都置为False，删除属性DatabaseName中的所有字符（即置空）。
　　在缺省情况下，应用程序运行时的当前目录是应用程序所在的目录。如果在应用程序中没有调用ChDir等过程改变当前目录的话，那么就不必执行第三步，否则进行第三步的处理。
　　（3）在使用到Table控件和/或Query控件的窗体的创建（OnCreate）事件中，把应用程序所在路径赋给该窗体中的每一个Table控件和Query控件。具体的形式如下所示：
　　Table对象（或Query对象）DatabaseName:=ExtractFilePath(ApplicationExeName);

　　2、利用配置文件存放数据库路径
　　此方法是在应用系统安装或第一次运行时把数据库路径信息写入配置文件，以后运行时把路径信息从配置文件中读出。配置文件的读写利用类TIniFile（Delphi1.0和Delphi3.0） 、类TRegIniFile（Delphi 3.0/4.0）和类TRegistry（Delphi3.0/4.0）所提供的方法来实现。各个方法具体的用法请查阅Delphi联机帮助。本方法的基本思路为：
　　(1）为了设计方便，在设计时可以使用数据库别名。
　　（2）同1的步骤（2），但必须进行第三步的处理。
　　（3）同1的步骤（3）类似。即，在窗体的创建事件中把数据库路径赋给该窗体中的每一个Table控件和Query控件，用形式化语言描述如下：
　　Table对象（或Query对象）DatabaseName:=配置文件记录中的数据库路径。

　　3、利用数据库别名存放数据库路径
　　在设计时使用数据库别名。在应用系统安装或第一次运行时利用系统对象Session在BDE中建立与设计时相同的别名，使别名指向相应的数据库路径。下面的代码说明了如何建立名字为“FDB”的别名，它的数据库路径为d:\test，数据库类型为Paradox。
　　Session.ConfigMode:=cmAll;
　　Session.AddStandardAlias(′FDB′,′d:\test′,′PARADOX′);
　　Session.SaveConfigFile; {保存新建立的别名}

　　注：在Delphi1.0中Session对象不具有第三种方法中所用到的属性和方法。以上三行代码在Delphi3.0/4.0下调试通过。

　　从上面的讨论可以看出，方法三实现起来最简单，其次是方法一，最后是方法二。笔者认为，如果应用系统是用Delphi3.0/4.0开发的，那么应尽量使用方法三。


-----------
中国计算机报