En este proyecto voy a mostrar la forma, desde mi punto de vista, más elegante de realizar cargas de TreeView mediante un BackgroundWorker utilizando un modelo Maestro / Controlador que tomo como ejemplo Familia de Materiales y Materiales.

La aplicación está desarrollada en VS 2005 Framework 2.0 y accede a un Libro de Excel 8.0

Código

'''
''' Aplicación desarrollada por Antonio López Atienza (http://www.lopezatienza.es) Marzo 2012
''' El código contenido en este proyecto está tal cual sin garantías de ninguna clase.
''' Usted asume cualquier riesgo al poner en práctica, utilizar o ejecutar dicho Proyecto.
'''
'''
Public Class frmPrincipal

#Region "Variables Globales"

Dim vConn As New OleDb.OleDbConnection
Dim vCmd As New OleDb.OleDbCommand
Dim vDa As New OleDb.OleDbDataAdapter
Dim vDs As New DataSet

Dim vCargaMaestro As Boolean = True
Dim vNodoSeleccionado As New TreeNode
Dim cuenta As Integer = 100

#End Region

#Region "Manejadores de evenos del Formulario"

Private Sub frmPrincipal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Me.picCargando.Visible = True
Me.tvMain.Enabled = False
BackgroundWorker1.RunWorkerAsync()
Catch ex As Exception
MessageBox.Show("Excepción controlada: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Private Sub tvMain_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles tvMain.AfterSelect
Try
vNodoSeleccionado = e.Node

''Comprobamos que no esté seleccionando un hijo
If vNodoSeleccionado.Parent Is Nothing Then
''Comprobamos que no se hayan cargado ya los hijos
If vNodoSeleccionado.Nodes.Count = 0 Then
' Abrir la conexión, y leer [Hoja 1] del archivo Excel
vCargaMaestro = False
Me.picCargando.Visible = True
Me.tvMain.Enabled = False
BackgroundWorker1.RunWorkerAsync()
End If
End If

Catch ex As Exception
'Aqui va el código que controle la excepción
Finally
vConn.Close()
End Try
End Sub

#End Region

#Region "Funciones del BackgroundWorker"

Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
Try
Dim i As Integer
If vCargaMaestro Then
CargarDatosMaestro()

cuenta = vDs.Tables("FamiliaMateriales").Rows.Count
For Each vFamilia As DataRow In vDs.Tables("FamiliaMateriales").Rows
Dim vNodoMain As New TreeNode
vNodoMain.Name = vFamilia.Item("IDFamilia")
vNodoMain.Text = vFamilia.Item("Nombre")
AddNode(vNodoMain)

Threading.Thread.Sleep(250)
BackgroundWorker1.ReportProgress(100 * i / cuenta, "Procesando (" & i & "/" & cuenta & ") elementos...")
i += 1
'Me.tvMain.Nodes.Add(vFamilia.Item("IDFamilia"), vFamilia.Item("Nombre"))
Next
Else
CargarDatosDetalle()

cuenta = vDs.Tables("Materiales").Rows.Count
For Each vFilaMaterial As DataRow In vDs.Tables("Materiales").Rows
Dim vNodoMain As New TreeNode
vNodoMain.Name = vFilaMaterial.Item("IDMaterial")
vNodoMain.Text = vFilaMaterial.Item("Nombre")
AddNode(vNodoMain)

Threading.Thread.Sleep(250)
BackgroundWorker1.ReportProgress(100 * i / cuenta, "Procesando (" & i & "/" & cuenta & ") elementos...")
i += 1
'vNodoSeleccionado.Nodes.Add(vFilaMaterial.Item("IDMaterial"), vFilaMaterial.Item("Nombre"))
Next
End If

BackgroundWorker1.ReportProgress(100, "Completado!")
e.Result = True
Catch ex As Exception
e.Result = False
End Try
End Sub

Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As System.Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
Try
Me.picCargando.Visible = False
Me.tvMain.Enabled = True
Catch ex As Exception
'Me.btnIniciar.Enabled = True
MessageBox.Show("Excepción controlada: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As System.Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
Try
BarraDeProgreso.Value = e.ProgressPercentage
lblProgreso.Text = e.UserState
Catch ex As Exception
MessageBox.Show("Excepción controlada: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

#End Region

#Region "Cargas de datos"

Function CargarDatosMaestro() As Boolean
Try
''Comprobar si el archivo existe
If System.IO.File.Exists(Application.StartupPath & "\Datos.xls") Then

vConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Datos.xls; Extended Properties= Excel 8.0;"

''Conectamos con el Libro Excel y accedemos a la Hoja [FamiliaMateriales$]
vConn.Open()
vCmd.CommandText = "SELECT * FROM [FamiliaMateriales$]"
vCmd.Connection = vConn
vDa.SelectCommand = vCmd

'Llenar el DataSet
vDa.Fill(vDs, "FamiliaMateriales")
Return True
Else
Return False
End If
Catch ex As Exception
'Aqui va el código que controle la excepción
Finally
vConn.Close()
End Try
End Function

Function CargarDatosDetalle() As Boolean
Try
''Comprobar si el archivo existe
If System.IO.File.Exists(Application.StartupPath & "\Datos.xls") Then
'Dimensionar los elementos necesarios para leer y cargar los datos

vConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Datos.xls; Extended Properties= Excel 8.0;"

''Conectamos con el Libro Excel y accedemos a la Hoja [FamiliaMateriales$]
vConn.Open()
vCmd.CommandText = "SELECT * FROM [Materiales$] WHERE IDFamiliaMaterial = '" & vNodoSeleccionado.Name & "'"
vCmd.Connection = vConn
vDa.SelectCommand = vCmd

If Not vDs.Tables("Materiales") Is Nothing Then
vDs.Tables("Materiales").Reset()
End If

'Llenar el DataSet
vDa.Fill(vDs, "Materiales")

Return True
Else
Return False
End If
Catch ex As Exception
'Aqui va el código que controle la excepción
Finally
vConn.Close()
End Try
End Function

#End Region

#Region "Sección Delegate"

Delegate Function AddNodeMainDelegate(ByVal pNodo As TreeNode) As Boolean

Private Function AddNode(ByVal pNodo As TreeNode) As Boolean
If Me.tvMain.InvokeRequired Then
tvMain.Invoke(New AddNodeMainDelegate(AddressOf AddNode), pNodo)
Else
Dim retVal As Boolean = True
Try
If vCargaMaestro Then
Me.tvMain.Nodes.Add(pNodo)
Else
vNodoSeleccionado.Nodes.Add(pNodo)
End If
Catch ex As Exception

End Try
Return retVal
End If
End Function

#End Region

End Class

Framework compatibles

Framework 2.0

Namespaces

System.IO
OleDb

Descargar Proyecto

TreeViewConCargaADemanda.zip

Referencias de interés

---

En este artículo voy a tratar el típico error 233 de SQL Server cuando tratamos de conectarnos a un equipo en remoto.

La solución al  problema que abordo, que se trata de configurar la instancia SQL Server para aceptar conexiones remotas ocurre en un 95% de los casos, por lo que puede ser posible que aplicando estos cambios no se resuelva.

Consultar el error siguiente:

"El cliente no pudo establecer una conexión debido a un error durante el proceso de inicialización de la conexión previo al inicio de sesión. Entre las causas posibles se incluyen: el cliente intentó conectar con una versión no compatible de SQL Server; el servidor estaba demasiado ocupado apra aceptar nuevas conexiones; o bien, había una limitación de recuersos (memoria insuficiente o número máximo de conexiones permitidas) en el servidor. (provider: Proveedor de canalizaciones con nombre, error: 0 - No hay ningún proceso en el otro extremo de la canalización.) (Microsoft SQL Server, Error: 233)"

Solución

Vamos a Inicio \ Todos los programas \ Microsoft SQL Server 2005 \ Configuration Tools \ SQL Server Surface Area Configuration.

A continuación en la ventana que nos aparece vamos a Configuración de superficie para servicios y conexiones.

Navegamos en el árbol de la izquierda a MSSQLSERVER \ Motor de base de datos \ Conexiones remotas

Marcamos la opción Conexiones locales y remotas y Usar sólo TCP/IP.

Una vez Aceptemos este cambio, necesitamos reiniciar el servicio de SQL Server (MSSQLSERVER) accediendo en Incio \ Ejecutar \ services.msc

Ya podremos conectarnos instancias de SQL Server en remoto.

Espero os sirva de ayuda.

Un saludo.

En este artículo os expongo un script de TSQL para desconectar usuarios de una base de datos en específica en SQL Server, sólo deberemos cambiar el valor en negrita:



USE master
DECLARE curkillproc
CURSOR FOR
SELECT spid,dbs.name AS dbname
FROM master..sysprocesses pro, master..sysdatabases dbs
WHERE pro.dbid = dbs.dbid
AND dbs.name = 'NOMBRE_DE_LA_BD'
FOR READ ONLY
DECLARE @varspid AS integer
DECLARE @vardbname AS varchar(256)
DECLARE @numUsers AS integer
SET @numUsers = 0
OPEN curkillproc
FETCH NEXT FROM curkillproc
INTO @varspid, @vardbname
WHILE @@fetch_status = 0
BEGIN
EXEC('kill ' + @varspid)
SET @numUsers = @numUsers + 1
FETCH NEXT FROM curkillproc INTO @varspid, @vardbname
END
CLOSE curkillproc
DEALLOCATE curkillproc
SELECT @numUsers as NumUsersDisconnected



Un saludo y espero os sirva de ayuda.

He encontrado este artículo que explica cómo hacer para que cuando se instala nuestra aplicación con un Proyecto de Instalación, se autoarranque al instalarse.

En definitiva lo que hace es heredar de la clase InstallerClass, para sobreescribir el manejador de eventos para el evento Committed.

Está tanto en VB como en C#.

Un artículo excepcional.

http://www.codeproject.com/KB/install/Installation.aspx

Un saludo.

I'm gonna add to this post all that interesting tips that I usually use, and of course, all the new tips I will find on the web.

You should take a look at Knowledge Base about WinGrid:

http://devcenter.infragistics.com/Support/KnowledgeBaseResults.aspx?type=Full&query=&platform=2&component=2&articletypes=0&age=0&sort=LastModifiedDate&samplesonly=0

As well, you should take a look at the Official Forum, on WinGrid Forum:

http://blogs.infragistics.com/forums/65.aspx

Index:

Tip 1: How to Unselect a Selected Row
Tip 2: How to Format a Cell with 2 decimals

Is your grid implementing multiple row selections?
If you can select only a row in the grid, set the following properties:

CellClickAction = RowSelect
SelectTypeRow = Single

Both properties are into the DisplayLayout | Override group.

Now.. If you are using multiple selections....

Each Row that you select is allocated into the MyGrid.Selected.Rows collection. You can use the AfterSelectChange or BeforeSelectChange events to evaluate if the current clicked row is selected already and then de-select it:

Using the Selected property you can select or unselect a row:

grdDetails.ActiveRow.Selected = False

We can assign the Format of a Numeric value column at design time and programmatically.

On design go to the Column Property Format and place the format as the picture below:

Ej: 0.0#.##

Result: 350.7

Ej: 0.00#.##

Result: 350.75

Ej: 0.000#.##

Result: 350.750

Escribo este artículo para aquello que se encuentran con el problema, de que incluso habiendo iniciado sesión en gmail, al pulsar en el botón de Marcadores, sigue pidiendo:

"Accede para ver los marcadores de Google"

El problema viene ocasionado por el sistema de acceso a las cookies. Me huele a que la nueva actualización de la versión 7.1.20110512 no contemplaba un cambio en las urls de las cookies. Este error sólo lo encontraremos aquellos que ya vengamos trabajando con la Toolbar desde hace tiempo.

Se soluciona de la siguiente manera:

Buscamos en la raíz del disco duro, donde tengamos instalado nuestro sistema operativo, el siguiente archivo:

toolbar.js

A mi me apareció en la siguiente ruta (Windows 7):

C:\Users\lopezatienza\AppData\Roaming\Mozilla\Firefox\Profiles\9keeylzm.default\extensions\{3112ca9c-de6d-4884-a869-9855de68056c}\lib

Me imagino que los que trabajeis en Windows XP será algo así:

C:\Documents and Settings\<nombre de usuario>\Datos de programa\Mozilla\Firefox\Profiles\<profile id predeterminado>\extensions\{3112ca9c-de6d-4884-a869-9855de68056c}\lib

Las rutas que detallo son orientativas, haced una búsqueda manual.

Recordar configurar el explorador de Windows para ver archivos y carpetas ocultos.

Una vez encontremos el archivo, lo editamos con un editor de texto en condiciones, por ejemplo Notepad++.

Debemos buscar y reemplazar el siguiente texto en el archivo:

http://www.google.com/accounts

Por este otro:

accounts.google.com

Finalmente guardamos el archivo y reiniciamos Firefox.

Eso es todo, espero os sirva de ayuda.

Un saludo.

El problema proviene al tratar de conectar a una Base de Datos de SQL Server 2008 desde Visual Studio 2005, mostrando el emergente:

"Esta versión del servidor no es compatible. Debe tener instalado Microsoft SQL Server 2005 Beta 2 o posterior"

El problema según Microsoft es el siguiente:

Esta actualización resuelve el siguiente error que aparece cuando intenta utilizar las herramientas de diseño de Microsoft Visual Studio 2005 Service Pack 1 para abrir una conexión de base de datos con Microsoft SQL Server 2008:

“No se admite esta versión del servidor. Sólo se admiten servidores hasta la versión Microsoft SQL Server 2005.”

Esta actualización trata este problema y habilita la siguiente funcionalidad de Visual Studio para SQL Server 2008:

• El explorador de servidores se conecta correctamente a SQL Server 2008 y los objetos de base de datos, como procedimientos almacenados y datos de tabla, se pueden ver y editar. Tenga en cuenta que los esquemas de tabla no se pueden ver ni editar en esta versión.
• Los proyectos SQL CLR diseñados para SQL Server 2008 se pueden crear e implementar en el servidor.
• Las depuraciones T-SQL y SQL CLR están habilitadas para SQL Server 2008.
• Las características de enlace de datos en proyectos de cliente y web están habilitadas.

Esta actualización no admite las siguientes características para SQL Server 2008:

• Creación y edición de esquemas de tabla en el diseñador de tablas o en los diagramas de base de datos. Como solución alternativa puede utilizar la característica del diseñador de tablas de SQL Server Management Studio 2008 para editar esquemas de tabla en SQL Server 2008.

El link de descarga es el siguiente:

http://www.microsoft.com/downloads/es-es/details.aspx?FamilyId=e1109aef-1aa2-408d-aa0f-9df094f993bf&displaylang=es



Hay otra opción, y es la de trabajar mediante el proveedor SQLOLEDB nativo a través del proveedor de datos de .NET Framework para OLE DB.

Para ello hacemos los siguientes pasos.

1) En la ventana de Agregar conexión pulsamos en Cambiar...

2) En la ventana Cambiar origen de datos, cambiamos el Proveedor de datos a "Proveedor de datos de .NET Framework para OLE DB"

3) Comprobamos que se ha cambiado el Origen de datos y pulsamos en Comprobar conexión y a continuación en Aceptar.

4) Si todo ha ido correctamente nos aparecerá en Explorador de servidores la nueva conexión de datos.

