Mira Sebastian te cuento, el problema es que yo uso VBasic 6.0 con SQLserver,
entonce estoy implementando la Restaura dentro del Modulo, para ello debo
tumbar las conexiones en el servidor, hice lo siguiente
SQL = "SELECT sysprocesses.spid " & _
" FROM sysprocesses INNER JOIN sysdatabases ON sysprocesses.dbid =
sysdatabases.dbid " & _
" WHERE hostname='" & Environ("COMPUTERNAME") & "'" & " and
(sysdatabases.name = '" + basedatos + "') "
If rsAdo.State = adStateOpen Then rsAdo.Close
rsAdo.Open SQL, conect_Ado_master
If Not rsAdo.EOF Then
While Not rsAdo.EOF
SQL = "Kill " & rsAdo("spid")
cnnLocal.Execute SQL
rsAdo.MoveNext
Wend
End If
Es decir tumbo estas conexiones porque si no me da error a pesar de que le doy
close y nothing
________________________________
De: [email protected] [mailto:[EMAIL PROTECTED] En nombre de Sebastian Ariel
Gambolati
Enviado el: Jueves, 11 de Enero de 2007 01:34 p.m.
Para: vbusers List Member
Asunto: [vbusers] Sobre conexion de VBasic y SQL
Esta bien lo que vos decis, pero seguramente en el "Destructor" de la clase
Conection, hay una llamada al cierre de conexiones. Sino, en todas mis
aplicaciones vivirian las conexiones abiertas hasta que el SQL Server se digne
a cerrarlas. Que dicho sea de paso, no le confio eso al SQL Server.
Daniel Calvin <[EMAIL PROTECTED]> escribió:
Perdón hay un error de concepto:
Set Conexion = Nothing Libera la referencia a la conexión para que el runtime
de vb pueda liberar la referencia al objeto.
Lo correcto es hacer:
Conexion.Close
Y cuando ya no se utilice el objeto Conexion, si hacer:
Set Conexion = Nothing
Daniel Calvin
El día 11/01/07, Sebastian Ariel Gambolati <[EMAIL PROTECTED]> escribió:
El Set Conexion = Nothing, deberia cerrarte la conexion (como cualquier recurso
que estes usando). Pero por si las dudas, podes hacer: Conexion.Close
Sonia Perez Peña <[EMAIL PROTECTED] > escribió:
Hola he detectado que a pesar de poner a Nothing la conexión queda dormida por
un espacio en el servidor, ?alquien pidia decirme como resolver esto
Sebastian Gambolati
________________________________
Preguntá. Respondé. Descubrí.
Todo lo que querías saber, y lo que ni imaginabas,
está en Yahoo! Respuestas (Beta).
Probalo ya! <http://ar.answers.yahoo.com/>
--
Daniel A. Calvin
Cooperator Team Member
http://www.cooperator.com.ar
Microsoft Certified Professional
Sebastian Gambolati
________________________________
Preguntá. Respondé. Descubrí.
Todo lo que querías saber, y lo que ni imaginabas,
está en Yahoo! Respuestas (Beta).
Probalo ya! <http://ar.answers.yahoo.com>
