Posted by: Alberto Aviles
en lo particular , para no estar configurando cada coneccion toma este
codigo, en algunas ocasiones, no sabemos por que, de repente la base no toma
los parametros, to tenia ese problema con la base 7 asi que hicimos esta
funcion, y cambiamos todos los SqlConnect. asi siempre tengo la misma
configuracion en la coneccion a la base
Code: Select all
Function: ConectaDB
Description: Hace las conecciones de los hanler's con las debidas
parametrizaciones
Returns
Parameters
Receive Sql Handle: hSql
Static Variables
Local variables
String: sString
Actions
Call SalWaitCursor( TRUE )
Set bOk = FALSE
If SqlConnect(hSql)
Call SqlSetResultSet( hSql, TRUE )
Call SqlSetIsolationLevel( hSql, 'RL' )
Call SqlSetParameter( hSql, DBP_PRESERVE , TRUE, '' )
Call SqlSetParameter( hSql, DBP_AUTOCOMMIT , FALSE, sString )
Call SqlSetParameter( hSql, DBP_ROLLBACKONTIMEOUT , FALSE, '' )
Call SqlSetLockTimeout( hSql, 60 )
Set bOk = TRUE
Else
Call SalMessageBox( 'No es posible conectar con la base de Datos',
'HANDLER', MB_IconStop )
Set bOk = FALSE
Call SalWaitCursor( FALSE)
Return bOk