Code: Select all
Procedure.i Sqlite3_CountChanges (DBID)
Protected SQL.S = "SELECT changes()", Result.l = -1
If DatabaseQuery(DBID, SQL)
If NextDatabaseRow(DBID)
Result = GetDatabaseLong(DBID, 0)
EndIf
FinishDatabaseQuery(DBID)
Else
Debug DatabaseError()
EndIf
ProcedureReturn Result
EndProcedure