(原創) 如何擷取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自己的錯誤一樣。