SQL - Reducir el fichero de Log

Reducir el fichero de log es importante, para ganar espacio de disco duro y quita las transaciones que puedan estar causando algun interbloqueo.

BACKUP LOG MiBase WITH TRUNCATE_ONLY
DBCC SHRINKFILE (MiBase_Log, 100)

Con este codigo, reduciras el fichero de log a 100 megas.

BlackBerry - Escribir en el Registro de Eventos (ALT + LGLG)


Para poder escribir en el Registro de eventos, hay que utilizar la clase EventLogger.

Priemero importamos la clase.

import net.rim.device.api.system.EventLogger;



Luego hay que registrar la aplicación usando el evento register.

EventLogger.register(0x838d33f5c17fdb7dL,"MiApp", EventLogger.VIEWER_STRING)

Ese numero tan raro es el nombre del programa convertido a Long. (En este caso MiApp)

¿Como lo sacas?, Muy facil, escribe el nombre del programa en cualquier parte, lo seleccionas y eliges la opcion "Convert String to a Long"

Ya solo nos queda usar el evento logEvent para escribir cuando queramos.

EventLogger.logEvent(0x28287bf38ffcab2aL, (("Mensaje para el Registro de eventos".getBytes(),EventLogger.INFORMATION );
Como veis la Cadena hay qye pasarla en bytes.

Utilizando esto, sabreis que hace en cada momento vuestro programa en la BlackBerry.

Conexión base de datos SQL Server en Visual Basic 6. ADO

Este codigo es un ejemplo de una conexión ADO con una base de datos SQL Server.

Dim rs As New ADODB.Recordset
Dim cn As ADODB.Connection

'Abrimos la base de datos
Set cn = New ADODB.Connection
sCon = "driver={SQL Server};"
sCon = sCon + "Server=TUSERVIDOR;uid=USUARIO;pwd=PASS;"
sCon = sCon + "database=TUBASEDEDATOS"
cn.ConnectionString = sCon
cn.ConnectionTimeout = 30
cn.Open

'Aqui usamos un Recorset para extraer los datos de la consulta

QuerySQL = "SELECT * FROM TABLA"
rs.CursorLocation = adUseClient
rs.Open QuerySQL, cn, adOpenKeyset, adLockOptimistic