VFP 愛用者社區

[hgj]

請教各位大俠以下兩個問題
問題1:我用以下excelVBA代碼打開recordset
data路徑 ="D:\vfp宏祥資料專案"
Set cn = New ADODB.Connection
cn_str = "DSN=Visual FoxPro Database;UID=;SourceDB=" & data路徑 _
& ";SourceType=dbf;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;"
cn.Mode = adModeReadWrite
cn.Open cn_str

Set rs = New ADODB.Recordset
sql = "select * from 客戶資料"
rs.Open sql, cn, adOpenStatic, adLockOptimistic

再用以下代碼刪除全部record:
Do Until rs.EOF
rs.Delete: rs.MoveNext
Loop
用vfp開啟*.dbf,記錄是標記刪除狀態,能否同時進行<移出已標示刪除的記錄>動作?
問題2:問題1的刪除代碼能否全部選取作一次刪除動作?

謝謝!

[elleryq]

應該是不行
pack 動作是 vfp 特有的~~
除非使用 vfp ,否則無法 pack ~~

[hgj]

我是剛學vfp,現在建立了一個查詢,才知道標記刪除的記錄會出現在查詢結果里,如此pack動作還是要先執行才好(我的資料是全部從excel寫進去的,寫入前先用上面的刪除代碼將已有資料全部刪除),在excelVBA里我用代碼VBA.Shell "C:\Program Files\Microsoft Visual Studio\Vfp98\vfp6.exe" 自動打開vfp,打開後怎樣能自動到vfp程式開啟*.dbf,再同時作delete和pack動作就不會寫了,我不知道這樣想法是否可行,如是可行,還想請各位高手具體幫幫小弟.thanks!

[elleryq]

在 vfp 裡面要用
set deleted on

[syntech]

或者是 SELECT -SQL 的 WHERE 條件中 加入 !DELETE()