台灣最大程式設計社群網站
線上人數
1071
 
會員總數:243469
討論主題:188184
歡迎您免費加入會員
討論區列表 >> ACCESS >> Access vba 如何開啟tbl檔案
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
Access vba 如何開啟tbl檔案
價值 : 20 QP  點閱數:284 回應數:1

樓主

Davie
門外漢
0 5
40 4
發送站內信


Access vba 如何開啟tbl檔案



搜尋相關Tags的文章: [ 開啟檔案 ] , [ VBA ] ,
本篇文章發表於2018-07-01 14:10
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
1樓
回應

A9
檢舉此回應
試著回答:
1. 用 (DAO:Data Access Objec 數據接口,用來下達 SQL 指令)
2. 分為 讀取(用SELECT ) 和 寫入(INSERT , UPDATE ,DELETE ) 方法 不太一樣
3. 讀取範例
dim ss as string
dim r as recordset
ss= "SELECT * FROM tblname ORDER BY date31; " '設定選取條件: 找出表的內容 最後一筆日期資料
Set r = DB31.OpenRecordset(ss, DB_OPEN_DYNASET) '開啟 數據集 指標, 選取符合條件之資料 選取出來 放置於 數據集內
If Not (r.EOF) Then '如果表不為空
r.MoveLast '將數據集 位置指標 移動到最後一筆
If (YY0 < r![date31]) Then YY0 = r![date31] '取得 主力進出 最近一筆錄入資料的日期
End If
4. 寫入範例
dim q as querydef
Set q = DB31.CreateQueryDef("") '指定 建立查詢指標 連接相關資料庫
T1 = Split(tt0, mk11) '第01次切割網頁內容 使用模版 mk11"
For m = 1 To UBound(T1) '處理資料 m迴圈開始處
s2 = Split(Split(T1(m), mk13)(1), mk14)(0) '主力名稱 第02次切割網頁內容 使用模版 mk13,mk14"
s3 = Split(Split(T1(m), mk15)(1), mk13)(1) '買進量 第03次切割網頁內容 使用模版 mk15,mk13"
s4 = Split(Split(T1(m), mk15)(2), mk13)(1) '賣出量 第04次切割網頁內容 使用模版 mk15,mk13"
s1 = Split(Split(T1(m), mk15)(4), mk13)(1) '佔比重 第05次切割網頁內容 使用模版 mk15,mk13"
j0 = Val(Left(s1, Len(s1) - 1)) / 100 '處理 佔比重字串 轉換數值 (例18.65% -> 0.1865)
q.SQL = "INSERT INTO " & T31 & " VALUES ( '" & day00 & "','" & s2 & "','" & s3 & "','" & s4 & "'," & j0 & ");" '新增一筆資料 (日期+主力名稱) 錄入T31表
q.Execute '執行 新增動作
Next m '處理資料 m 迴圈終止處

5. 參考網址: 資料庫設計 DAO 物件篇 /王國榮 http://bob.gddfpaper.com/computer/SOFTWARE/VB/37.htm (感謝 王國榮先生)
本篇文章回覆於2018-10-24 03:24
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.