（UP有分）怎样在DATABASE中动态配置别名！我的代码是……不知道对不对！

Question

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('NewAlias', 'paradox', MyList);
  finally
    MyList.Free;
  end;
end;

Answer 1

Session1.AddAlias('NewAlias', 'paradox', 'G:\12.24new\data'); 

Answer 2

FOR fei1995(飞子)；
我问的是连接DATABASE呀，你的好象是TSESSION添加别名吧

Answer 3

  Database1.Close;
  Database1.DriverName := 'STANDARD';
  Database1.Params.Values['PATH'] := ExtractFilePath(ParamStr(0)) + 'data';
  Database1.Params.Values['DEFAULT DRIVER'] := 'PARADOX';
  Database1.DatabaseName := 'MY_DB';
  Database1.Open;

Answer 4

  Database1.DriverName := 'STANDARD';
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~是的！//不过一般直接写算了(没有口令)var
  vDatabaseName: string;procedure TForm1.FormCreate(Sender: TObject);
begin
  vDatabaseName := ExtractFilePath(ParamStr(0)) + 'data';  Table1.DatabaseName := vDatabaseName;
  Table2.DatabaseName := vDatabaseName;
  Table3.DatabaseName := vDatabaseName;
  Table4.DatabaseName := vDatabaseName;
end;

Answer 5

//TDatabase可以用在"缓存更新"上//from Delphi help
procedure TForm1.ApplyButtonClick(Sender: TObject);
begin
  with CustomerQuery do
  begin
    Database1.StartTransaction;
    try
      ApplyUpdates; {try to write the updates to the database};
      Database1.Commit; {on success, commit the changes};
    except
      Database1.Rollback; {on failure, undo the changes};
      raise; {raise the exception to prevent a call to CommitUpdates!}
    end;
    CommitUpdates; {on success, clear the cache}
  end;
end;

Answer 6

在现实处理中
实用的还是IB,SQL SERVER...等中、大型数据库
用DBE数据控件(Table,Query...)就要安装BDE
建议用ADO控件要简便、高效(功能上)一些我写的数据库程序
从来没有用TTable和TADOTable
都是用Query或ADOQuery

Answer 7

当数据量太大用Table或ADOTable就不敢想像

Answer 8

感谢：：　zswang(伴水)(需要充充电)　
送分