IF SQLGETPROP(CURSORGETPROP("ConnectHandle",'biophysicalrv'),"ODBChdbc"); = SQLGETPROP(CURSORGETPROP("ConnectHandle",'itemsrv'),"ODBChdbc") begin transaction iStmt = SQLCONNECT(CURSORGETPROP("ConnectHandle",'biophysicalrv')) SQLExec( m.iStmt, 'BEGIN TRANSACTION' ) IF tableupdate( 2, .F., 'biophysicalrv' ) ... ELSE ENDIF If lEverythingOK SQLExec( m.iStmt, 'IF @@TRANCOUNT > 0 COMMIT' ) && with SQLSETPROP(0,"Transactions",DB_TRANSAUTO) * SQLExec( m.iStmt, 'WHILE @@TRANCOUNT > 0 COMMIT' ) && with SQLSETPROP(0,"Transactions",DB_TRANSMANUAL ) end transaction else SQLExec( m.iStmt, 'IF @@TRANCOUNT > 0 ROLLBACK' ) rollback Endif =SQLDISCONNECT(m.iStmt) ELSE MESSAGEBOX("Set shared connection for 'biophysicalrv' and 'itemsrv'") ENDIFFabio