Un saludo y espero os sirva de ayuda.

On the site of Router Scientific Atlanta Cisco 2320 this is some info:

• WAN IP: A.A.A.A
• Router Local IP: 192.168.5.1
• Subnet: 192.168.5.X
• Subnet Mask: 255.255.255.0

On the site of RVS4000 4-Port Gigabit Security Router with  VPN this is some info:

• WAN IP: B.B.B.B
• Router Local IP: 192.168.0.10
• Subnet: 192.168.0.X
• Subnet Mask: 255.255.255.0

Remember that you can not be on the same range of IP, I mean, you can not have 192.168.0.X if the remote network is on 192.168.0.X, you have to change some of the Routers.

I show the configuration on Router Scientific Atlanta Cisco 2320:

I show the configuration on RVS4000 4-Port Gigabit Security Router with  VPN:

If all is correctly configured, you should see on Router Scientific Atlanta Cisco 2320 the Status Connected:

?If all is correctly configured, you should see on RVS4000 4-Port Gigabit Security Router with  VPN the Status Up:

As you can see, I'm connected to the remote Router (RVS4000 4-Port Gigabit Security Router with  VPN) by my own web browser accesing by the local IP 192.168.0.10

I have used Authentication MD5, maybe is not the best one but I had no time to test SHA1, I will when I will have time.

I have recently add this info to the Official Cisco Forum:

https://supportforums.cisco.com/message/3414237

I wish that this help to anyone that need to do this.

Best regards.

Con esta consulta actualizas una tabla cruzándola con la que comparas, muy útil y aunque no es complejo puede llegar a dar dolor de cabeza buscando la solución.

UPDATE

Tabla02

SET

Tabla02.Descripcion = Tabla01.Descripcion

FROM

Tabla02

INNER JOIN

Tabla01

ON

Tabla02.ID_Tabla02 = Tabla01.ID_Tabla01

WHERE

Tabla02.ID_Tabla02 = Tabla01.ID_Tabla01

Un saludo y espero os sirva de ayuda.