Cerrar cualquier conexión abierta

[Alexjose]

Quisiera que alguien me explicara por favor como cerrar cualquier conexion abierta en el sitio antes de abrir una nueva.
Gracias... ;)
Alex...

[anagr2001]

No puedes cerrar la conexion si no hay abierta ninguna, pero la instruccion para cerrar conexiones es :
RecordSet.close :)

[Alexjose]

Gracias espero me sirva..

Alex...

[Aston]

Hola, aclaremos un poco.

Dim bd, rs

'Instanciamos el objeto de la conexión...

Set bd = Server.CreateObject("ADODB.Connection")

'Abrimos nuestra conexión (este es un ejemplo de SQL Server)

bd.Open "PROVIDER=SQLOLEDB;DATA SOURCE=trem44;UID=Bost"

'Instanciamos el objeto Recordset

Set rs = Server.CreateObject("ADODB.Recordset")

'Si hubiéramos abierto el recordset díriamos...

rs.Close

'Pero como no lo hemos abierto, sólo nos queda liberarlo...

Set rs = Nothing

'Cerramos la conexión a la base de datos...

bd.Close

'Y liberamos el objeto conexión de la memoria

Set bd = Nothing


Espero te sirva. Saludos.

<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>

[Alexjose]

A ver este es parte del codigo y por lo visto se parece mucho al que me muestras, creo que el error lo esta dando el PWS
&lt;%
Set cn=Server.CreateObject(&quot;ADODB.Connection&quot ;)
openStr = &quot;driver={Microsoft Access Driver (*.mdb)};&quot; &amp;_
&quot;dbq=&quot; &amp; Server.MapPath(&quot;prueba1.mdb&quot;)
cn.Open openStr
sql = &quot;SELECT * FROM prueba1;&quot;
Set rs = Server.CreateObject(&quot;ADODB.Recordset&quot;)
rs.Open sql, cn, 3, 3
On Error Resume Next
rs.MoveFirst

Do While Not rs.EOF
=Server.HTMLEncode(rs.Fields(&quot;nombre&quot;).V alue)
.
.
.
.
.
.
rs.MoveNext

Loop
rs.Close
Set rs = Nothing
cn.Close
Set cn=Nothing
%&gt;

[bakanzipp]

por ke no pruebas con esto?

Código:

  
sql = "SELECT * FROM prueba1;"
set rs = cn.Execute(SQL)

[mamon]

aparte primero cierra y luego elimina
rs.close
cn.close
set rs = nothing
set cn = nothing

Giancarlo Loret de Mola (Mamon)

[Alexjose]

Ok, ya organice el codigo y cerre las coneciones antes de eliminar
y ya estoy sacandole probecho a las sentencias sql
Hasta ahora funciona...
Alex....