me podrias especificar en las funciones, como llamas la conexion a la base de datos???
me dirias la linea....
Cita: Public Function rsHistoricoMantenimientoBD(fechaDesde, fechaHasta) As ADODB.Recordset
Dim strSQL
strSQL = "SELECT YEAR(start_time) anno, MONTH(start_time) mes, DAY(start_time) dia, plan_name, database_name, SUM(duration) AS duracion, SUM(error_number) As error " & _
"From msdb.dbo.sysdbmaintplan_history " & _
"where start_time>=cast('" & fechaDesde & "' as datetime) and start_time<=dateadd(d, 1, cast('" & fechaHasta & "' as datetime)) " & _
"and plan_name<>'BD de CMI' " & _
"GROUP BY YEAR(start_time), MONTH(start_time), DAY(start_time), plan_name, database_name " & _
"ORDER BY YEAR(start_time) desc, MONTH(start_time) desc, DAY(start_time) desc, plan_name, database_name"
Set rsHistoricoMantenimientoBD = objBD.abrirRecordset(strSQL)
End Function
ya que en cualquiera de las dos funciones, solo miro consultas pero en ningun momento veo que tengas
no se... algo asi como....
Cita: Driver={SQL Server};Server=myServerAddress;Database=myDataBase ;Uid=myUsername;Pwd=myPassword;
digo, a menos que no mire la linea.....
