資料庫用ap create後想用delphi create BDE alais 但無效? DbiAddAlias(nil,'TestBde',nil, 'TYPE:MSSQL; DATABASE NAME:TEST; SERVER NAME:SQL-SVR; USER NAME:sa',true); 不知為何?可幫忙?

Session.AddAlias(AALiasName,'MSSQL',ParamList); Session.SaveConfigFile;     久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听

------
江上何人初见月，江月何年初照人

您好： 参考如下： http://delphi.ktop.com.tw/topic.php?topic_id=51312 http://delphi.ktop.com.tw/topic.php?topic_id=34707 其中Chance36 版大解答：  

 
先給你最簡單的,設定ParaDox(*.db，*.DBF)的別名,假設要設定的別名為ABC          if Session.IsAlias('ABC') then Session.DeleteAlias('ABC'); // 有現存的先刪除
  DataPath := '資料存放的路徑' ;
  Session.AddStandardAlias('ABC',DataPath,'PARADOX');
  Session.AddStandardAlias('ABC',DataPath,'DBASE');
  Session.AddStandardAlias('ABC',DataPath,'FOXPRO');
  // 以上三選一      // 以下示範連結SQLServer 透過ODBC的方式
Var
  Params:TStringList;
Begin
  if Session.IsAlias('ABC') then Session.DeleteAlias('ABC'); // 有現存的先刪除
  // 建立須要的參考(在BDE Administrator中怎麼設定就加入該參數即可)
  // 一般透過ODBC連結到SQLServer只要改變下列幾個參數即可，其他的
  //會用預設值，故可以不用設定。
  Params := TStringList.Create;
  With Params Do Begin
    Add('ODBC DSN=XXXX'); // XXXX 為ODBC中設定的名稱
    Add('SQLQRYMODE=SERVER');
    Add('USER NAME=XXXX'); // 登入帳號
  end;
  Session.AddAlias('ABC','SQL Server',Params );  //設定別名
  // 紅色部份就是BDE透過ODBC連結SQLServer的驅動程式名稱。
  Params.Free; // 釋放資源     至於其他的設定方式，皆與上述方式一樣，以下列出相關步驟
========================================================
程式設定步驟
1.刪除現有相同的別名(若有相同別名,在程式執行期間看不到原來的別名,
  待程式結束後,會自動還原)
  if Session.IsAlias('別名') then Session.DeleteAlias('別名');    2.建立相關的參數
  Params := TStringList.Create;
  With Params Do Begin
    Add('參數名=參數值');
    .....
  end;    3.建立別名
  Session.AddAlias('別名','驅動程式名稱',Params );  //設定別名
  Params.Free;//不要忘了    

试试看 <>~~~静心养德~~~

I got a errmsg $2A06:"Error while Initialize BDE" ? Help,Thx! (I'm trying to create BDE Alias within Delphi using MSSQL DataBase,not ODBC!) =============source code======================= WkstrL := TStringList.Create; Try with WkstrL do begin Add('DATABASE NAME:TESTWU'); Add('Server Name:abc-sql); Add('USER NAME=sa'); end; //ShowMessage('dba name:=' wkstrl.strings[0]); //*********************************************** if Session.IsAlias('TestwuBDE') then Session.DeleteAlias('TestwuBDE'); // 有現存的先刪除 Session.AddAlias('TestwuBDE', 'MSSQL', WkstrL); Session.SaveConfigFile; //*********************************************** Finally WkstrL.Free; Sessl.Free; End; //============================================================

引言: I got a errmsg $2A06:"Error while Initialize BDE" ? Help,Thx! (I'm trying to create BDE Alias within Delphi using MSSQL DataBase,not ODBC!) =============source code======================= WkstrL := TStringList.Create; Try with WkstrL do begin Add('DATABASE NAME=TESTWU'); Add('Server Name=abc-sql'); Add('USER NAME=sa'); end; //ShowMessage('dba name:=' wkstrl.strings[0]); //*********************************************** if Session.IsAlias('TestwuBDE') then Session.DeleteAlias('TestwuBDE'); // 有現存的先刪除 Session.AddAlias('TestwuBDE', 'MSSQL', WkstrL); Session.SaveConfigFile; //*********************************************** Finally WkstrL.Free; Sessl.Free; End; //============================================================

试试看，或参考Session.add范例~ <>~~~静心养德~~~

我是這樣做的,希望對你有所幫助 if Session.IsAlias('ABC') = False then try serverlist := Tstringlist.Create; with serverlist do begin Add('ODBC DSN=XXX'); Add('DATABASE NAME=HRDB'); Add('USER NAME=Sa'); end; Session.AddAlias('ABC', 'sql server', serverList); Session.SaveConfigFile; ServerList.Free; except end;