Desconexión en sql
Buenas tardes, tengo un problema al desconectar un ataque sql desde fox pro.
Hago lo siguiente - gnConnHandle= SQLSTRINGCONNECT("Driver=SQL Server; Server=&servi1; uid=sa; pwd=b4st0nc1t0s; database=dl2005")
y luego después de ejcutar - sqlExec(gnConnHandle,lcSelect,"Cursoringreso")
, desconecto la cadena de conexión de la siguiente forma - sqldisconnect(gnConnHandle). Pero la conexión sigue activa en el servidor, ¿hay alguna otra manera de realizar la desconexión?
Muchas gracias
Hago lo siguiente - gnConnHandle= SQLSTRINGCONNECT("Driver=SQL Server; Server=&servi1; uid=sa; pwd=b4st0nc1t0s; database=dl2005")
y luego después de ejcutar - sqlExec(gnConnHandle,lcSelect,"Cursoringreso")
, desconecto la cadena de conexión de la siguiente forma - sqldisconnect(gnConnHandle). Pero la conexión sigue activa en el servidor, ¿hay alguna otra manera de realizar la desconexión?
Muchas gracias
1 Respuesta
Respuesta de piraton
1
SQLDISCONNECT( ) returns 1 if the connection is successfully terminated, ? 1 if there is a connection level error, and ? 2 if there is an environment level error.
Ejemplo que utilizo en un sistema.
lcMDBDir = 'C:\poliasist\web'
lcMDBName = 'web.mdb'
* String donde me conecto por ADO a la Base de Access
gnConnHandle = SQLSTRINGCONNECT('DSN=MS Access Database;DBQ='+;
lcMDBDir+'\'+lcMDBName+';DefaultDir='+;
lcMDBDir+';DriverId=25;FIL=MS Access;MaxBufferSize=2048;'+;
'PageTimeout=5;UID=admin;')
* Conpruebo si me conecte
IF gnConnHandle < 0
= MESSAGEBOX('No se puede conectar', 16, 'Error de conexión SQL')
ELSE
** Hago mis procesos ***
= SQLDISCONNECT(gnConnHandle)
Endif
Para mi, lo más probable es que tengas un error en tu código, por lo cual queda abierta la conexión.
Ejemplo que utilizo en un sistema.
lcMDBDir = 'C:\poliasist\web'
lcMDBName = 'web.mdb'
* String donde me conecto por ADO a la Base de Access
gnConnHandle = SQLSTRINGCONNECT('DSN=MS Access Database;DBQ='+;
lcMDBDir+'\'+lcMDBName+';DefaultDir='+;
lcMDBDir+';DriverId=25;FIL=MS Access;MaxBufferSize=2048;'+;
'PageTimeout=5;UID=admin;')
* Conpruebo si me conecte
IF gnConnHandle < 0
= MESSAGEBOX('No se puede conectar', 16, 'Error de conexión SQL')
ELSE
** Hago mis procesos ***
= SQLDISCONNECT(gnConnHandle)
Endif
Para mi, lo más probable es que tengas un error en tu código, por lo cual queda abierta la conexión.
Tienes razón, estuve probando y efectivamente abría una conexión más de las que debía.
Muchas gracias por tú respuesta.
Un saludo
Muchas gracias por tú respuesta.
Un saludo
