如何擷取SQL Server所傳回的錯誤訊息? (Database) (Visual FoxPro)

函數 AError()

SQL  =   " INSERT stall01 (學號) VALUES ('511001') "
If  SQLe(SQLHand,SQL)  <   0    
    AError(Err)
    Messageb(Err( 2 ))
EndIf

*aerror()函數會將錯誤訊息存在err這個陣列
*其中err(2)所存的正是SQL Server所傳來的錯誤訊息

Remark
若使用ADO的方式送出Action Query,將不用自己處理錯誤訊息,若語法有錯,ADO將自動送出Error Message,如同VFP或VB自己的錯誤一樣。