我想如果你能知道数据库的path,可以用tsession动态建立一个别名。
This example creates an alias for an InterBase database server:
var
MyList: TStringList;
begin
MyList := TStringList.Create;
try
with MyList do
begin
Add('SERVER NAME=IB_SERVER:/PATH/DATABASE.GDB');
Add('USER NAME=MYNAME');
end;
Session1.AddAlias('NewIBAlias', 'INTRBASE', MyList);
finally
MyList.Free;
end;
end;
或者你可以用tdatabase,设定database.params:=
PATH=c:/yourdbdir
DEFAULT DRIVER=PARADOX
ENABLE BCD=FALSE
database.databasename:='youralias'
hubdog一本正经地说:做坏事不难,难的是一辈子都做坏事!
