create BDE alais within delphi? |
尚未結案
|
jimwu
一般會員 ![]() ![]() 發表:1 回覆:1 積分:0 註冊:2003-04-08 發送簡訊給我 |
|
mustapha.wang
資深會員 ![]() ![]() ![]() ![]() ![]() 發表:89 回覆:409 積分:274 註冊:2002-03-13 發送簡訊給我 |
|
deity
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:90 回覆:876 積分:678 註冊:2003-05-09 發送簡訊給我 |
您好:
参考如下:
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;//不要忘了试试看 |
jimwu
一般會員 ![]() ![]() 發表:1 回覆:1 積分:0 註冊:2003-04-08 發送簡訊給我 |
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;
//============================================================
|
deity
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:90 回覆:876 積分:678 註冊:2003-05-09 發送簡訊給我 |
引言: 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范例~ |
martinTOP
一般會員 ![]() ![]() 發表:10 回覆:19 積分:5 註冊:2004-06-12 發送簡訊給我 |
我是這樣做的,希望對你有所幫助
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;
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |