CLOSE DATABASES all CLEAR DELETE DATABASE TestReconnect CREATE DATABASE TestReconnect con = SQLCONNECT("LocalServer") IF con<1 ? "Failed to connect!" RETURN ENDIF CREATE CONNECTION test CONNSTRING (SQLGETPROP(con,"ConnectString")) SQLDISCONNECT(con) CREATE SQL VIEW view1 REMOTE CONNECTION test SHARE As ; select top 1 * from northwind..categories CREATE SQL VIEW view2 REMOTE CONNECTION test SHARE As ; select top 2 * from northwind..categories SELECT 0 USE view1 DELETE ALL ? "Connection handle:",CURSORGETPROP("ConnectHandle","view1") LIST SELECT 0 USE view2 DELETE ALL ? "Connection handle:",CURSORGETPROP("ConnectHandle","view2") LIST WAIT "Kill the connection ..." IF REQUERY("view1")!=1 ? "REQUERY failed, disconnect and retry." AERROR(aerrs) DISPLAY MEMORY LIKE aerrs LOCAL hdbc as Integer hdbc=SQLGETPROP(CURSORGETPROP("ConnectHandle","view1"),"ODBChdbc") ASQLHANDLES(sqlhndls) FOR I=1 TO ALEN(sqlhndls) IF SQLGETPROP(sqlhndls(I),"ODBChdbc")=hdbc ? "Disconnecting handle:", sqlhndls(I) ?? sqlidledisconnect(sqlhndls(I)) ?? SQLGETPROP(sqlhndls(I),"ODBChdbc") ENDIF NEXT IF REQUERY("view1")!=1 OR REQUERY("view2")!=1 ? "REQUERY failed!!!" AERROR(aerrs) DISPLAY MEMORY LIKE aerrs ELSE ? "REQUERY succeeded" SELECT view1 LIST SELECT view2 LIST ENDIF ENDIFOutput:
Connection handle: 2 Record# CATEGORYID CATEGORYNAME DESCRIPTION PICTURE 1 * 1 Beverages Memo Gen Connection handle: 3 Record# CATEGORYID CATEGORYNAME DESCRIPTION PICTURE 1 * 1 Beverages Memo Gen 2 * 2 Condiments Memo Gen Kill the connection ... REQUERY failed, disconnect and retry. AERRS Pub A ( 1, 1) N 1526 ( 1526.00000000) ( 1, 2) C "Connectivity error: [Microsoft][ODBC SQL Serv er Driver][Shared Memory]ConnectionWrite (Wrap perWrite())." ( 1, 3) C "[Microsoft][ODBC SQL Server Driver][Shared Me mory]ConnectionWrite (WrapperWrite())." ( 1, 4) C "01000" ( 1, 5) N 4 ( 4.00000000) ( 1, 6) N 2 ( 2.00000000) ( 1, 7) C .NULL. ( 2, 1) N 1526 ( 1526.00000000) ( 2, 2) C "Connectivity error: [Microsoft][ODBC SQL Serv er Driver][Shared Memory]ConnectionWrite (Wrap perWrite())." ( 2, 3) C "[Microsoft][ODBC SQL Server Driver][Shared Me mory]General network error. Check your network documentation." ( 2, 4) C "08S01" ( 2, 5) N 11 ( 11.00000000) ( 2, 6) N 2 ( 2.00000000) ( 2, 7) C .NULL. Disconnecting handle: 2 1 33493832 Disconnecting handle: 3 1 0 REQUERY succeeded Record# CATEGORYID CATEGORYNAME DESCRIPTION PICTURE 1 1 Beverages Memo Gen Record# CATEGORYID CATEGORYNAME DESCRIPTION PICTURE 1 1 Beverages Memo Gen 2 2 Condiments Memo GenThanks,