[VB6] Data e ora ultimo backup di SQL Server

[giustavalla]

Ecco la soluzione

  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