查看單個文章
舊 2018-08-20, 09:16 PM   #2 (permalink)
mini
管理版主
 
mini 的頭像
榮譽勳章
UID - 4144
在線等級: 級別:86 | 在線時長:7759小時 | 升級還需:158小時級別:86 | 在線時長:7759小時 | 升級還需:158小時級別:86 | 在線時長:7759小時 | 升級還需:158小時級別:86 | 在線時長:7759小時 | 升級還需:158小時級別:86 | 在線時長:7759小時 | 升級還需:158小時級別:86 | 在線時長:7759小時 | 升級還需:158小時
註冊日期: 2002-12-07
文章: 11866
精華: 0
現金: 22971 金幣
資產: 3020321 金幣
預設

根據
http://www.wnvs.cyc.edu.tw/ebook/ADO.htm
https://docs.microsoft.com/zh-tw/sql...ql-server-2017

這兩篇的列印技巧
應該是用 驚嘆號(!)來做欄位區隔
Print #m_num, RS("日期"), Count(日期)
改成
Print #m_num, RS!日期 '<<<RS!欄位名稱

SQL裡的過濾語法有兩種
一種是在 OPEN時實現 (一次寫清楚)
另一種是OPEN後利用 .方法達成,比如有
排列方法 : .Sort =
過濾方法 : .Filter =

所以你的問題其程式碼結構是:
OPEN SQL語法
再用 SELECT COUNT 下達計數
最後用
Dim i as integer
Do While Not RS.EOF
i=i+1
Print #m_num, RS!日期, i '一筆一筆的Print處理
Loop

============
以上未經試驗,因為說來慚愧幾乎不怎麼用 SQL過

此帖於 2018-08-20 09:37 PM 被 mini 編輯.
mini 目前離線  
送花文章: 1691, 收花文章: 7416 篇, 收花: 25834 次
回覆時引用此帖
有 2 位會員向 mini 送花:
a471 (2018-08-21),飛行船大大 (2018-08-21)
感謝您發表一篇好文章