problemas con acceso a datos

Hola

tengo una página ASP que debe extraer datos, mediante una función, de una

access y me da algunos problemas bastante serios:

si arranco el ordenador y pruebo la web va estupendamente, pero en el
momento que abro el archivo MDB y lo modifico, aunque luego lo cierre deja
de funcionar todo el web. debo reiniciar el S.O. para que vuelva a

es un poco engorroso pues cada vez que quiero modificar la BD debo

fuera del inetpub, modificarla y sobreescribir la original con la copia.

¿alguien sabe que puede ocurrir? ¿qué hago mal?

La estructura es la siguiente:

pagina.asp

contiene unos includes a funciones y procedimientos que se van a usar

varios ASP

<!-- #INCLUDE file="inc/iobd.asp" -->
<!-- #INCLUDE file="inc/negocio.asp" -->

<%

dim conexion
conectar conexion (es un procedimiento incluido en iobd.asp para facilitar
las conexiones/desconexiones de la BD)

además, contiene una llamada a una función saca_texto(1) que recoge el
parámetro 1 y devuelve una cadena de texto

desconectar conexion

Los procedimientos conectar/desconectar son los siguientes y estan en
iobd.asp:

sub conectar(byref conexion)
'on error resume next
'abrimos la base de datos
Set conexion = Server.CreateObject("ADODB.Connection")
if Request.ServerVariables("SERVER_NAME") = "jupiter" then
'conexion no dsn
conexion.Open "DRIVER={Microsoft Access Driver (*.mdb)};
DBQ=c:\Inetpub\wwwroot\web\db\web.mdb"
else
conexion.Open "DRIVER={Microsoft Access Driver (*.mdb)};
DBQ=c:\Inetpub\wwwroot\web\db\web.mdb"
end if
If (Err.Number <> 0) Then
procesar_error "conectar(byref conexion) en iobd.asp.", Err
End If
end sub

sub desconectar(byref conexion)
'on error resume next
'cerramos la conexion
conexion.Close
set conexion = Nothing
If (Err.Number <> 0) Then
procesar_error "desconectar(byref conexion) en iobd.asp.", Err
End If
end sub

la funcion saca_texto que se encuentra en negocio.asp es la siguiente:

Function saca_texto(pagina)
Dim cadena
'on error resume next
dim registro, consulta, num_resultados

consulta = "SELECT * FROM textos WHERE (pagina=" & CInt(pagina) & ")

BY parrafo"
Set registro = Server.CreateObject ("ADODB.RecordSet")
registro.Open consulta, conexion, 1' adOpenStatic
If (Err.Number <> 0) Then
procesar_error "saca_texto(pagina) en negocio.asp.", Err
End If
num_resultados = registro.RecordCount
if num_resultados > 0 then
while not registro.eof
titulo = registro("titulo")
texto = registro("texto")
if titulo <> "" then
cadena = cadena & "<p class=textoG>" & titulo
end if
cadena = cadena & "<p class=textoM>" & texto
registro.Movenext
wend
end if
registro.Close
Set registro = nothing
saca_texto = cadena
End Function

Generalmente ese problema se debe al tipo de bloqueo que se hace sobre el
archivo.

En las propiedades de la base de datos puedes cambiar este bloqueo.

Por otro lado, siempre es conveniente que la DB en el caso de Access este
fuera del wwwroot.

Saludos,

Matías Iacono
Microsoft MVP ASP/ASP.net - DCE3

Profile: http://aspnet2.com/mvp.ashx?MatiasIacono
"luis qTp" escribió en el mensaje
news:d8pbe.150482$
> Hola
>
> tengo una página ASP que debe extraer datos, mediante una función, de

BD
> access y me da algunos problemas bastante serios:
>
> si arranco el ordenador y pruebo la web va estupendamente, pero en el
> momento que abro el archivo MDB y lo modifico, aunque luego lo cierre

> de funcionar todo el web. debo reiniciar el S.O. para que vuelva a
funcionar
>
> es un poco engorroso pues cada vez que quiero modificar la BD debo
copiarla
> fuera del inetpub, modificarla y sobreescribir la original con la copia.
>
> ¿alguien sabe que puede ocurrir? ¿qué hago mal?
>
> La estructura es la siguiente:
>
> pagina.asp
>
> contiene unos includes a funciones y procedimientos que se van a usar
desde
> varios ASP
>
> <!-- #INCLUDE file="inc/iobd.asp" -->
> <!-- #INCLUDE file="inc/negocio.asp" -->
>
> <%
>
> dim conexion
> conectar conexion (es un procedimiento incluido en iobd.asp para

> las conexiones/desconexiones de la BD)
>
> además, contiene una llamada a una función saca_texto(1) que recoge el
> parámetro 1 y devuelve una cadena de texto
>
> desconectar conexion
>
> Los procedimientos conectar/desconectar son los siguientes y estan en
> iobd.asp:
>
> sub conectar(byref conexion)
> 'on error resume next
> 'abrimos la base de datos
> Set conexion = Server.CreateObject("ADODB.Connection")
> if Request.ServerVariables("SERVER_NAME") = "jupiter" then
> 'conexion no dsn
> conexion.Open "DRIVER={Microsoft Access Driver (*.mdb)};
> DBQ=c:\Inetpub\wwwroot\web\db\web.mdb"
> else
> conexion.Open "DRIVER={Microsoft Access Driver (*.mdb)};
> DBQ=c:\Inetpub\wwwroot\web\db\web.mdb"
> end if
> If (Err.Number <> 0) Then
> procesar_error "conectar(byref conexion) en iobd.asp.", Err
> End If
> end sub
>
> sub desconectar(byref conexion)
> 'on error resume next
> 'cerramos la conexion
> conexion.Close
> set conexion = Nothing
> If (Err.Number <> 0) Then
> procesar_error "desconectar(byref conexion) en iobd.asp.", Err
> End If
> end sub
>
> la funcion saca_texto que se encuentra en negocio.asp es la siguiente:
>
> Function saca_texto(pagina)
> Dim cadena
> 'on error resume next
> dim registro, consulta, num_resultados
>
> consulta = "SELECT * FROM textos WHERE (pagina=" & CInt(pagina) & ")
ORDER
> BY parrafo"
> Set registro = Server.CreateObject ("ADODB.RecordSet")
> registro.Open consulta, conexion, 1' adOpenStatic
> If (Err.Number <> 0) Then
> procesar_error "saca_texto(pagina) en negocio.asp.", Err
> End If
> num_resultados = registro.RecordCount
> if num_resultados > 0 then
> while not registro.eof
> titulo = registro("titulo")
> texto = registro("texto")
> if titulo <> "" then
> cadena = cadena & "<p class=textoG>" & titulo
> end if
> cadena = cadena & "<p class=textoM>" & texto
> registro.Movenext
> wend
> end if
> registro.Close
> Set registro = nothing
> saca_texto = cadena
> End Function
>
>
>

¿cómo? ¿desde Access?

¿es posible esto sin DSN? ¿y cuando la suba a su servidor adonde apuntará

ruta?

Muchísimas gracias, pero una respuesta casi siempre lleva a otra pregunta
O:-)

"Matias Iacono" escribió en el mensaje
news:
> Generalmente ese problema se debe al tipo de bloqueo que se hace sobre

> archivo.
>
> En las propiedades de la base de datos puedes cambiar este bloqueo.

¿cómo? ¿desde Access?

>
> Por otro lado, siempre es conveniente que la DB en el caso de Access

> fuera del wwwroot.

¿es posible esto sin DSN? ¿y cuando la suba a su servidor adonde apuntará

ruta?

>
> Saludos,

muchas gracias de nuevo!!

>
> Matías Iacono
> Microsoft MVP ASP/ASP.net - DCE3
>
> Profile: http://aspnet2.com/mvp.ashx?MatiasIacono
> "luis qTp" escribió en el mensaje
> news:d8pbe.150482$
> > Hola
> >
> > tengo una página ASP que debe extraer datos, mediante una función, de
una
> BD
> > access y me da algunos problemas bastante serios:
> >
> > si arranco el ordenador y pruebo la web va estupendamente, pero en el
> > momento que abro el archivo MDB y lo modifico, aunque luego lo cierre
deja
> > de funcionar todo el web. debo reiniciar el S.O. para que vuelva a
> funcionar
> >
> > es un poco engorroso pues cada vez que quiero modificar la BD debo
> copiarla
> > fuera del inetpub, modificarla y sobreescribir la original con la

> >
> > ¿alguien sabe que puede ocurrir? ¿qué hago mal?
> >
> > La estructura es la siguiente:
> >
> > pagina.asp
> >
> > contiene unos includes a funciones y procedimientos que se van a usar
> desde
> > varios ASP
> >
> > <!-- #INCLUDE file="inc/iobd.asp" -->
> > <!-- #INCLUDE file="inc/negocio.asp" -->
> >
> > <%
> >
> > dim conexion
> > conectar conexion (es un procedimiento incluido en iobd.asp para
facilitar
> > las conexiones/desconexiones de la BD)
> >
> > además, contiene una llamada a una función saca_texto(1) que recoge el
> > parámetro 1 y devuelve una cadena de texto
> >
> > desconectar conexion
> >
> > Los procedimientos conectar/desconectar son los siguientes y estan en
> > iobd.asp:
> >
> > sub conectar(byref conexion)
> > 'on error resume next
> > 'abrimos la base de datos
> > Set conexion = Server.CreateObject("ADODB.Connection")
> > if Request.ServerVariables("SERVER_NAME") = "jupiter" then
> > 'conexion no dsn
> > conexion.Open "DRIVER={Microsoft Access Driver (*.mdb)};
> > DBQ=c:\Inetpub\wwwroot\web\db\web.mdb"
> > else
> > conexion.Open "DRIVER={Microsoft Access Driver (*.mdb)};
> > DBQ=c:\Inetpub\wwwroot\web\db\web.mdb"
> > end if
> > If (Err.Number <> 0) Then
> > procesar_error "conectar(byref conexion) en iobd.asp.", Err
> > End If
> > end sub
> >
> > sub desconectar(byref conexion)
> > 'on error resume next
> > 'cerramos la conexion
> > conexion.Close
> > set conexion = Nothing
> > If (Err.Number <> 0) Then
> > procesar_error "desconectar(byref conexion) en iobd.asp.", Err
> > End If
> > end sub
> >
> > la funcion saca_texto que se encuentra en negocio.asp es la siguiente:
> >
> > Function saca_texto(pagina)
> > Dim cadena
> > 'on error resume next
> > dim registro, consulta, num_resultados
> >
> > consulta = "SELECT * FROM textos WHERE (pagina=" & CInt(pagina) & ")
> ORDER
> > BY parrafo"
> > Set registro = Server.CreateObject ("ADODB.RecordSet")
> > registro.Open consulta, conexion, 1' adOpenStatic
> > If (Err.Number <> 0) Then
> > procesar_error "saca_texto(pagina) en negocio.asp.", Err
> > End If
> > num_resultados = registro.RecordCount
> > if num_resultados > 0 then
> > while not registro.eof
> > titulo = registro("titulo")
> > texto = registro("texto")
> > if titulo <> "" then
> > cadena = cadena & "<p class=textoG>" & titulo
> > end if
> > cadena = cadena & "<p class=textoM>" & texto
> > registro.Movenext
> > wend
> > end if
> > registro.Close
> > Set registro = nothing
> > saca_texto = cadena
> > End Function
> >
> >
> >
>
>