Conexión a Bd.

[henryzs]

hola:

yo tambien tengo la misma duda que todavia no se despeja.Tengo lo siguiente:

Dim rst As ADODB.Recordset
Dim cmd As ADODB.Command

Set rst = CreateObject("ADODB.Recordset")
Set cmd = CreateObject("ADODB.Command")

cmd.ActiveConnection = GetConnectionString()
cmd.CommandText = strSP
cmd.CommandType = adCmdStoredProc

rst.CursorLocation = adUseClient
rst.CursorType = adOpenStatic
rst.LockType = adLockReadOnly
rst.Open cmd

Set execProcedureRecordset = rst

Set cmd.ActiveConnection = Nothing
Set rst.ActiveConnection = Nothing

Set rst = Nothing
Set cmd = Nothing

------------------
La duda es si al final de todo efectivamente logre cerrar la conexión a bd mediante:

Set cmd.ActiveConnection = Nothing
Set rst.ActiveConnection = Nothing

antes tenia un objeto connection cnn y se lo asignaba a cmd.ActiveConnection y luego al final hacia
cnn.close con lo que si estaba seguro que cerraba la conexión.
pero ahora solo asigno una "cadena" y no un objeto connection por lo tanto solo me queda setearlos a nothing.

a ver quien aclara mis dudas..

gracias de antemano.

[Owen-Bonilla]

no he manejado mucho de sesiones, pero al parecer si se esta cerrando la sesion.
Yo cierro sesiones con solo usar la instrucción que tienes en las dos ultimas lineas e tú código.
Si estoy mal que alguien me corriga

Saludos

Owen Bonilla
Webmaster Weblaguna S. C.
[email protected]
[email protected]

[DARIOI]

HOLA USA ESTE TIPO DE CONECCIONES A ACCESS:

<%@ Language=VBScript %>

<%Set Conna = Server.CreateObject("ADODB.Connection")
'nota: la cadena de conexión debe de ir en una sola línea, aqui esta cortada por diseño
Conna.Open("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\inetCri02\inetCriexcluidos_02\site _demo_bd_cri_02\C2001_aspportalvirtual01\postales. mdb")
set rs=createobject("ADODB.Recordset")
sqltxt="SELECT distinct tema from postales"
rs.open sqltxt,conna%>

<%
accessdb="votes_db"
cn="driver={Microsoft Access Driver (*.mdb)};"
cn=cn & "dbq=" & server.mappath(accessdb)
set rs = server.createobject("ADODB.Recordset")
sql = "select ip from ballot where ip ='" & u_ip & "'"
rs.Open sql, cn%>
<%
cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Da ta Source=" & _
Server.MapPath("noticias.mdb"))%>

<%
cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Da ta Source="Server.MapPath("noticias.mdb&quo t;))%>