2012年8月9日 星期四

Access VBA 將檔案路徑存入資料表(用AtciveX & DAO)

嗯..昨天晚上突然又想做檔案庫...以Access做管理平台
由數個表單可以做目錄瀏覽、新增檔案路徑到資料表等....

昨天晚上摸了兩個小時,終於成功選取檔案,並將檔案路徑新增到資料表記錄中
動用到了DAO和ActiveX

好感動終於有東西可以增文了


在資料庫中建立一個  資料表 "data" 和一個表單 "form"


data 資料表中的欄位名稱為 file



form表單中有兩個物件 一個是ActiveX拉出來的,另外一個是新增資料用的按鈕



在設計檢視模式底下表單設計工具中,拉下按鈕,可以插入ActiveX控制項



在表單中插入 Microsoft Common Dialog Control,Version 6.0


接著再插入一個按鈕



我們按鈕用VBA來寫

以下是使用 CommonDialog讀入檔案路徑 以及 DAO新增資料表記錄 的程式碼
Private Sub Command19_Click()

  Dim F As String  '定義變數 F 用來儲存檔案路徑

  Dim dbdata As DAO.Recordset  'dbdata為DAO記錄集

     CommonDialog1.ShowOpen          '開啟舊檔視窗

     F = CommonDialog1.FileName       '讀入選取的檔案

   Set dbdata = CurrentDb.OpenRecordset("data")    '打開data資料表

     dbdata.AddNew '新增資料

        dbdata("file") = F

     dbdata.Update

End Sub
另外dbdata.AddNew的部分,如果要新增的欄位很多,也可用With.dbdata方式新增
With dbdata

   .AddNew

       !file = f

   .Update

End With



這個問題苦惱我兩個小時有
後來真的超感謝學姊丟DAO的查詢給我參考
再稍微摸索以後就了解怎麼寫了,在此做個筆記

沒有留言:

張貼留言