Delphi程式建立有密碼的access資料庫

如何直接利用Delphi建立有password的access mdb database?
[pascal]
Use System.Win.ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var cnewmdb:variant;
begin
// 透過ADOX建立
cnewmdb := CreateOleObject(‘ADOX.Catalog’);
cnewmdb.Create(‘Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\test.MDB;Jet OLEDB:Database Password=”12345678”;’ );

// 連線
ADOConnection1.ConnectionString:=’Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\TT2.MDB;Jet OLEDB:Database Password=”12345678”;’;
ADOConnection1.LoginPrompt:=false;
ADOConnection1.connected:=true;
end;

[/pascal]

RAD PAServer XE4 設定預設密碼

在前一篇XE3設置PAServer的文章中,有教各位如何設定預設的密碼!不過XE4的PAServer成了App後,位置也稍微不同了!分享給朋友們知道一下~

一、在RAD PAServer XE4按右鍵 顯示套件內容

paserverxe4

二、資料夾依序進入 Contents→MacOS

paserverxe4-01

paserverxe4-02

三、可以看到paserver.config這個檔案paserverxe4-03

四、用 文字編輯程式打開

paserverxe4-04

可以看到內容
port=64211
scratchdir=~/RADPAServer/scratch-dir

在最後一行加入

password= xxxx

存檔後就可以囉!