VFP 愛用者社區

[LiChingLin]

A.DBF
F_COID C(5), F_TYPE N(1), F_VALUE N(10)

B.DBF
F_COID C(5), F_TYPE N(1), F_VALUE N(10), F_RECNO N(10)

SELECT A
SET FILTER TO F_COID='CA123'
GO TOP
SELECT B
ZAP
APPEND FROM A FOR F_TYPE=1

請問一下B.DBF的F_RECNO欄位如何透過APPEND FROM存入A.DBF對應的RECNO()

[LiChingLin]

因為DBF過於龐大
200多個欄位 10多萬筆紀錄
之前用
SELECT RECNO() AS F_RECNO ......... INTO CURSOR ....
沒問題 但是非常慢
用了 APPEND FROM 快很多 約需1/3 - 1/4 時間就可以
但是 最重要的 RECNO() 怎麼寫入呢 ...

[bx1166]

把A也增加Recno的欗位，如同B，譲這個f_recno一樣的資料，
Select b
Repl all f_recno with recno（)
Select a
Append from b

Sorry ab 弄顚倒了

[lygcw9603]

桎建立獥系SET RELATION TO …………

[LiChingLin]

來源DBF是隔壁公司的
只給讀不給改 有權限問題 設計者已經不可考
重點是 至少有46個是超大的 是要每天經常性讀取
每日還要回傳資料
使用者快 起笑了
很想讓使用者改善工作效率提早下班

前幾年都很快 但是資料累計過大
目前是想說有沒有更好的演算方式或是指令能改改善現況

先謝謝大家的關心

[bx1166]

既然可以讀就建立一份拷貝，每天只要update有異動的部分，拷貝的自己加上需要的欗位。

[goodnight]

如果 A.DBF 的結構不能改, 那就只能慢了

你直接下這樣比較快吧?
SELECT A.*, RECNO() AS F_RECNO FROM A WHERE A.F_COID='CA123' AND A.F_TYPE = 1 INTO DBF B
然後重建 B.DBF 的索引

正常來說 SELECT SQL 語法不應該慢的

試試這樣會不會快一點, 但電腦記憶體要大一才好
SELECT A.*, RECNO() AS F_RECNO FROM A WHERE A.F_COID='CA123' AND A.F_TYPE = 1 INTO ARRAY ARY_A
INSERT INTO B FROM ARRAY ARY_A

[bx1166]

資料應該不是每日都會產生十多萬筆的吧？
要處理的應該只是每日增加的或是修改的吧？
我認為你們的處理方式有些改善的必要。

[LiChingLin]

回 bx1166
你的論點也是個辦法.但是可能套用在讀取隔壁公司DBF上.可能不好搞.
我觀察出
有些資料庫dbf每月約增加8000-20000筆
有些資料庫dbf每月約增加3000-7000筆
...
更奇怪的是recno()還常常會變
有些資料庫DBF有時20多萬會變10多萬
有些資料庫DBF有時5萬多會變7萬多
我看不明白這是在幹麻 ...
我猜測隔壁公司下班後有delete()跟pack.還外加[備份回存]的套餐吧


回 goodnight
SELECT A.*, RECNO() AS F_RECNO FROM A ... INTO ARRAY 可以用
但是有些大DBF(欄位多.筆數多)會錯誤
我猜是ARRAY(MEMORY)的限制 ...


先謝謝大家關心

[bx1166]

記錄每天最後一筆的內容，隔天找到那一筆，就只讀取那後來所有新增的，那些就是每天
要處理的，至於delete pack的沒差。因為一般刪掉的都是過時的,除非有另外不可預料的

sele 1
use a
copy to mydrive\mtemp

*** use mtemp to do other prg
** will be overwrited next day
***next day

sele 1
use mydrive\mtemp
go bott
mid=A.F_coid
mvalue=A.f_value
mtype=a.f_type
use a
locate for f_coid=mid .and. f_value=mvalue .and. F_type=mtype
if .not. eof()
mno=a.recno()
copy to mydrive\mtemp for recno()>mno
Else
? "Error reading data"
endif
use

[goodnight]

[LiChingLin]

主要因素就是
先讀取隔壁公司的資料
匯入部份資料於我方資料庫
排工作->製造加工->紀錄進度->回傳資料(新yymmdd.dbf)
工作下班前回傳資料給隔壁公司
因為隔壁公司dbf沒有onlykey可識別.僅靠recno()及部分欄位區分資料
回傳當日dbf對應recno()及幾項欄位做對應檢查比對用
當日下班前會比對資料才算完成作業
有限於隔壁公司電腦系統的關係
目前只有慢慢想辦法了

[bx1166]

Recno()既然可以找到，當然可以寫回去，多加一兩行在locate後面即可,問題不大

[goodnight]