VFP 愛用者社區

[smithjoe]

您好:

我有個DBF有150萬筆紀錄(約1.5GB).....
當中我想update5000筆紀錄, 如下...
update salestran set cinput = '20151112' where sales_id = 'A7089321'

我copy了所有update statement個prg去update, 但每筆update需時1秒到133秒.十分費時

請問有更快方法嗎??

謝!!

[syntech]

這其實是一個很大的問題.

[CPS0204]

加入 index (tag) 會快很多!
index on SALES_ID TAG YOUR_TAG1
SEEK 'A7089321'
DO WHILE !EOF() .AND. SALES_ID='A7089321'
REPL CINPUT WITH '20151112'
SKIP
ENDDO
ERASE TAG YOUR_TAG1

[smithjoe]

可提示update 5000筆紀錄的寫法?

[ckp6250]

問題不大
改善硬體設備即可

以樓主這項簡單工作來說
我認為5-10秒內可完工

vfp處理150萬筆資料，輕鬆愉快

[bx1166]

改用ssd硬碟
改用RAM disk 來跑
把資料檔案分拆
或以上皆是

[bx1166]

我很好奇，有一百五十萬筆資料
那麼改用
Replace all Cinput with '20151112' for sales_id='a7089321'
速度上有差異嗎？

[ckp6250]

六樓可行, 但要加再上如下設定（設定在　config.fpw）

TMPFILES=GETENV("TEMP")
EDITWORK=GETENV("TEMP")
SORTWORK=GETENV("TEMP")
PROGWORK=GETENV("TEMP")
=SYS (3050, VAL(SYS (3050, 1, 0)) / 3)

把 windows 的 temp 設到 Ramdisk 上, 如虎添翼
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
三樓的程式可行, 但改進一點會加速很大

index on SALES_ID TAG YOUR_TAG1 for SALES_ID='A7089321'
REPL CINPUT WITH '20151112' next 5000

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
結合3+6樓之改進建議, 我實測了一個142萬筆的資料
如樓主所需,更新其5000 筆資料
總計費時不足2秒

結論：
對於大資料量，要加速其效能
１、硬體很重要
２、設定很重要
３、程式碼很重要

[bx1166]

從dBase III,clipper,fox base,fox pro
資料庫的最大瓶頸一直都是在硬碟的I/O上
因此要是一個檔案大小有1.5 G
那麼無論是更動讀寫或是備份，對於硬碟都是很耗時間
我一般都會想去避免這樣的情況

[ckp6250]

[CPS0204]

你的dbf很大,不建議放ssd
1.先不說SSD有寫入壽命,忽然閃一下電(沒UPS底下),SSD會來不急存檔,DBF及INDEX容易壞
2.如果要寫入時再COPY至SSD,UPDATE後再寫回磁碟,一來一往可能更耗時,若是多人網路版,更不準你這樣覆壓.
3.解決的方法不是買更快的電腦及SSD,應是改用SQL DATABASE,或加上INDEX!
4.當然:如果是一輩子只改這一次,當然可以COPY至SSD!,以上我是依:網路多人的進銷存系統執行時來考量!

[bx1166]

我碰到過的
電腦放在二樓，倉儲管理系統，整個建築物是以鐵架鐡皮屋組成
隔壁倉庫在二樓卸了一個有些重量的貨品，震動影響了讀寫中的硬碟
一大部分的檔案就這樣毀了
給大家參考一下，碰到，踢到電腦都有可能發生類似意外

[ckp6250]

[syntech]