Archive for the ‘Uncategorized’ Category

Abrir el Explorador de Windows con MI PC desplegado

14 julio 2011

He de reconocer que soy un poco maniático con el Explorador de Windows. Me gusta que sea siempre la primera tarea en ejecución nada más arrancar el sistema. Pero además, quiero que al abrirlo me aparezca el árbol de carpetas totalmente contraído, excepto la rama de MI PC, que debe mostrar todas las unidades existentes ya sean físicas o mapeadas. Algo así:

En Windows XP, inserto un acceso directo al Explorador en la barra de Inicio Rápido con la siguiente configuración:

– Destino: %SystemRoot%\explorer.exe /e,::{20D04FE0-3AEA-1069-A2D8-08002B30309D}

– Iniciar en: %HOMEDRIVE%%HOMEPATH%

Et voila!

Crear un DataGridView y cargarlo de datos manualmente (VB.Net)

12 julio 2011
Fragmento de código para crear un DataGridView y llenarlo manualmente.

        Dim strSql As String = ""
        Dim dtrDatos As DataTableReader = Nothing
        Dim bindData As New BindingSource
        Dim Col_Text As DataGridViewTextBoxColumn
        Dim Col_Check As DataGridViewCheckBoxColumn
        Dim Row As DataGridViewRow
        Dim Cell As DataGridViewCell
        Col_Check = New DataGridViewCheckBoxColumn
        Col_Check.Name = "YesNo"
        Col_Check.HeaderText = " "
        gridDatos.Columns.Add(Col_Check)

        Col_Text = New DataGridViewTextBoxColumn
        Col_Text.Name = "IdProyecto"
        Col_Text.HeaderText = "Id.Proyecto"
        gridDatos.Columns.Add(Col_Text)

        Col_Text = New DataGridViewTextBoxColumn
        Col_Text.Name = "Project_Name"
        Col_Text.HeaderText = "Cliente/Proyecto"
        gridDatos.Columns.Add(Col_Text)

        Col_Text = New DataGridViewTextBoxColumn
        Col_Text.Name = "Date_End"
        Col_Text.HeaderText = "Fin Cumplimentación"
        gridDatos.Columns.Add(Col_Text)

        Col_Text = New DataGridViewTextBoxColumn
        Col_Text.Name = "Group_Id"
        Col_Text.HeaderText = "Group ID"
        gridDatos.Columns.Add(Col_Text)

        Col_Text = New DataGridViewTextBoxColumn
        Col_Text.Name = "Date_Last_Status"
        Col_Text.HeaderText = "Último Informe"
        gridDatos.Columns.Add(Col_Text)

        ' LLenando el grid con los datos.
        strSql = "SELECT IdProyecto, Surveys_Course_Short_Name, Surveys_Course_Group_ID, Fecha_Fin_Cumplimentacion, " & _
                 " Surveys_Status_Report_Active_YesNo, Surveys_Status_Report_Last_Date " & _
                 "FROM Proyectos "
        dtrDatos = UtilDB.Consulta_sql(strSql)
        Do While dtrDatos.Read()
            Row = New DataGridViewRow

            Cell = New DataGridViewCheckBoxCell
            Cell.Value = dtrDatos("Surveys_Status_Report_Active_YesNo")
            Row.Cells.Add(Cell)

            Cell = New DataGridViewTextBoxCell
            Cell.Value = dtrDatos("IdProyecto").ToString
            Row.Cells.Add(Cell)
            Cell = New DataGridViewTextBoxCell
            Cell.Value = UtilApp.Project_Client_Info(dtrDatos("IdProyecto").ToString)
            Row.Cells.Add(Cell)
            Cell = New DataGridViewTextBoxCell
            Cell.Value = CType(dtrDatos("Fecha_Fin_Cumplimentacion"), Date).ToShortDateString
            Row.Cells.Add(Cell)
            Cell = New DataGridViewTextBoxCell
            Cell.Value = dtrDatos("Surveys_Course_Group_ID").ToString
            Row.Cells.Add(Cell)
            Cell = New DataGridViewTextBoxCell
            Cell.Value = CType(dtrDatos("Surveys_Status_Report_Last_Date"), Date).ToShortDateString
            Row.Cells.Add(Cell)

            gridDatos.Rows.Add(Row)
        Loop
        dtrDatos.Close()

Internet Explorer y la Vista de Compatibilidad (Compatibility View)

7 septiembre 2010

Las nuevas versiones de Internet Explorer (por ejemplo, la versión 8 ) pueden funcionar en modo estándar o en modo Vista de Compatibilidad. Este último se utiliza para poder visualizar páginas creadas específicamente para versiones anteriores de IE, versiones como la 6 que no se ajustaban a los estándares web.

El problema es que renderizar todas las páginas con la vista de compatibilidad activada puede crear problemas al visualizar páginas que sí estén escritas siguiendo los estándares. Y, mayor problema todavía, puede activarse o no dependiendo del servidor que proporciona la página. Por ejemplo, el mismo código fuente servido desde «//localhost» y desde otro servidor en la intranet puede provocar una visualización distinta en la misma versión de Internet Explorer. Esto es debido a que en localhost no se activa la vista de compatibilidad y en la intranet, sí.

Para forzar la uniformidad de la vista de compatibilidad será necesario añadir una tag a la página, indicando si se quiere evitar o activar la vista de compatibilidad.

Etiqueta para que la página se renderize en modo estándar:

<meta http-equiv=»X-UA-Compatible» content=»IE=EmulateIE8″ />

Etiqueta para forzar la renderización en Vista de Compatibilidad:

<meta http-equiv=»X-UA-Compatible» content=»IE=EmulateIE7″ />

