33 lines
799 B
Plaintext
33 lines
799 B
Plaintext
Compile subroutine Copy_All_Sql_Errors_To_SQL(VOID)
|
|
|
|
/*****************************************************************************\
|
|
This is a utility function. It resynchronizes all errors found in the
|
|
SQL_ERROR table.
|
|
\*****************************************************************************/
|
|
|
|
Equ Update_Interval$ to 1000
|
|
|
|
Declare subroutine Copy_Sql_Errors_Record_To_Sql
|
|
Declare function GetASyncKeyState
|
|
|
|
Tables = ""
|
|
|
|
Convert "," to @FM in Tables
|
|
|
|
Errors = ""
|
|
|
|
Open "SQL_ERROR" to hTable then
|
|
ClearSelect
|
|
Select hTable
|
|
Done = 0
|
|
Loop
|
|
ReadNext Key else Done = 1
|
|
Until Done OR (GetASyncKeyState(27) LT 0)
|
|
Copy_Sql_Errors_Record_To_Sql(Key, 1)
|
|
Repeat
|
|
end else
|
|
Call Msg(@Window, "Unable to open table.")
|
|
end
|
|
|
|
Return
|