Alo colegas
tenho a seguinte d�vida
Trabalho na vers�o 1.5 Centura e Motor de base de dados SQLBASE 7.0
Acontece que a maior parte das vezes quando nos conectamos � base de dados e ao tentarmos ler determinada tabela
se esta estiver em uso por outro colega a aplica��o bloqueia. Eu gostaria de saber se o c�digo abaixo � o mais correcto
de ser usado.
ON SAM_AppStartup
If SalModalDialog( dlgLogina, hWndNULL)
Call SalWaitCursor( TRUE )
Call SqlSetResultSet( hSql, TRUE )
Call SqlSetIsolationLevel( hSql, 'RL' )
Call SqlSetIsolationLevel( hSql1, 'RL' )
Call SqlSetParameter( hSql, 5,-1, '' )
Call SqlSetParameter( hSql1, 5,-1, '' )
Call SqlSetParameter( hSql1, DBP_AUTOCOMMIT, TRUE, '' )
Call SqlSetParameter( hSql, DBP_AUTOCOMMIT, TRUE, '' )
Call SqlSetParameter( hSql, DBP_PRESERVE, TRUE, '' )
Call SqlSetParameter( hSql1, DBP_PRESERVE, TRUE, '' )
Call SalWaitCursor( FALSE )
Call SalCreateWindow( mdiSismenu, hWndNULL ) (cria��o da primeira janela)
Call SalMapEnterToTab( TRUE )
DIALOGBOX LOGINA
Call SalWaitCursor( TRUE )
Set sUsername = dfUserName
Set sPassword = SalStrUpperX(dfPassword)
Set SqlUser = dfUserName
Set SqlPassword = dfPassword
Set SqlDatabase = 'WINSISAB'
Set bConectado = SqlConnect(hSql)
If NOT bConectado
Call SalWaitCursor(FALSE)
Return FALSE
Set bConectado3 = SqlConnect(hSqlReport)
Set bConectado2 = SqlConnect(hSql1)
If NOT bConectado OR
NOT bConectado2 OR
NOT bConectado3 OR
Call SalWaitCursor(FALSE)
Return FALSE
Call SalEndDialog(dlgLogina, TRUE)
