Ecco la soluzione
codice:
Criterio = "SELECT"
Criterio = Criterio & " CONVERT(CHAR(100), SERVERPROPERTY('SQLEXPRESS')) AS Server,"
Criterio = Criterio & " msdb.dbo.backupset.database_name,"
Criterio = Criterio & " msdb.dbo.backupset.backup_start_date,"
Criterio = Criterio & " msdb.dbo.backupset.backup_finish_date,"
Criterio = Criterio & " msdb.dbo.backupset.expiration_date,"
Criterio = Criterio & " CASE msdb..backupset.type"
Criterio = Criterio & " WHEN 'D' THEN 'Database'"
Criterio = Criterio & " WHEN 'L' THEN 'Log'"
Criterio = Criterio & " END AS backup_type,"
Criterio = Criterio & " msdb.dbo.backupset.backup_size,"
Criterio = Criterio & " msdb.dbo.backupmediafamily.logical_device_name,"
Criterio = Criterio & " msdb.dbo.backupmediafamily.physical_device_name,"
Criterio = Criterio & " msdb.dbo.backupset.name AS backupset_name,"
Criterio = Criterio & " msdb.dbo.backupset.Description"
Criterio = Criterio & " From msdb.dbo.backupmediafamily"
Criterio = Criterio & " INNER JOIN msdb.dbo.backupset ON msdb.dbo.backupmediafamily.media_set_id = msdb.dbo.backupset.media_set_id"
Criterio = Criterio & " Where (CONVERT(DateTime, msdb.dbo.backupset.backup_start_date, 102) >= GETDATE() - 7)"
Criterio = Criterio & " Order By"
Criterio = Criterio & " msdb.dbo.backupset.database_name,"
Criterio = Criterio & " msdb.dbo.backupset.backup_finish_date DESC"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
rs.Open Criterio, CnnSQL, adOpenStatic, adLockPessimistic
Do
If rs(1) = DataBase Then
S = rs(2)
Exit Do
End If
rs.MoveNext
Loop Until rs.EOF