我想問一下 我在用adotable元件連結access時 在connectionstring中 設定密碼後 test時 出現錯誤 如下圖所示: 請問要如何解決ㄋ? 另外 我如果把access放在別的地方時 如:桌面 我的程式就找不到access了 因為 access的連結路經被變更了 所以 想問一下 有沒有辦法解決此問題啊?

您好﹗    Access資料庫設定的密碼并不是在Connection（連接）頁次做設定﹐而是應在All（全部）頁次中的Jet OLEDB: Datebase Password中做設定（方法﹕雙擊該欄﹐在其出現的對話方塊中輸入密碼）    解決您連接資料庫的方法﹐如果Access資料庫檔案和您的專案是在同個目錄的話﹐在ADOConnection的ConnectionString（字串連接）屬性中﹐可在連接頁次中資料庫檔案的目錄名改為 . 來代替﹐如下﹕ D:\Delphi\專案\Test.mdb可改為 .\Test.mdb 參考看看﹗ ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

我有在All（全部）頁次中的Jet OLEDB: Datebase Password中做設定 但是 在開啟access時 她沒有要求我輸入密碼耶 請問 那裡還需要更改啊?

您好﹗    沒有出現密碼輸入框是因為您將ADOConnection元件的LoginPrompt屬性值設定為False（即不出現密碼輸入框）﹒    參考看看﹗    ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

ADOConnection元件的LoginPrompt屬性值設定為Ture了 她有要求我輸入密碼 但是 我輸入了 我在Jet OLEDB: Datebase Password中設定的密碼 她出現了錯誤 如果我沒輸入 她部會出現錯誤 且還會讓我進入系統 我想是不是我必須在下圖中輸入密碼啊? 可是輸入密碼卻也錯誤耶??? 錯誤就是 我一開始上傳的第一張圖的錯誤!!!!!

忘記附圖了

您好 將allow saving password 勾選

您好 再補充一下 你可以再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; 

Sorry 小弟發覺自己好像問錯問題了 小弟其實主要是想問 如何  將access資料庫加密碼保護? 也就是說 如果你的access放在某一個資料夾中 然而 隨便一個人都可以用 access開啟 觀看裡資料庫裡的內容 所以 想問一下 可否有辦法 對access加密碼 保護ㄋ?  \如下圖所示任何人都可以點入你的資料庫觀看:\

jasonchen613, 您好 在Access中，使用開啟舊檔來開啟檔案，選擇您的Access檔案後，按下開啟旁邊的下拉式選單，選擇「獨佔式開啟」，如下圖。 以該方式開啟Access檔案後，使用Access的「工具」-->「保全」-->「設定資料庫密碼」即可，試試看是否符合您的需求。 ================================= <>涵養怒中氣。謹防順口言。留心忙裡錯。珍惜有時錢。 <>是非終日有，不聽自然無 <>天下本無事，庸人自擾之

我現在程式是可以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;    

您好﹗    對于此類的問題﹐小弟當初有和您同樣的困扰﹒ 我們一步一步來講﹐對Access資料庫檔案做保全﹐即對資料庫設定密碼﹐可參考tech_state版主所言﹐以獨占模式開啟資料庫檔案﹐即可對其設定保全密碼﹒    使用ADOConnection元件來連接已設定保全密碼的Access資料庫檔案﹐指定連接檔案后﹐需在All（全部）頁次中的Jet OLEDB: Datebase Password中設定正确的保全密碼﹒而非在Connection（連接）頁次中設定﹒    在Connection（連接）頁次中﹐請遵從預設的使用者名稱狀態﹐并請勾選Bland Password（空白密碼）選項﹐使密碼輸入框設為無效﹒    ADOConnection元件的LoginPrompt屬性的意義是是否出現密碼輸入框﹐如果設定為True﹐則會出現﹐并將您先前設定的使用者名稱自動代入﹐如果不需要出現的話﹐則將其設為False﹒在此處﹐有個小小的建議﹐就是將此屬性值設為False﹐針對專案的保全部分﹐大可自行建立密碼驗証的Form（小弟記得您之前已有問及過相關于此的問題）﹒    以上建議﹐供您參考﹗    ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

我現在關於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;

現在程式又可以正常run了!!! 多謝各位大大的熱心回覆 真是太感激了!!!!

您好﹗    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; 參考看看﹗ ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

您好﹗    補充一下﹒ 剛才看了一下您貼上的錯誤信息﹐問題是在于在指定的目錄中并沒有Moto.mdb這個Access檔案﹐小弟之前也有參考過這個的使用方法﹐但目前比較多使用的是﹕把長長的檔案目錄字串換成用 .來使用﹐只要是資料庫檔案和專案在同一目錄時﹐在設定時會方便很多﹐您可以此方法測試一下﹒ 以上供您參考﹗ ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