Información más detallada del asunto:

http://www.thesitewizard.com/webdesign/prepare-your-site-for-ie8.shtml

DOS Error 4 en aplicaciones Clipper bajo Windows XP

23 octubre 2008

Las aplicaciones clipper ejecutadas en XP que abren muchos ficheros pueden llegar a producir un error del tipo:

Error DBFNTX/1003 Open error:

\carpeta\fichero

(DOS Error 4)

Originalmente, un «Dos Error 4» en MsDOS se produce cuando se agotan los manejadores de archivos al intentar abrir más archivos de los indicados en el comando «Files» del archivo Config.SYS de MsDOS.

Windows XP, NT y 2000 no utilizan los archivos Config.Sys y Autoexec.bat como lo hace MsDOS. En su lugar utilizan Config.NT y Autoexec.NT ubicados en la carpeta \Windows\System32.

Para aumentar la cantidad de manejadores de archivos (file handelrs) es necesario añadir las siguientes líneas en esos ficheros:

Fichero Config.NT:

FILES=100

Fichero Autoexec.NT:

SET CLIPPER=F100

Tambien es necesario incluir el último comando (SET CLIPPER=F100) en cada sesión de consola que se abre al ejecutar la aplicación Clipper. Por ejemplo, si la aplicación se llama App.exe:

SET CLIPPER=F100

App.exe

Silenciar el altavoz interno del PC en Windows

22 octubre 2008

– Botón derecho en Mi Pc, seleccionar Administrar.

– Click en Administrar Dispositivos.

– En el menú, desplegar Ver y pinchar Mostrar Dispositivos ocultos.

– Desplegar Controladores que no son Plug and Play.

– Botón derecho en Beep y seleccionar Deshabilitar.

Reiniciar el sistema para que el cambio surta efecto.

SQL Server. Truncar el fichero de log.

17 octubre 2008

Los ficheros de Log crecen continuamente y deben ser truncados (reducidos) para que no ocupen más espacio del necesario. Un solo fichero puede llegar incluso a comerse todo el disco en el que esté ubicado. Lo normal es llevar a cabo esta tarea de mantenimiento durante la copia de seguridad mediante la puesta en marcha de un Plan de Mantenimiento que incluya, entre otras cosas, el backup de los datos y el truncado del Log.

Para ejecutarlo manualmente:

USE MiBase
CHECKPOINT
EXEC sp_addumpdevice 'disk', 'CopiaMiBase', 'd:\LogMiBase.bak'
BACKUP DATABASE MiBase TO CopiaMiBase
BACKUP LOG MiBase WITH TRUNCATE_ONLY
DBCC SHRINKFILE (MiBase_Log, 100)

Las dos últimas líneas son el truncado del Log, en donde el número 100 representa el tamaño final del fichero.  Ni que decir tiene que hacer una copia de seguridad de los datos antes del truncado es algo que no se debe olvidar (hombre precavido …). Hacerla mediante el Administrador Corporativo o ejecutando las primeras líneas del script.

Para información más detallada:

http://www.programacion.com/bbdd/articulo/man_reducir_log/

Actualización (11-12-2009): la instrucción DBCC SRINKFILE necesita el nombre del fichero físico del Log. Para averiguar el nombre de ese fichero, utilizar la siguiente instrucción sobre la BD a procesar:

SELECT * FROM sysfiles

Refrescar vistas en SQL Server 2000

1 octubre 2008

Cuando se modifica la estructura de una tabla, las vistas que la usan pueden quedar desfasadas (outdated) y no funcionar bien.

El problema es que se deben actualizar a mano mediante la ejecución de un procedimiento propio de la BD (es un problema porque hay que acordarse de ello):

sp_refreshview

(Updates the metadata for the specified non-schema-bound view. Persistent metadata for a view can become outdated because of changes to the underlying objects upon which the view depends.)

Ejemplo: execute sp_refreshview ‘vista_a_actualizar’

Para facilitar la actualiziación de todas las vistas de la BD, utilizar el siguiente procedimiento:

CREATE PROCEDURE [dbo].[admin_Refresh_All_Views] AS

— Refresca todas las vistas de la BD para asegurar que todas se actualizan cuando se
— producen cambios en la estructura de las tablas.
BEGIN
DECLARE @tblTmpViews TABLE (view_name varchar(100))
DECLARE @view_name nvarchar(100)INSERT  @tblTmpViews
SELECT [name] FROM sysobjects WHERE xtype=’V’

DECLARE crsrViews CURSOR FOR
SELECT view_name FROM @tblTmpViews

OPEN crsrViews
— Check @@FETCH_STATUS to see if there are any more rows to fetch.
FETCH NEXT FROM crsrViews INTO @view_name

WHILE @@FETCH_STATUS = 0 BEGIN
— This is executed as long as the previous fetch succeeds.
EXEC sp_refreshview @view_name
FETCH NEXT FROM crsrViews INTO @view_name
END

CLOSE crsrViews
DEALLOCATE crsrViews
END
GO

Beyond Compare para aplicación Web de Cuestionarios Online

30 septiembre 2008

Fichero a excluir:

– lanzador_*.aspx
– *.sln
– *.suo
– *.scc
– *.webinfo
– *.exclude
– resolucion_*.pdf

Carpetas a excluir:

– 0_imagenes_ejemplo
– 0_logos_clientes
– images

Ajustes Beyond Compare para FTP

30 septiembre 2008

Para comparar ficheros vía FTP mediante el programa Beyond Compare ajustar lo siguiente:

Tools | Options | FTP | Firewall/Proxy: Passive Mode marcado

Sin el Passive Mode conecta pero la comparación es muy lenta.