append procedures 命令是計算機編程的一種命令代碼。append procedures 命令將文本檔案中的存儲過程追加到當前資料庫中。
語法,參數,說明,示例,
語法
APPEND PROCEDURES FROM filename[AS nCodePage] [OVERWRITE]
參數
FileName
指定文本檔案，函式將追加其中的存儲過程。
AS nCodePage
指定要追加其存儲過程的文本檔案所在的代碼頁。Visual FoxPro 在複製文本檔案的內容時，自動將文本檔案的內容轉換成指定的代碼頁。如果指定的 cCodePage 值無效，Visual FoxPro 將產生錯誤信息。可以使用 GETCP( ) 函式顯示“代碼頁”對話框，並從中指定文本檔案的代碼頁，此文本檔案包含要追加的存儲過程。如果忽略 AS nCodePage，Visual FoxPro 將複製文本檔案的內容，並自動將文本檔案內容轉化成 Visual FoxPro 的當前代碼頁。您可以用 CPCURRENT( ) 函式設定 Visual FoxPro 的當前代碼頁。
如果 nCodePage 值為零，Visual FoxPro 將假定文本檔案的代碼頁與當前資料庫的代碼頁相同，不進行代碼頁轉換。
OVERWRITE
指定用文本檔案中的過程改寫資料庫中的當前存儲過程。如果忽略參數 OVERWRITE，將不改寫資料庫中的當前存儲過程，文本檔案中的存儲過程追加到當前存儲過程中。
說明
使用 append procedures 命令，可以用編程方式修改資料庫中的存儲過程。運行 APPEND PROCEDURES 時，資料庫必須是打開的，並且為當前資料庫，否則 Visual FoxPro 將產生錯誤信息。append procedures 命令要求資料庫以獨占方式打開。要以獨占方式打開資料庫，需要在 OPEN DATABASE 命令中包含 EXCLUSIVE 子句。
示例
（下面的示例先打開資料庫 testdata，然後創建一個包含單個備註欄位的臨時表 mytable，用 replace 命令把存儲過程 myprocedure 存入備註欄位中。接著使用 copy memo 命令創建包含備註欄位內容的臨時文本檔案 mytemp.txt。使用 append procedures 命令將臨時文本檔案中的存儲過程追加到資料庫中。使用 display procedures 命令顯示資料庫中的過程，然後刪除臨時表和文本檔案。）
close databasesset path to (home( ) + 'samples\data\') && 設定資料庫路徑open database testdata && 打開資料庫 testdata
create table mytable free (mprocedure m) && 創建臨時表append blankreplace mprocedure with 'procedure myprocedure' + chr(13) + chr(10)copy memo mprocedure to mytemp.txt && 臨時檔案use && 關閉臨時表
append procedures from mytemp.txt && 將過程複製到資料庫中cleardisplay procedures && 顯示過程delete file mytable.dbf && 刪除臨時表delete file mytable.fpt && 刪除臨時表備註檔案delete file mytemp.txt && 刪除臨時檔案
