想請教一下 如何對access 設密碼啊? |
答題得分者是:tech_state
|
jasonchen613
初階會員 發表:67 回覆:75 積分:28 註冊:2003-03-25 發送簡訊給我 |
|
cashxin2002
版主 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
您好﹗ Access資料庫設定的密碼并不是在Connection(連接)頁次做設定﹐而是應在All(全部)頁次中的Jet OLEDB: Datebase Password中做設定(方法﹕雙擊該欄﹐在其出現的對話方塊中輸入密碼) 解決您連接資料庫的方法﹐如果Access資料庫檔案和您的專案是在同個目錄的話﹐在ADOConnection的ConnectionString(字串連接)屬性中﹐可在連接頁次中資料庫檔案的目錄名改為 . 來代替﹐如下﹕
D:\Delphi\專案\Test.mdb可改為 .\Test.mdb 參考看看﹗ =====================
努力,相信會獲得美麗!
忻晟
------
忻晟 |
jasonchen613
初階會員 發表:67 回覆:75 積分:28 註冊:2003-03-25 發送簡訊給我 |
|
cashxin2002
版主 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
|
jasonchen613
初階會員 發表:67 回覆:75 積分:28 註冊:2003-03-25 發送簡訊給我 |
|
jasonchen613
初階會員 發表:67 回覆:75 積分:28 註冊:2003-03-25 發送簡訊給我 |
|
terrychen
尊榮會員 發表:90 回覆:794 積分:501 註冊:2003-05-01 發送簡訊給我 |
|
terrychen
尊榮會員 發表:90 回覆:794 積分:501 註冊:2003-05-01 發送簡訊給我 |
您好
再補充一下
你可以再FORMCREATE時加入下列程式碼
DM.Connection1.Connected:= False; DM.Connection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' ExtractFilePath(Application.ExeName) 'APPLY92.mdb;Jet OLEDB:database password=''*****''';//'; DM.Connection1.Connected:= True; |
jasonchen613
初階會員 發表:67 回覆:75 積分:28 註冊:2003-03-25 發送簡訊給我 |
|
tech_state
版主 發表:44 回覆:638 積分:641 註冊:2003-02-10 發送簡訊給我 |
|
jasonchen613
初階會員 發表:67 回覆:75 積分:28 註冊:2003-03-25 發送簡訊給我 |
我現在程式是可以run了 但是有兩個錯誤耶 錯誤如下圖所示:
我想應該是跟在FormCreate下的程式有關 另外 可以請教各位大大
解釋一下 以下的程式碼嗎??? procedure TForm1.FormCreate(Sender: TObject);
begin
ApplicationPath:=ExtractFilePath(Application.ExeName);
if copy(ApplicationPath,length(ApplicationPath),1)<>'\' then
ApplicationPath:=ApplicationPath+'\';
ADOConnection1.ConnectionString:= stringreplace(ADOConnection1.ConnectionString,'Data Source=moto.mdb','Data Source='+ApplicationPath+'moto.mdb',[rfReplaceAll]);
ADOConnection1.Open;
AdoTable1.open;
end;
|
cashxin2002
版主 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
您好﹗ 對于此類的問題﹐小弟當初有和您同樣的困扰﹒
我們一步一步來講﹐對Access資料庫檔案做保全﹐即對資料庫設定密碼﹐可參考tech_state版主所言﹐以獨占模式開啟資料庫檔案﹐即可對其設定保全密碼﹒ 使用ADOConnection元件來連接已設定保全密碼的Access資料庫檔案﹐指定連接檔案后﹐需在All(全部)頁次中的Jet OLEDB: Datebase Password中設定正确的保全密碼﹒而非在Connection(連接)頁次中設定﹒ 在Connection(連接)頁次中﹐請遵從預設的使用者名稱狀態﹐并請勾選Bland Password(空白密碼)選項﹐使密碼輸入框設為無效﹒ ADOConnection元件的LoginPrompt屬性的意義是是否出現密碼輸入框﹐如果設定為True﹐則會出現﹐并將您先前設定的使用者名稱自動代入﹐如果不需要出現的話﹐則將其設為False﹒在此處﹐有個小小的建議﹐就是將此屬性值設為False﹐針對專案的保全部分﹐大可自行建立密碼驗証的Form(小弟記得您之前已有問及過相關于此的問題)﹒ 以上建議﹐供您參考﹗ =====================
努力,相信會獲得美麗!
忻晟
------
忻晟 |
jasonchen613
初階會員 發表:67 回覆:75 積分:28 註冊:2003-03-25 發送簡訊給我 |
我現在關於access密碼部份已全部ok了 就如同cashxin2002您所說的
只是 現在程式會出現錯誤 如上圖所示
我認為是跟我在FormCreate下的程式有關
另外 可否請各位大大解釋一下以下的程式碼
procedure TForm1.FormCreate(Sender: TObject);
begin
ApplicationPath:=ExtractFilePath(Application.ExeName);
if copy(ApplicationPath,length(ApplicationPath),1)<>'\' then
ApplicationPath:=ApplicationPath '\';
ADOConnection1.ConnectionString:= stringreplace
(ADOConnection1.ConnectionString,'Data Source=moto.mdb',
'Data Source=' ApplicationPath 'moto.mdb',[rfReplaceAll]);
ADOConnection1.Open;
AdoTable1.open;
end;
|
jasonchen613
初階會員 發表:67 回覆:75 積分:28 註冊:2003-03-25 發送簡訊給我 |
|
cashxin2002
版主 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
您好﹗ procedure TForm1.FormCreate(Sender: TObject);
begin
ApplicationPath:=ExtractFilePath(Application.ExeName);
//動態取得專案所在目錄
if copy(ApplicationPath,length(ApplicationPath),1)<>'\' then
//复制字串﹐判斷其最后一個字元是否為\
ApplicationPath:=ApplicationPath '\';
//如果最后一個字元不是\﹐則在字串最后加上\
ADOConnection1.ConnectionString:= stringreplace
(ADOConnection1.ConnectionString,'Data Source=moto.mdb',
'Data Source=' ApplicationPath 'moto.mdb',[rfReplaceAll]);
ADOConnection1.Open;
//替換ADOConnection的ConnectionString字串連接屬性值﹐將連接的檔案的路徑改為ApplicationPath字串變數
AdoTable1.open;
//將ADOTable元件Open
end; 參考看看﹗ =====================
努力,相信會獲得美麗!
忻晟
------
忻晟 |
cashxin2002
版主 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |