error 80004005

[elmargaro]

Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC SQL Server Driver][DBNETLIB]No existe el servidor SQL Server o se ha denegado el acceso al mismo.

un reporte me arroja este error tengo una serie de reportes y todos funcionan bien excepto este, me arroja unos resultados y luego presenta este error, cabe mencionar que no uso ODBC para conectarme a sql server sino una cadena de conexion

a alguien le ha pasado esto??

[unholy]

Si, yo creo que a todos un millon de veces...
Lo que te pasa es que la cadena de conexion que estas usando no es valida...
Da igual como te conectes, este es un error que te devuelve SQL, no ADO, no ODBC..... y quiere decir que el servidor al cual te estas intentando conectar no te deja acceder con el usuario que estas intentando entrar, o bien no existe.

[elmargaro]

que raro.... sabes ya lo resolvi de la siguiente manera:

en el codigo la parte que fallaba era un ciclo for, entonces dentro de ese ciclo creaba un nuevo objeto recordset y usaba la conexion a la db activa, asi que me di cuenta que al intentar abirr la consulta daba error pero lo extraño es que si abria la consulta por decir unas 10 veces y luego decia que ya no podia, asi que lo que hice fue crear una nueva conexion para ese recordeset y la destruia al antes de que el for pasara a otro numero y de esa manera lo resolvi, lo raro es que uso la misma cadena de conexion...

pero en fin.... problema resuelto!!!!!

aki esta el codigo

do while dateValue(ltFecha)<=dateValue(ltFecha2)
lsStrConn = cl_Conexion_DB
set conn2 = server.createobject("adodb.connection")
conn2.open lsStrConn
lsSqltxt="select valor from lectura where cl_idcfe='"&rs("cl_idcfe")&"' and cl_varuca='"&rs("cl_varuca")&"' and fh_lectura between '"&ltFecha &" "&i&":00:00.000' and '"& ltFecha &" "&i&":59:59.999'"
set rs2=createobject("ADODB.Recordset")
rs2.open lsSqltxt, conn2
if not(rs2.eof and rs2.bof) then
rs2.MoveFirst
do while not rs2.EOF
if rs2("valor")>0 then
liValor=liValor+(rs2("valor")/1000)
end if
rs2.movenext
loop
end if
rs2.close
set rs2=nothing
conn2.close
ltFecha=DateValue(ltFecha)+1
loop'fecha