如何在程序里调用控制面板的ODBC和DBE建立数据库别名？可以写出详细的实现方法吗？

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('NewIBAlias', 'INTRBASE', MyList);
  finally
    MyList.Free;
  end;
end;看一下TSession的帮助

Answer 1

uses dao97;
procedure TForm1.Button1Click(Sender: TObject);
var Enigne:DBEngine;
begin
   Enigne:=CoDBEngine.Create;
   enigne.RegisterDatabase('test','Microsoft Access Driver (*.mdb)',true,'DBQ=C:\access.mdb;FIL=MS Access;');
end;

Answer 2

如果你的数据库中还有密码和用户的话.
'DBQ=c:\access.mdb;Fil=MS Access;UID=your user;PWD=Your password'
OK,搞定.