http://www.cryer.co.uk/brian/sqlserver/howto_repair_a_database.htm escrito por Brian Cryer

He aqui una traducción:

Para determinar si una base de datos necesita ser reparada ejecutar:

dbcc checkdb('DB-NAME') with no_infomsgs

reemplazando  ’DB-NAME’ con el nombre de la base de datos.

Si el comando se completa sin desplegar errores la base de datos no necesita ser reparada.
Si los errores que aparecen contienen lineas con la leyenda:

... Run DBCC UPDATEUSAGE

entonces la base de datos NO necesita ser reparada, simplemente ejecute el siguiente comando:

dbcc updateusage('DB-NAME') with no_infomsgs

Si una base de datos no necesita ser reparada entonces:

1. Si es posible, identifique porque la base de datos necesita ser reparada. Revisar el visor de eventos de sistema y de aplicaciones de windows para ver si hay registros de eventos que pudieran estar relacionados con el problema. Por ejemplo Por ejemplo ¿El problema es provocado por una falla de disco duro? Con frecuencia no será posible identificar la causa, pero en caso de ser posible recuerde corregir el problema detectado.
2. Se sugiere que, en vez de reparar la base de datos, esta sea restaurada a partir del último respaldo confiable.

Para reparar la base de datos, primero debemos ponerla en modo monousuario (usuario único):

alter database DB-NAME set SINGLE_USER

en caso de que la base de datos sea MASTER o MSDB consulte  ”How to set a single database into single user mode“.

Una vez que la base de datos ha sido puesta en modo monousuario ya puede ser reparada. Existen varias opciones de reparación pero las dos que típicamente se utilizan son “REPAIR_REBUILD” y “REPAIR_ALLOW_DATA_LOSS”.  Sugiero, en primera instancia, usar:

dbcc checkdb('DB-NAME',REPAIR_REBUILD)

esto realizara cualquier reparación que SQL Server pueda realizar sin perder datos.

dbcc checkdb('DB-NAME',REPAIR_ALLOW_DATA_LOSS)

una vez que la base de datos ha sido reparada debe ser devuelta a modo multiusuario:

set database DB-NAME set MULTI_USER
(Estos comandos han sido probados en SQL Server 2005)

Para ambas formas utilizaré a modo de ejemplo la siguiente clase:

Public Class myKeyAndData
   Private pnKey As Integer
   Private pcData As String

   Public Sub New()
      pnKey = 0
      pcData = ""
   End Sub

   Public Sub New(ByVal tnKey As Integer, ByVal tcData As String)
      pnKey = tnKey
      pcData = tcData
   End Sub

   Public Property Key() As Integer
   Get
      Return pnKey
   End
   Get
   Set(ByVal value As Integer)
      pnKey = value
   End Set
   End Property
   Public Property Data() As String
   Get
      Return pcData
   End Get
   Set(ByVal value As String)
      pcData = value
   End Set
   End Property
End Class

METODO 1: Definir una clase adicional que implemente la interface IComparer.

Private Class ItemsComparer
Implements IComparer(Of myKeyAndData)
   Public Function Compare(ByVal p1 As myKeyAndData, _
         ByVal p2 As myKeyAndData) As Integer Implements _
         IComparer(Of myKeyAndData).Compare
      Return p1.Data.CompareTo(p2.Data)
   End Function
End Class

Ejemplo:

   Dim loLista as new List(of myKeyAndData)
   loLista.add(new miKeyAndData(1,"Rodolfo")
   loLista.add(new miKeyAndData(2,"Antonio")
   loLista.add(new miKeyAndData(3,"Mario")
   loLista.add(new miKeyAndData(4,"Carlos")
   loLista.Sort(New ItemsComparer)

METODO 2: Hacer que la clase implemente la interface IComparable.

Public Class myKeyAndData
Implements IComparable(Of myKeyAndData)
   Private pnKey As Integer
   Private pcData As String

   Public Sub New()
      pnKey = 0
      pcData = ""
   End Sub

   Public Sub New(ByVal tnKey As Integer, ByVal tcData As String)
      pnKey = tnKey
      pcData = tcData
   End Sub

   Public Property Key() As Integer
   Get
      Return pnKey
   End Get
   Set(ByVal value As Integer)
      pnKey = value
   End Set
   End Property

   Public Property Data() As String
   Get
      Return pcData
   End Get
   Set(ByVal value As String)
      pcData = value
   End Set
   End Property

   Public Function CompareTo(ByVal toOtro As myKeyAndData) As Integer _
            Implements IComparable(Of myKeyAndData).CompareTo
      return Data.CompareTo(toOtro.Data)
   End Function

End Class

Ejemplo:

   Dim loLista as new List(of myKeyAndData)
   loLista.add(new miKeyAndData(1,"Rodolfo")
   loLista.add(new miKeyAndData(2,"Antonio")
   loLista.add(new miKeyAndData(3,"Mario")
   loLista.add(new miKeyAndData(4,"Carlos")
   loLista.Sort()

Extracto:

You may have to do some additional configuration to enable Vault integration with Visual Basic 6.

First, verify that Vault is your default Source Code Control Provider.

This setting is in the Vault Client under Tools->Options->General.

Next, in the VB menu select Add-ins->Add-in Manager. From the list of available Add-ins, highlight “Source Code Control” and make sure “Load on Startup” and “Loaded/Unloaded” are checked in Load Behavior.

Additionally, you may want to check your vbaddin.ini file.There should be an entry for source code control integration. If not add the following entry: vbscc=1

Additional details in this Microsoft KB article: http://support.microsoft.com/kb/305024/EN-US/

El dataset por regenerar ya existe en un subdirectorio “Reportes/Dataset” dentro del proyecto.

El problema es que no puedo generar el dataset si ya existe y tendria que borrarlo del proyecto o borrarlo localmente lo cual genera algunos problemas con la sincronizacion entre el archivo de control de proyecto de VS2005 y el control de codigo fuente.

Lo que hice para solucionarlo fue implementar el siguiente procedimiento cada vez que deseo regenerar un dataset.

1. Hacer checkout del dataset. (Esto eliminará el atributo de solo lectura de los archivos del dataset y nos permitirá sobreescribrilos en el paso 5)
2. Excluir el dataset del proyecto haciendo click con el boton derecho en el dataset selecciono “Exclude from Project”. Esto no borrará el dataset solamente nos permitirá regenerar el dataset sin que VS2005 se queje de que ya existe.
3. Generar el dataset utilizando el menú Data->Add New Data Source… (Recuerde poner en el campo “Dataset Name:” el mismo nombre del dataset que desea reemplazar)
4. Excluir del proyecto el dataset recien generado ya que fué generado en el directorio raiz del proyecto y deseamos moverlo al subdirectorio donde reemplazará al antiguo Dataset.
5. Mover los archivos del dataset (son 4, con extensiones .xsd, .xsc, .xss y .designer.vb) al subdirectorio deseado (tendrá que sobreescribir los archivos del dataset antiguo). Utilize su administrador de archivos favorito, si no tiene otro utilice Windows Explorer. (Puedes hechar un vistazo a la versión gratuita de xplorer2)
6. Incluir el nuevo dataset en el proyecto (Tal vez sea necesario oprimir el botón “Refresh” en el minitoolbar del Solution Explorer de VS2005 en el subdirectorio que contiene el dataset) (debe tener activada la opcion Show All Files en el minitoolbar del solution explorer para poder ver los archivos que se encuentran en los directorios del proyecto pero no pertenecen al proyecto, los reconocerá porque su icono de color blanco). Haga click en el dataset con el botón derecho del ratón y seleccione la opción “Include In Project”. VS2005 mostrará un cuadro de diálogo indicando que ya existe un archivo con ese nombre en el control de código fuente y te pregunta si deseas proseguir agregando el archivo o cancelar la acción, oprime el botón “Add the item”, este cuadro de diálogo aparecerá cuatro veces (uno por cada archivo del dataset).

Es un poco de rollo pero esta es la forma más fácil de hacerlo que encontré y que no provoca problemas con la sincronización entre VS2005 y el control de código fuente.

Si tienes una manera mas sencilla de hacerlo por favor no dudes en hacérmelo saber.

Ejercicio como parte de su vida

Si usted camina con paso más rápido de lo normal, por 20 minutos cada día, usted podría quemar de 80 a 100 calorías. Esto es similar a una rebanada del pan o 2 galletas pequeñas. !No suena mucho!

A corto plazo, hacer ejercicios puede no quemar muchas calorías. Es el largo plazo el que es más importante. Al continuar su rutina de caminata de 20 minutos cada día, puede aumentar la cantidad de carne sin grasa – músculo en su cuerpo. El músculo utiliza más calorías, aunque esté descansando, que el tejido grasoso de la piel.

Por ejemplo, si una persona pesa 140 libras, y tiene 35% de grasa en su cuerpo, él o ella tendría 49 libras de grasa y 91 libras de músculo en su cuerpo. El total de calorías básicas que necesita sólo para respirar y no hacer nada sería cerca de 1,260 calorías al día. Si la misma persona tuviera solamente 20% de grasa en su cuerpo, él o ella tendría un total básico de calorías de 1,470 por día. Se agrega a las calorías básicas necesarias, que son cualquier caloría necesitada para una actividad. Así que, entre más activo sea, más calorías quema y la masa muscular del cuerpo aumenta.

Mantenga su rutina de caminata – y hable con su doctor sobre su programa de actividades.

Espero que les sirva de motivación para perseverar ejercitandose.

Public Shared Function Find(Of T) ( _
    array As T(), _
    match As Predicate(Of T) _ ) As T

Dirijamos nuestra atención al segundo parámetro: match, se ha declarado de tipo Predicate(Of T), esto significa que cuando se llame el método Find esperará como parametro la dirección de una función que retorna un valor lógico (booleano) que determinará si se cumplen ciertos criterios definidos por ella misma.

En el caso del método Find si los criterios se cumplen la función enviada como Predicate retornará TRUE, indicándole a la logica interna del método FIND que el elemento que le ha enviado es el que esta buscando.

Ejemplo de uso de predicates con la funcion array.find (Extraido de la ayuda de VS.NET):

Imports System
Imports System.Drawing

Public Class Example

 Public Shared Sub Main()

 ‘ Creamos un array de 5 estructuras Point.    Dim points() As Point = { new Point(100, 200), _
       new Point(150, 250), new Point(250, 375), _
       new Point(275, 395), new Point(295, 450) }
 ‘ Para buscar el primer Point, cuyo resultado de ‘ multiplicar sus propiedades X y Y sea mayor que 10, ‘ pasamos el array y un "delegate" que representa al ‘ método ResultadoMayor10K al método Find de la ‘clase Array (Es un método Shared).
   Dim primero As Point = Array.Find(points, _
       AddressOf ResultadoMayor10K)

 ‘ Nota que no necesitas crear el Delegate explicitamente ‘ ni especificar el tipo de parametros del métod generico, ‘ porque el compilador tiene suficiente información del ‘ contexto para determinar la información por si mismo. ‘ Despliega los valores del primer Point encontrado.
   Console.WriteLine("Encontrado: X = {0}, Y = {1}", _
       primero.X, primero.Y)
 End Sub

 ‘ Este método implementa la condición de cumplimiento para ‘ el método Find.
 Private Shared Function ResultadoMayor10K(ByVal p As Point) _                                                  As Boolean
   If p.X * p.Y > 100000 Then
       Return True
   Else
       Return False
   End If
 End Function
End Class

‘ Este código ejemplo produce los siguientes resultados: ‘ Encontrado: X = 275, Y = 395

Si el criterio de búsqueda depende de una variable (como en la mayoria de los casos reales) nos podemos ayudar de alguna variable declarada en un nivel de módulo (declarada a nivel clase por ejemplo) asi podriamos sustituir la linea:

If p.X * p.Y > 100000 Then

por

If p.X * p.Y > pnLimit Then

donde el valor de pnLimit tendría que establecerse antes de llamar el método Find.

Por otra parte, las funciones de ordenamiento como Sort, esperan una función que compare dos elementos (del tipo de elementos que contenga el array o lista que se desea ordenar) que recibirá como parametros y retorne un valor integer que sea:

-Negativo si el primer elemento es menor que el segundo

-Igual a cero si ambos elementos son iguales

-Positivo si el primer elemento es mayor que el segundo

Ejemplo:

Private Function Compara_Por_Nombre(ByVal lhs As miTipo, _
                                    ByVal rhs As miTipo) As Integer  Return lhs.Nombre.CompareTo(rhs.Nombre)
End Function

En este caso miTipo es un aestructura o clase definida por el usuario cuya propiedad Nombre es de tipo string, se ha utilizado el método CompareTo (presente en casi todos los tipos Nativos de .NET) que funciona bajo las reglas esperadas por Sort pero nada impide que lo implementemos utilizando instrucciones case o If:

Private Function Compara_Por_Nombre(ByVal lhs As miTipo,
ByVal rhs As miTipo) As Integer
dim lnRet as integer
   if lhs.Nombre<rhs.Nombre then
lnRet=-1
elseif lhs.Nombre=rhs.Nombre then
lnRet=0
else
lnRet=1
end if
Return lnRet

End Function

Espero que este artículo les facilite el uso de estos métodos tan útiles.

Hasta la próxima.

P.D.:
Abundando un poco sobre los predicates:

Un “Predicate” es un “Delegate” Generico diseñado para aceptar un solo criterio de entrada (del tipo definido por el valor generico) y regresar un valor lógico (booleano) que indica si el valor de entrada cumple el criterio definido.

Un “Delegate” es una direccion de una funcion, en VB.NET se obtiene dicha direccion mediante el comando AddressOf:

Ejemplo: AddressOf miFuncion

Hay varios tipos de delegates: predicates, actions, comparisons, etc. Se diferencia por el numero de valores de entrada que reciben y el significado de los valores que regresan (si es que regresan alguno).