SergioT.Net

Enviar emails abriendo el gestor de correo

2012-01-30T10:11:00.000-04:00

Hace poco tuve la necesidad de hacer un programa para abrir el outlook , q es mi gestor de correos, desde mi pagina aspnet, y... bue.. hace tanto q no lo hacia que me habia olvidado como hacerlo asi que aqui dejo un resumen de varias formas para lograr esto

Aqui les dejo un resumen de como enviar emails por distintas formas utilizando el mailto

Con Mailto sencillo

Se puede utilizar un hipervínculo de HTML o uno deASPNET

<asp:HyperLink ID="HyperLink1" runat="server" NavigateUrl = "mailto:elCorreo@gmail.com " Text = "ElSr X">asp:HyperLink>

Con unaimagen

Hay dos formas de hacerlo con una imagen

Utilizandoun boton o un imagebutton

Esto yaes con ayuda de Jscript

<asp:ImageButton ID="ibtCargar"runat="server" OnClientClick=”parent.location=’elCorreo@gmail.com’”

ToolTip="Oprima yabra su Gestor de correo" />

En el siguientepostback

En pagina coloquemos un botón o cualquier cosa que haga el postback

<asp:Button ID="Button1" runat="server" Text="Button" OnClick="Button1_Click" />

En el delegado del botón, (o esa cualquier cosa),se indica que en el siguiente postback se abra la ventana del gestor d correo

Protected SubButton1_Click(ByVal sender As Object, ByVal e AsSystem.EventArgs) HandlesButton1.Click

Dim s as String =""

ClientScript.RegisterStartupScript(Me.GetType(),"mailto",s)

End Sub

Bueno espero le sirva a alguien

Desaparecio mi Report data Toolbox !!!

2011-11-18T15:11:00.001-04:00

Hola

No se si les pasó alguna vez pero hace poco perdí algunas horas!!! por culpa de esto, utilizando reporting services creé un nuevo reporte y por ninguna parte pude encontrar el toolbox donde se colocan y configuran los datasets del report, este debería aparecer al abrir el diseñador de reportes pero no apareció, estoy utilizando VS2010.

Despues de buscar y buscar y googlear... halle la solución, cuando se tiene abierto el reporte en diseño hay que oprimir la convinación de teclas CTRL -ALT -D y.... listo!!!! aparece el pinche toolbox!!!
Aparentemente es un bug y hay un articulo para resolverlo pero la verdad no lo encontré, bue... como sea, así se resuelve

Espero le sirva a alguien

Salu2
Sergio

Gridview a Excel en un clic

2011-10-14T12:23:00.003-04:00

Aqui les dejo un link a un control muy bonito hecho para asp.net 2.0, lo estoy utilizando con asp.net 4.0 y funciona muy bien.

Es un boton que se lo añade a la pagina, se le dice el nombre del grid y listo, ese botoncito es capás de generar un archivo de excel con el contenido del grid, incluso se pueden excluir columnas que no se quieren exportar

Descarguen desde aqui el boton

Salu2
Sergio T

Chart en asp.Net 4.0 "error: Invalid temp directory in chart handler configuration [c:\TempImageFiles\]"

2011-10-12T16:20:00.003-04:00

Hola
aqui les dejo un problema que tuve, inserté un gráfico en una pagina aspx y despues de configurarlo e intentar correr la pagina me salio el siguiente errror

error: Invalid temp directory in chart handler configuration [c:\TempImageFiles\]

El tema habia sido bien sencillo, cuando colocan un chart en su pagina , se aumenta una linea en el web.config que dice lo siguiente:

lo que hay que hacer es simplemente cambiarlo a:

A no ser que quieran grabar el grafico en una ubicación fisica, en cuyo caso ya tienen que comenzar a analizar permisos de escritura en la carpeta que deseen.

Por si acaso estoy utilizando VS2010, .Net4, IIS
Salu2
Sergio

Login failed for user IIS APPPOOL\DefaultAppPool

2011-09-19T15:04:00.000-04:00

Pinche seguridad paranoica jejeje no se ustedes pero las veces que inicio un nuevo proyecto web tengo q revisar los temas de seguridad y bueno... paciencia son detallitos nunca los tengo en la cabeza, así que aqui copio una de mis ayuda memoria

En este caso les comento una movida contra el iis en windows 7 jeje

Cuando tengan el error mencionado en el titulo y no puedan ingresar a una BD sql server por culpa de permisos lo que pueden hacer es la siguiente secuencia de pasos

Abrir el IIS
Hacer clic en el nodo de la PC
hacer clic en Applications pool
Seleccionar el pool en el cual está trabajando la aplicacion, normalmente seria DefaultAppPool
Ingresar a las Opciones Avanzadas
buscar a Identity o Identidad y cambiar a NetworkService (NT AUTHORITY\Servicio de red)

Hasta ahí hemos cambiado el usuario con el cual nuestra aplicacion se autentifica, ahora queda darle permisos en la base de datos al usuario networkservice para ello hay que hacer lo siguiente

Abrir el SqlManager
Ir al nodo de Security
Hacer click derecho y propiedades al Login NT AUTHORITY\Servicio de red
Ir aUser mapping y seleccionar la base de datos a la cual se quiere autorizar
Darle los permisos que se deseen
Cerrar y listo

Eso es todo amigos, espero les sirva

hope this helps.

reportviwer vs2008 IIS7 no carga el informe

2011-09-19T15:01:00.000-04:00

Hola

Un problema de... antología, por no decir una palabrota,... jeje
Resulta que coloco un reportviwer lo enlazo a un reporte que ni acceso a datos tiene, solo un ¨hola mundo¨ y resulta que cuando el reportviwer intenta mostrar el reporte, salen n mil errores de javascript. Bueno gracias a google encontré la solución y la coloco aquí por si a alguien le sirve,... bueno de hecho a mi para la proxima vez q tengo un vs2008 recien instalado jejeje

Lo que hay que hacer es lo siguiente:

Abrir el IIS 7 y seleccionar la aplicación
Seleccionar Asignación de controladores ( handler mappings ) en el área IIS
En el panel de Acciones de la derecha, hay que hacer clic en Agregar Controlador Administrado (Add Managed Handler)
Se desplegará un dialogbox en el que hay que colocar lo siguiente:

Ruta (Requested path): Reserved.ReportViewerWebControl.axd
Tipo (Type): Microsoft.Reporting.WebForms.HttpHandler
Nombre (Name): Reserved-ReportViewerWebControl-axd.

Aceptar y listo, con eso se arregla el problema

Hay que tener en cuenta que el WebConfig de la aplicación tambien se cambiará de forma automática, se incluirá lo siguiente en la sección System.Webserver del archivo web.config lo siguiente:

verb="*" type="Microsoft.Reporting.WebForms.HttpHandler" resourceType="Unspecified"
/>

Eso es todo, espero les sirva

No aparece el icono de reporte para agregar a un proyecto

2011-09-15T11:35:00.000-04:00

Me ha ocurrido algo extraño, queria agregar un nuevo report (rdlc) a mi proyecto y como siempre, hice clic derecho al proyecto y luego agregar nuevo item y... no habia Report por ninguna parte.
Estoy con VS2008 y windows 7 ( no se si tiene que ver o no) pero la cuestión es que para lograr que aparezcan los items templates que faltan, enre ellos el report, hay que cambiar el camino que se creó en la instalación a los archivos de plantillas o templates. Para eso hay que hacer lo siguiente:

Abrir el VS2008
Ir a Herramientas / Opciones
Seleccionar a Proyectos y Soluciones / General. Ahi se pueden ver 3 paths:

El primero es para indicar donde se almacenarán nuestros proyectos
Indica donde están los ¨project templates¨ de usuario. Este debería apuntar a la carpeta de instalacion en la cual estan los templates o plantillas, en el caso de mi maquina es: C:\Program Files\Microsoft Visual Studio 9.0\Common7\IDE\ProjectTemplates
Indica donde están los ¨item templates¨ de usuario. Este debería apuntar a la carpeta en la que están los item templates, en esta ubicación el VS deberia encontrar al Report y a otros item templates. Bueno en mi caso este path debería apuntar a:
C:\Program Files\Microsoft Visual Studio 9.0\Common7\IDE\ItemTemplates

Una vez ajustados los paths solo hay que darle aceptar y cerrar todo

Espero le sirva a alguien

Salu2
Sergio

Error PerfMonCounterNotCorruptedCheck al instalar SQLSERVER2008

2011-08-25T17:35:00.003-04:00

Intentando instalar SQL SERVER 2008 en un Windows 7 tuve el problema de no poder seguir con la instalación por que me dio el error siguiente:
-----------------------
PerfMonCounterNotCorruptedCheck

Comprueba si es válido el subárbol del Registro de contadores de rendimiento existente.

El subárbol del Registro de contadores de rendimiento está dañado. Para continuar, debe reparar éste subárbol. Para obtener más información, vea http://support.microsoft.com/kb/300956.
------------------------

si van a ver ese articulo.... uff!! bueno no se por ahi les sirve yo acabe mal, al final yo lo resolvi de forma sencilla, no se si es la correcta o nopero me funcionó

simplemente fui a la registry a las entradas
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Perflib]
"Last Counter"=1846
"LastHelp"=1847

y coloque esos valores en decimal , luego cerré reinicie mi maquina y... no se colgó asi que funcionó jejeje

Aqui hay un link que trata en mas detalle el tema por si necesitan mas info http://www.eukhost.com/forums/f31/fix-error-performance-monitor-counter-requirement-when-installing-sql-2005-express-4512/

espero les sirva
salu2
Sergio

acentos y eñes en jscript y alert desde aspnet

2011-08-23T16:21:00.003-04:00

Hace muchooo q no escribo nada pero estoy en el intento de volver a coloca pequeños aportes que se que siempre hay a quien sirvan.En esta línea aqui les dejo un truquillo en los casos en los q necesiten mostrar acentos o ñ en popps del tipo alert desde jscript

ahi va :

alert("Error debe incluir su edad en a"+'\u00f1'+"os/meses !!");

las constantes q deben utilizar para escribir en nuestro querido idioma son:

\u00e1 -> á \u00c1 -> Á
\u00e9 -> é \u00c9 -> É
\u00ed -> í \u00cd -> Í
\u00f3 -> ó \u00d3 -> Ó
\u00fa -> ú \u00da -> Ú
\u00f1 -> ñ \u00d1 -> Ñ

Espero les sirva

Twisted Sister - Oh Come All Ye Faithful

2009-12-21T12:51:00.001-04:00

Feliz navidad para todos, aqui les dejo un videito de Twisted Sister

Espero q el año q viene pueda reactivar mi blog por q la verdad q estuvo flojo este año,...

bueno, felices fiestas

web Popups con aspnet

2009-09-02T19:15:00.001-04:00

Hola

Después de meses de ociosidad dejo un pequeño ejemplo de como iniciar un popup desde el servidor , bueno el truco no es muy complejo mas bien super facil pero les será muy útil alguien eso seguro, les voy a colocar dos formas de hacerlo una colocando el disparador del popup con jscript y la otra forma utilizando el registro de scripts para q se ejecuten en el inicio de la pagina web

Con jscript en el botón q levanta el popup

Abran un nuevo web form coloquen un textBox y un Button
En el evento load del web form coloquen el siguiente código

Dim s As String
s =
"popUp=window.open('webform2.aspx?" & _
"&id=" & Me.TextBox1.Text & _
"','','width=860,height=520,left=40,top=100,resizable=yes,status=yes,scrollbars=yes');"
Me.Button1.OnClientClick = "javascript:" & s
Ahora adiciones un segundo formulario web que se llame webforom2.aspx
Añadan un textbox y luego en el evento load de ese nuevo webform coloquen lo siguiente

Me.textbox1.text =
Request.QueryString("Id")

De este ejemplo pueden ver algo interesante y es que si escriben algo en el textbox y llaman al popup, verán que no se traspasa lo que escribieron, pero si lo vuelven a apretar verán que ahora si se traspasa el texto del primer webForm al segundo, esto se debe a que el script q levanta el popup se “carga” con el textbox en un postback posterior, es decir cuando oprimen el botón por primera vez están llamando al segun form con el estado Anterior del textbox , por que el orden de ejecución hace que primero se ejecute la secuencia jscript en el cliente y luego se produzca el postback que recién cargará el contenido del textbox en la llamada al webform2. Este detalle es muy importante por que si no lo manejan bien ocurrirá lo q en este ejemplo, un desfase de un postback en los datos que le pasan al segundo webform. Para arreglar esto hagan lo siguiente, coloquen el autopostback del textbox en true y listo, al salir del textbox con un tab ocurrira un postback y se cargará correctamente el jscript, luego oprimen el boton y listo ya funciona bien.

Utilizando el evento OnLoad de la pagina cuando

Vamos a agregar un nuevo WebForm al proyecto y haremos casi lo mismo que en el otro caso pero utilizaremos el evento click del boton del lado del servidor

al nuevo webform añadan un textbox y un boton como en el anterior caso
hagan 2 clics al boton y en el evento clic coloquen lo siguiente

Dim
s As String
s =
"window.open('webform2.aspx?" & _
"&id=" & Me.TextBox1.Text & _
"','','width=860,height=520,left=40,top=100,resizable=yes,status=yes,scrollbars=yes');"
Dim ss As String = "<script language =""jscript"">" & s & "</script>"

Dim Pop As ClientScriptManager = Page.ClientScript
Pop.RegisterStartupScript(Me.GetType(), "OnLoad", ss)

Eso es todo, ahora ejecuten este nuevo webform carguen algo en el tetbox y opriman el botón, esta vez todo funciona perfectamente sin necesidad de colocar el autopostback en el textbox, este es un ejemplo bien sencillo, pero sirve para darle una mirada a los popups, Cuando estén usando AJAX la línea :Pop.RegisterStartupScript(Me.GetType(), "OnLoad", ss) deben cambiarla por :

ScriptManager.RegisterStartupScript(

Me, Me.GetType, "OnLoad", sScript, True)

bueno eso es todo espero le sirva a alguien

salu2
Sergio

Aplicaciones IIS de ASP en XP

2009-03-20T11:23:00.001-04:00

Hola

No se si alguien aun tiene o usa o ha usado "aplicaciones IIS " que eran un tipo de proyecto de desarrollo ASP en el Visual Studio 6 , en esas épocas se trabajaba con Windows 98 y el IIS daba sus primeros pasos. Bueno "ahora" después de mucho tiempo me tocó revisar esa aplicación y obviamente ya no uso Windows 98, ahora aun estoy utilizando XP, ya se q es un poco viejo pero.. aun no lo cambio.

Bien la cuestión es que si deben trabajar con este tipo de proyectos en el IIS 6 y XP necesitarán un pequeño truco para configurar la ejecución de estos proyectos desde el entorno del VS 6 en modo de depuración.

Cuando ejecutan la aplicacion IIS desde el entorno de desarrollo, obtendrán el error

Server object, ASP 0178 (0x800A0005) The call to Server.CreateObject failed while checking permissions. Access is denied to this object

Y esto se debe a que el usuario IUSR_<machinename> no tiene los permisos necesarios para acceder a vb6.exe que es el server DCOM, Como No hay una entrada DCOM para el vb6.exe en windows 2000, XP y superiores, se aplican los permisos default, los cuales son solamente permiten el acceso para el usuario SYSTEM y el que lanza el procesos, que no es el mismo usuario que intenta acceder al server DCOM. Por tanto para lograr el acceso hay que crear una entrada DCOM para vb6 y luego dar permisos, el proceso exacto se los describo a continuación

Crear entrada DCOM para "VB ASP Debugging"

Colocar las siguientes instrucciones en un archivo texto de nombre Vbaspdbg.reg

REGEDIT4
[HKEY_CLASSES_ROOT\CLSID\{70F214BA-94E2-4bdf-8F30-32CB4A905E4D}]
@="VB ASP Debugging"
[HKEY_CLASSES_ROOT\CLSID\{70F214BA-94E2-4bdf-8F30-32CB4A905E4D}\LocalServer32]
@="vb6.exe"
[HKEY_CLASSES_ROOT\AppID\vb6.exe]
"AppId"="{70F214BA-94E2-4bdf-8F30-32CB4A905E4D}"

Luego hagan 2 clics a ese archivo desde el Windows explorer y listo, ya tenemos entrada DCOM para vb6.exe

Demos permisos en XP

Abrir a Components Services o Servicios de Componentes que se encuentra en boton inicio / Herramientas administrativas / Servicios de componentes

Expandir los nodos hasta llegar a "VB ASP Debugging" esto es Servicios de componentes / Equipos / Mi PC / Configuracion DCOM

Como en la figura siguiente

Luego hagan clic derecho a VB ASP Debugging y en las propiedades vayan a Seguridad y a permisos de acceso , luego incluyan al grupo de usuarios Todos y asignenle todos los permisos como en la figura siguiente

Apliquen los cambios y reinicien la máquina y eso es todo

Se que no es un tema muy actual a tratar pero como a mi me ocurrió seguramente a alguien mas le puede ocurrir que necesite modificar y depurar una aplicación ASP antigua del tipo "IIS Aplicattion".

Hasta pronto

Sergio

Death magnetic

2009-01-24T17:25:00.002-04:00

hola

Este es el primer post que coloco con un tema que no sea programación pero creo q vale la pena variar, hace unos meses metallica lanzó el Death Magnetic, la verdad no estaba muy animado en comprarlo, pero como metallica es una de mis bandas favoritas lo hice por puro lealtad jeje, la verdad que al comienzo me parecio bueno, pero no tanto, de hecho mejor q el St Anger que es un disco malisimo (cualquier cosa es mejor ), con un par de temas que se salvan, la cosa es que cada vez que escuchaba el disco , descubria nuevos sonidos, riffs, acordes, armonías que parecen no terminar de aparecer, es un disco espectacular!!!! parece que gracias a la salida de bob rock como productor y con la ayuda de Rick Rubin, se han vuelto a encontrar en su sonido, ahora metallica está en el camino de recuperar lo que todos los fans esperábamos desde el 90!!!, buen trash metal!!! , bueno al fin llegó después de 20 años, asi que vayan a comprar ese disco que está excelente, 1000 veces mejor de lo que esperaba, con razón cambiaron la tipografía a su antiguo formato, y retomaron los colores de blanco y negro igual q en el .. and justice, como si dijeran vamos a recomenzar desde donde nos perdimos jeje

la crítica q todos le hacen al disco es que parecía que tiende a reeditar sonidos de los discos viejos, pues bien para mi eso no es ningún pecado, mas bien es lo que todos queriamos!! Es raro ver las criticas a metallica siempre los criticaron por que sus discos cambian mucho uno de otro, ahora le dan por que este tiende a volver a las raices jejeje quien entiende a la gente???

El primer tema comienza lento con los latidos de un corazón y pronto comienza tomar fuerza con unos riffs muy buenos, desde el comienzo toma la atención y no la pierde para nada, por mas q dure 7 minutos, para mi este es uno de los mejores temas del disco y sin lugar a dudas uno de los mejores de metallica. Otro tema que es uno de mis favoritos del disco es Broken, beat and scarred, para mi tiene mucho del and justice, es excelente, luego esta la canción q dicen se parece a fade to black, The day that neveer comes, la verdad para mi se parece mas a One por la forma en la que comienza y va tomando fuerza hasta terminar en una locura trashera de solos impresionantes, un temón!!! Luego aparece All nightmare long que si bien tiene una intro q para mi no es muy llamativa, un minuto después cambia y continua una línea excelente. Unforgiven III está muy buena, mejor que la II para mi, pero no llega a superar a la primera. Al final se animaron a volver a intentar un instrumental que está muy bueno, a excepción de un par de acordes que a mi personalmente no me gustan mucho, es un tema realmente bueno y se llama Suicide & Redemption, la ultima canción My Apocalypse, me trae todo el recuerdo de Damage Inc, por la velocidad y fuerza, un excelente tema para cerrar el disco, la canción que menos me gusta es Cynade, la verdad el coro no me gusta para nada, pero la intro , los solos son excelentes, solo metieron la para en el coro.

bueno como sea, compren este disco no se van a arrepentir

http://www.hipersonica.com/2008/10/01-metallica-death-magnetic

http://es.wordpress.com/tag/death-magnetic/

chau

Acceso a datos independiente del proveedor

2008-12-20T23:18:00.002-04:00

Hola

Algo que aunque no siempre sea aplicable a la realidad, todos deseamos, es poder tener un programa al cual le podamos cambiar de BD y que todo siga funcionando de forma automática sin mayores traumas en el código fuente, sin mucha charla les comento que desde el framework 2.0 esto es posible con ado.net a través de las clases que se encuentran en el espacio de nombre System.Data.Common

Como es el procedimiento?

Recuperar el proveedor de datos y la cadena de conexión de algún lugar y crear un DbProviderFactory
Utilizar ese proveedor para crear dataadapters a través de DbProviderFactory.CreateDataAdapter()
usar los dataadapters

Creando la conexión
Voy a ser muy simplista solo para ordenar un poco el código y estructurarlo, depende de ustedes donde colocan los strings que devuelven los siguientes métodos

Public Shared Function GetProvider() As String
Return "System.Data.SqlClient"
End Function

Public Shared Function GetCnnString() As String
Return "Data Source=MiSQLsrv;Initial Catalog=MiBD;Integrated Security=True"
End Function

las funciones anteriores deberían estar haciendo acceso al app.config o algún archivo texto del cual recuperen las cadenas que arriba las muestro como constantes

Ahora haremos uso de ellas, creando una conexión a partir del proveedor, de forma que será la conexión indicada para el proveedor cuya descripción la obtuvimos de la función GetProvider()

Dim sProv As String = GetProvider()
Dim sCnn As String = GetCnnString()

Dim

oCnn As DbConnection = nothing

Dim f As DbProviderFactory = DbProviderFactories.GetFactory(sProv)
oCnn= f.CreateConnection()
oCnn.ConnectionString = sCnn

Ahora que ya tenemos la conexion debemos generar los comandos para ejecutar una consulta de selección.

Dim

cmd As DbCommand = oCnn.CreateCommand()

cmd.CommandText =

"Select * from miTabla where Id=1"
cmd.CommandType = CommandType.Text

oCnn.Open()

Dim dr As DbDataReader = cmd.ExecuteReader
Dim ID As Integer=0
Dim sNombres As String=""

If dr.HasRows Then

dr.Read()
dim ID as integer = dr("Id")
sNombres = dr("Nombres")

End If

dr.Close()
oCnn.Close()

Como vieron utilizo la conexión para generar un comando, el cual estará en función del proveedor, luego le doy el texto de la consulta y luego obtengo un datareader desde el cual descargo los datos a variables, finalmente cierro el dataReader y la conexión

Como ven el tema de la independencia del proveedor no es cosa del otro mundo si no mas bien es bien facil. En otro articulo (que supongo será este año) les mostraré como usar dataadapters para grabar datos en una estructura similar a esta.

Espero le sirva a alguien esto

Hasta pronto y Felices fiestas!!!

Salu2
Sergio

Error al asociar automáticamente al proceso aspnet_wp.exe

2008-11-05T17:11:00.001-04:00

Hola

Que error mas aparatoso pero como normalmente ocurre un error bien caótico es fácil de solucionar, por que cada vez me convenzo más que los errores pequeñitos, esos que se los hallan después de meses de que el sistema está funcionando, son los mas difíciles de encontrar y probablemente de arreglar, bueno volviendo al caso

El mensaje de error se produce al darle el F5 para correr en modo depuración al VS 2003, ni bien termina la compilación y está por levantar el IE sale un message box que dice No se puede iniciar la depuración y en la cajita de mensajes del VS sale lo siguiente

Error al asociar automáticamente al proceso aspnet_wp.exe en el equipo XXXX Código de error 0x8013134b.

Bien la solución para esta vaina es muy simple, habrán el IIS vean las propiedades de la aplicación (del directorio virtual) escojan la paleta ASP.NET y cambien la versión de ASP.NET al framework 1.1, pues resulta que cuando el Framework 2.0 se halla instalado en la máquina este se está asumiendo como framework default y es ahí cuando el VS2003 no sabe por donde disparar y por tanto no puede asociarse con el proceso aspnet_wp , ahi les paso una fotito de donde cambiar la versión del framework en el IIS

Bien eso es todo, facil no?

Salu2
Sergio

Eliminando el Caché de paginas

2008-10-31T13:06:00.002-04:00

Hola

Después de bastante tiempo coloco algo en el blog, bueno esto es a raíz de que ando "soqueteado" de trabajo... ni caso , es mejor que sobre a que falte.

Resulta que hace poco he estado teniendo el problema de que las paginas que muestra el IE salen del caché, esto es un desastre puesto que en algunas de ellas se necesita tenerlas siempre actualizadas desde el server, bueno a raíz de ello he encontrado una etiqueta html que soluciona el problema pero a medias, hay que hacer un pequeño truco adicional, que se los cuento ahora

La etiqueta es:

Se debe colocar en la sección de <head> de la página

Pero hay un bug interesante en este tema, resulta que la interpretación de las paginas es de arriba hacia abajo y resulta también que las paginas no se "cachean" hasta que llega a cargar 32K, por tanto como siempre se coloca la etiqueta en el head de la pagina, puede no lograrse los 32K y por tanto la pagina no se cachea y por tanto la etiqueta queda sin efecto , para solucionar esto lo que hay que hacer es colocar al final de la pagina y antes del < / HTML> otro grupo de etiquetas como este

< HEAD >
<META HTTP-EQUIV="PRAGMA" CONTENT="NO-CACHE">
< / HEAD>

Con eso debería evitarse el cacheo de paginas

salu2 y espero les sirva
Sergio

Chau VSS hola TFS

2008-09-30T16:24:00.001-04:00

Bueno aparentemente como todo con Microsoft, el VSS ha evolucionado a una nueva herramienta llamada Team Foundation Server que ya tiene una versión para el VS2005, pero que en la nueva versión del Visual Studio se libera con mucha mas potencia.

Aun no tengo la oportunidad de utilizarlo, por que la verdad estoy con tanto trabajo que incluso deje de escribir en este blog desde hace un par de meses, bueno como sea he estado leyendo sobre el tema y aparentemente está genial, les paso algunos links para que puedan leer mayor detalle, por ahí y me comentan si tienen experiencia con él, por que pronto me tocará cambiarme al VS2008 y desde lego aprovecharé para cambiar a TFS.

Estos links pueden ser muy útiles para conocer a TFS y migrar desde el fiel VSS

Por que migrar según microsoft a Team Foundation Server

Preparacion para migrar a FS

Migrando de Visual Source Safe a Team Foundation Server

Otro mas de migración

Descarga del a Versio n de TFS para VS2005

Bueno hasta pronto

Salu2
Sergio

Novedades del Sql2008

2008-07-04T10:58:00.002-04:00

Aquí les dejo un link a un articulo en ingles sobre las nuevas capacidades programáticas del sql 2008

http://msdn.microsoft.com/en-gb/library/cc721270(SQL.100).aspx

Salu2
Sergio

Búsquedas en Colecciones . Cual es la mejor forma ?

2008-06-20T12:16:00.001-04:00

Hola

Hace unos días atrás tuve la necesidad implementar búsquedas sobre colecciones genéricas y comencé a buscar algún método que me permita buscar en una colección genérica tipo List(of T)a lo que me encontré el método find, pero con muy poca ayuda acerca de él, recurrí al siempre útil grupo de noticias en el cual recibí la ayuda que necesitada de uno de los amigos que ahí siempre están dispuestos a colaborar.

Bien en resumen después de ver que no era difícil pero si un poco rayado el método de implementar el comando find de la colección ya que utiliza punteros a funciones y variables globales al formulario, pensé utilizar otra clase que es la SortedList(of TKey, TValue) que vendría a ser como una colección genérica ordenada cuya principal característica es su fácil y limpia implementación. Tenía también la opción de utilizar el viejo for para una búsqueda secuencial en la colección pero esto me parecía algo anticuado y muy poco elegante, y fue por esta razón que inicie mi investigación acerca de las formas de búsqueda en una colección.

Después de hacer pruebas con 1000000 de objetos en una colección list(of T) y en otra SortedList(of TKey, TValue) resulta que la mejor manera de trabajar con gran cantidad de objetos es el viejo for o el for each, si aunque no me crean es así, pues resulta que si bien el SortedList(of TKey, TValue) es mucho mas rápido a la hora de hacer la búsqueda, es tremendamente ineficiente en el momento de la carga, en mi caso, el millón de objetos los cargó en 12 minutos!!! si, 12 minutos, mientras que la carga en una colección list(of T) tardó 3 segundos!!! increíble la diferencia no?. Eso si la búsqueda en el sortedlist no llegaba a un milisegundo mientras que en la list(of T) tardaba 80milisegundos con los for y entre 900 y 1100 milisegundos con el método find, la verdad que me sorprendió el resultado. Las pruebas las hice en una notebook pIV de2.4Ghz con 512MB de memoria, me aseguré de buscar el último elemento de la colección.

Todos son muy fáciles de comprender, tal vez el mas "vuelteado" es el que usa el método find ya que utiliza variables globales al formulario y un objeto predicado que viene a ser una especie de puntero a la función de búsqueda.

Bien les paso mi código con el que hice las pruebas por si quieren ustedes ver la implementación de estos métodos de búsqueda

Haremos un Winform que lo llamaremos frmColeccionesGenericas en el cual colocaremos 4 botones cada uno de ellos con un label debajo para mostrar resultados (dejen los nombres por default), Cada botón será un tipo de carga-búsqueda en una colección. Luego vayan al codebehind y copien en él, el siguiente listado que es del formulario completo

Public

Class frmColeccionesGenericas

'variable global de formulario a usarse con el método find
Dim s_NombreABuscar As String

'variable global ´Nro de elementos de la coleccion
Private nElementos As Integer = 1000000

'con el método find
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim ini As Date
Dim fin As Date
Dim diff As TimeSpan

'---------------------carga la coleccion

ini = Now

Dim l As New List(Of cPersona)
For i As Integer = 1 To nElementos

l.Add(

New cPersona(i, "Juan " & i, "321" & i))

fin = Now

diff = fin.Subtract(ini)

Me.Label1.Text = "Tiempo de Carga :" & diff.Minutes & ":" & diff.Seconds & ":" & diff.Milliseconds

'---------------------carga la coleccion
' Crear un objeto Predicate que apuntará a la función fBuscador

Dim fBuscador As New Predicate(Of cPersona)(AddressOf Buscar)

'variable de formulario
s_NombreABuscar = "Juan " & nElementos

'----busqueda
ini = Now
Dim p As cPersona = l.Find(fBuscador)
fin = Now

diff = fin.Subtract(ini)

Me.Label1.Text &= vbCrLf & "Tiempo de Busqueda :" & diff.Minutes & ":" & diff.Seconds & ":" & diff.Milliseconds
End Sub

Private Function Buscar(ByVal persona As cPersona) As Boolean

If persona.Nombre.ToLower = s_NombreABuscar.ToLower Then

Return True

Else

Return False

End If

End Function

'con el sortedlist
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim ini As Date
Dim fin As Date
Dim diff As TimeSpan

'---carga coleccion ordenada

Dim l As New SortedList(Of String, cPersona)
Dim p As cPersona
ini = Now
For i As Integer = 1 To nElementos

p =
New cPersona(i, "Juan " & i, "321" & i)

l.Add(p.Nombre, p)

fin = Now
diff = fin.Subtract(ini)

Me.Label2.Text = "Tiempo de carga :" & diff.Minutes & ":" & diff.Seconds & ":" & diff.Milliseconds

'---busca en coleccion

ini = Now
p = l(

"Juan " & nElementos)
fin = Now
diff = fin.Subtract(ini)
Me.Label2.Text &= vbCrLf & "Tiempo de Busqueda :" & diff.Minutes & ":" & diff.Seconds & ":" & diff.Milliseconds

End Sub

'con un for
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim ini As Date
Dim fin As Date
Dim diff As TimeSpan

'----carga coleccion

Dim l As New List(Of cPersona)
Dim p As cPersona
ini = Now

For i As Integer = 1 To nElementos

p =
New cPersona(i, "Juan " & i, "321" & i)
l.Add(p)

fin = Now
diff = fin.Subtract(ini)

Me.Label3.Text = "Tiempo de Carga :" & diff.Minutes & ":" & diff.Seconds & ":" & diff.Milliseconds

'---busca elemento
ini = Now
Dim s As String = "Juan " & nElementos
For i As Integer = 1 To nElementos

p = l(i)
If p.Nombre = s Then

Exit For

End If

fin = Now
diff = fin.Subtract(ini)

Me.Label3.Text &= vbCrLf & "Tiempo de Busqueda :" & diff.Minutes & ":" & diff.Seconds & ":" & diff.Milliseconds

End Sub

'con un for each
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim ini As Date
Dim fin As Date
Dim diff As TimeSpan
Dim l As New List(Of cPersona)
Dim p As cPersona
ini = Now
For i As Integer = 1 To nElementos

p =
New cPersona(i, "Juan " & i, "321" & i)
l.Add(p)

fin = Now
diff = fin.Subtract(ini)

Me.Label4.Text = "Tiempo de Carga :" & diff.Minutes & ":" & diff.Seconds & ":" & diff.Milliseconds

ini = Now

Dim s As String = "Juan " & nElementos
For Each p In l

If p.Nombre = s Then

Exit For
End If

fin = Now
diff = fin.Subtract(ini)

Me.Label4.Text &= vbCrLf & "Tiempo de Busqueda :" & diff.Minutes & ":" & diff.Seconds & ":" & diff.Milliseconds

End Sub

'CLASE para llenar la coleccion
Class cPersona

Private nCod As Integer
Private sNombre As String
Private sTelefono As String

Public Property Cod() As Integer
Get

Return nCod

End Get
Set(ByVal value As Integer)

nCod = value

End Set
End Property

Public Property Nombre() As String
Get

Return sNombre

End Get
Set(ByVal value As String)

sNombre = value

End Set
End Property

Public Property Telefono() As String
Get

Return sTelefono

End Get
Set(ByVal value As String)

sTelefono = value

End Set
End Property

Public Sub New(ByVal n_Cod As Integer, ByVal s_Nombre As String, ByVal s_Telefono As String)

nCod = n_Cod
sTelefono = s_Telefono
sNombre = s_Nombre

End Sub

End Class

Bien eso es todo por hoy

Salu2
Sergio

localhost no funciona pero si la ip 127.0.0.1

2008-06-18T08:51:00.001-04:00

Hola

Hace unos días tuve un problema que por poco y me hace reinstalar la computadora, pero gracias a amigos del grupo de noticias de aspnet (microsoft.public.es.dotnet.aspnet) logré corregir el problema. Resulta que sin saber como una mañana el IIS amaneció sin ganas de trabajar, cualquier dirección que colocaba en el IE como http://localhost/loQueSea no llegaba a ninguna parte y después de esperar un montón de tiempo salía el mensaje que decía que el sitio no estaba disponible o la dirección no existía, ni siquiera una pagina html ni el sitio por defecto que trae el iis, nada, de nada!! Se me ocurrio intentar con la ip 127.0.0.1 en vez de localhost y resulta que funcionó, todo funcionaba pero con la ip mencionada o con la ip que me daba mi dhcp. Bien después de mas de 2 días de buscar como solucionar esto por Internet me respondieron en el grupo de noticias con la solución, la cual consistió en correr los siguientes comandos

primero abran una ventana de comandos y en la carpeta C:\Inetpub\AdminScripts, hacer lo siguiente

cscript adsutil.vbs set w3svc/1/serverbindings "127.0.0.1:80:localhost"

luego en la carpeta del framework, C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727 hay que correr los siguientes comandos

aspnet_regiis -u
aspnet_regiis -i
aspnet_regiis -ga NombreDeTuComputadora\ASPNET

Resumiendo los anteriores comandos todo consistió en volver a asociar la ip con el localhost luego desinstalar el aspnet 2.0 luego volver a instalar y tercero colocarle permisos al usuario aspnet de la máquina

aquí les paso unos linsk que explican los comandos

Using the Adsutil.vbs Administration Script (IIS 6.0)

Descripción de las herramientas Adsutil y MetaEdit utilizadas para modificar la Metabas

y en relación al otro comando

Herramienta Registro de IIS en ASP.NET (Aspnet_regiis.exe)

Bueno espero les ayude como a mi

Salu2

SergioT

Error en el debuging ContextSwitchDeadLock

2008-06-04T16:30:00.000-04:00

Hola

Que errorcito fregado este, no se si les salió alguna vez pero a mi me hizo perder varias horas, antes de divagar en lo que significa por que la verdad es un tema un poco espeso les comento la "solución"

Hay que apagar un checkbox que corresponde al MDA (managed debug assistant) de nombre ContextSwitchDeadLock.

Depurar / Excepciones / Managed Debuging assistants.

Apaguen el check box correspondiente ContextSwitchDeadLock

Por default no aparece la opcion de Excepciones en el submenu Debug, si ese es su caso añadanlo haciendo lo siguiente:

Vayan a

Ver / barras de herramientas / Personalizar

Una vez ahí en el panel izquierdo seleccionen Debug y entre las opciones que aparecen a la derecha estará Excepciones, tomen la opción y arrastren hasta el menú debug

Bien ahora una pequeña explicación de esto, resulta que los MDA son asistentes y ayudas que se utilizan en el debug en coordinación con la CLR , ellos generan mensajes informativos en tiempo de ejecución sobre eventos y por lo que entiendo el error que se produce en este caso es por que el depurador lanza esta excepción ya que encuentra hilos de ejecución en la aplicación que se está depurando que aparentan estar colgados ya que no devuelven ningún mensaje y el MDA al no conocer el estado genera esta excepción. Por otro lado he leido que es un problema en algún componente COM que la aplicación que esta haciendo burreras jeje Al inicio les coloque ¨Solucion¨ entre comillas por que si se dan cuenta en realidad el problema no se soluciona pero si se evita que el Debug lance el error, el problema muy probablemente se debe a un componente COM que no está comunicándose correctamente con el MDA y por tanto este lanza la excepción.

Bueno en fin ahí va un unos links por si quieren leer mas acerca de este error, que es toda una rareza confusa y si alguien entiende mas de esto y quiere dejarme un comentario, será bien venido

http://msdn.microsoft.com/es-es/library/d21c150d(VS.80).aspx

http://msdn.microsoft.com/es-es/library/ms172233(VS.80).aspx

Salu2
SergioT

Actualizacion para VSS 2005

2008-06-02T22:12:00.000-04:00

Hola

Aquí les envio un link para la actualización acumulativa del VSS, en ella se resuelven varios problemas de los cuales uno me ocurrió a mi y es el hecho del timeout en la descarga y actualización de fuentes vía HTTP cuando los archivos son relativamente grandes

Bien ahí les dejo el link

http://www.microsoft.com/downloads/details.aspx?displaylang=en&FamilyID=8a1a68d8-db11-417c-91ad-02aab484776b

En este otro link pueden ver información relacionada con el control de código

http://blogs.msdn.com/richardb/archive/2007/12/11/sourcesafe-2005-update-is-available-for-download.aspx

salu2
Sergio

VSS vía Internet HTTP

2008-06-01T03:04:00.001-04:00

Hola

La versión 2005 del Visual SourceSafe tiene la opción de poder acceder a una base de datos desde cualquier parte del mundo vía HTTP, de manera muy fácil y simple, a continuación les describo como configurar el VSS para poder compartir una BD para permitir el acceso vía Iinternet.

Utilizaremos el siguiente escenario un server 2003 en el cual estará la BD del VSS y nuestra máquina que será un XP,ambas deben tener el VSS instalado. Existen 2 formas de configurar el acceso desde Internet uno es con SSL (secure socket layer) y el otro es sin usar SSL, este ultimo es mas fácil de configurar pero también menos seguro ya que la información se traspasa como texto plano y por tanto es susceptible a robo.

Para ambos tipos de acceso debe tener instalado, configurado y publicado el IIS en una computadora

Veamos el acceso sin SSL

Primero que nada se debe compartir la carpeta en la cual se creó la BD del SourceSafe, para esto solo hay que abrir un explorador de windows y compartir la carpeta, hay que tener en cuenta los permisos de acceso a esa carpeta vía LAN para los usuarios que vayan a tener el acceso a la base de datos. Supongamos que nuestra base de datos está en la carpeta D:\ss\MiBD
Ahora que tenemos compartida la BD en la red LAN abramos el administrador de VSS (SSAdmin) y abramos la base de datos pero con la dirección UNC \\MiMaquina\MiBD
Una vez abramos la BD con la dirección UNC se habilitará la opción Servidor \Configuración, entremos a esa opción y checkemos a "Habilitar SourceSafe para este equipo" y tambien la opción "Habilitar SourceSafe Internet para esta base de datos" a continuación coloquemos la IP o el nombre DNS del servidor web del equipo , que se supone tiene el IIS configurado y funcionando.
Al oprimir aceptar recibiran elsiguiente mensaje de advertencia
Opriman NO para seguir trabajando sin SSL
Eso sería todo lo necesario, ahora probemos si todo esta bien podemos probar el acceso desde Internet abriendo un IE y colocando la IP del sitio que indicamos enla configuración y llamamos al webservice que se configuró automaticamente en nuestro IIS, algo similar a lo siguiente:
http://205.150.152.001/SourceSafe/VssService.asmx
Si todo esta bien aparecerá una ventanita pidiendo un usuario válido del servidor, ahí deberá darle el nombre y password de un usuario válido del server que tenga acceso a la carpeta compartida conde se halla la BD del server, debe tener permisos de lectura y escritura. Algo muy importante de entender en este punto es que si no usamos SSL, el WS (Web Service) de VSS utiliza la impersonalización lo cual significa que el usuario que proveímos cuando el Explorer nos lo solicitó debe tener permisos de lectura y escritura en la carpeta de la BD y además DEBE estar creado como usuario en la base de datos del VSS, por último debe activarse la opción "Usar el nombre de red para iniciar la sessión del usuario automáticamente" que está en Herramientas /opciones/ general; esta está configurada así por default. Bien si todo esto se cumple el WS dará un error pero uno en el cual veremos que efectivamente está respondiendo, nos damos cuenta de esto por que el error tiene como título lo siguiente:"Error de servidor en la aplicación '/SourceSafe'."

Bien ahora que ya tenemos todo bien configurado en el server, vamos a la máquina remota que pretende acceder a la BD. Bien esta es la parte mas fácil y consiste en lo siguiente:

Abran el VS2005, vayan a Herramientas/opciones/Control de código fuente/Selección del complemento y ahí seleciona Microsoft Visual SourceSafe (internet) como en la siguiente figura
Ahora vaya a Herramientas/opciones/Control de código fuente/Configuración del complemento , coloque el nombre del usuario que tiene acceso a la BD y al server , luego presione avanzadas y destickee la opción de usar SSL, como enla figura siguiente:

Bien eso es todo en cuanto a configuración, ahora solo nos queda probar por ejemplo abriendo una solución que ya tengamos en la BD. Para esto hay un procedimiento "Especial" se los comento a continuación:

Abramos el VS2005
Vamos a Abrir Proyecto y ahí seleccionemos a "SourceSafe (Internet)"
Seleccionemos a "Agregar base de datos de SourceSafe", aparecerá un asistente que nos pedirá la IP o el nombre del dominio ( en mi ejemplo http://205.150.152.001) y la carpeta compartida (\\MiMaquina\MiBD ), al darle siguiente, si logra la conexión pedirá un usuario y password en la máquina de destino, debemos proporcionarle el usuario , si autenticamos correctamente nos pedira que le demos un nombre a la conexión y listo.
Ahora solo queda seleccionar el proyecto que queremos abrir en la BD y listo el VS2005 comenzará la descara del proyecto en nuestra carpeta default de proyectos la cual esta configurara en (herramientas/opciones/proyectos y soluciones/general/ Ubicación de proyectos de VS)

Les comento que yo utilizo esta forma y la verdad funciona muy bien, es fácil de usar y su configuración no es nada del otro mundo, solamente tengan cuidado con los permisos a las carpetas de la BD y asegúrense de que los usuarios de su dominio que usan la BD están creados como usuarios de la BD

Bien eso es todo por el momento, espero les sirva de guía, hasta pronto!!!, en otra les describo el acceso vía SSL

salu2
SergioT

VB.net y el punto decimal en los textbox

2008-05-22T18:28:00.002-04:00

Hola

El temita este de las referencias culturales y combinación con lo que dice la configuración regional la verdad que es mas que un dolor de cabeza, por lo menos para mí que no soy ningún gurú en esto. Una de las pocas cosas que extraño del dbase era el comando picture que con un simple modelo limitaba muy fácilmente las entradas de datos sobretodo a los números. Aquí en vb.net nos dan la "facilidad" de programar para diferentes referencias culturales de forma que el resultado puede ser mucho mas amigable al usuario final ya que el sistema se comportará de acuerdo a lo que dice la configuración regional del equipo, la burrera es que se complica bastante la programación , bueno... ni caso.

Aquí les dejo una recetita para manejar los textbox con números de forma que se use el punto "." como separador decimal independientemente a lo que se haya configurado en el panel de control, Asumamos que la máquina tiene a la coma "," como el separador de decimales y el punto separador de miles ( como es normalmente en latino América)

Coloquen un textbox, un button en un winform y peguen el siguiente código en el codebehind

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim x As Decimal
x = 25.356 'fijense que la asignacion es con punto
Me.TextBox1.Text = x
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As Decimal
x = Me.TextBox1.Text 'De aqui viene con coma y se convierte automaticamente a punto
MsgBox(x)
End Sub

Hasta aquí todo funciona muy bien ya que al colocar un número con decimales a un textbox el punto se convierte en coma , tal y como dice la configuración regional y luego al pasar un textbox a un número la coma se convierte en punto.

Bien ahora supongamos que el usuario tiene la "tonta idea" de usar el punto para ingresar decimales. por que resulta que es un "comodon" que quiere ingresar números con velocidad y comodidad usando el teclado numérico de su teclado. hagan el intento en el textbox que ya tenemos en pantalla y digiten "25.356", luego opriman el botón y verán que les sale:"25356" que pasó??? pues resulta que el muy inteligente VB pensó que estamos usando el separador de miles "." y lo desechó.

Bueno para darle la comodidad al usuario de usar su teclado numérico podemos construir un control de usuario y controlar cada presión de teclas para obligar a usar punto o programar los eventos del textbox para hacer lo mismo o podemos hacer una validación mas simple en el momento de recuperar y asignar valores de textbox a números y viceversa. Bien para hacer esto último aumentemos un textbox y otro botón al winform y remplacemos él código anterior por lo siguiente:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim x As Decimal
x = 25.356 'fijense que la asignacion es con punto
Me.TextBox1.Text = x
Me.TextBox2.Text = x.ToString(System.Globalization.CultureInfo.InvariantCulture)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim x As Decimal

x = Me.TextBox1.Text 'De aqui viene con coma y se convierte automaticamente a punto

If x.ToString <> Me.TextBox1.Text Then

MsgBox(
"No es un número válido, use la coma decimal ", MsgBoxStyle.Critical)
Return

End If
MsgBox(x)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim x As Decimal = Decimal.Parse(Me.TextBox2.Text, System.Globalization.CultureInfo.InvariantCulture)

If x.ToString(System.Globalization.CultureInfo.InvariantCulture) <> Me.TextBox2.Text.Trim Then

MsgBox(
"No es un número válido, asegurese de usar punto decimal", MsgBoxStyle.Critical)
Return

End If
MsgBox(x)
End Sub

Bien ahora explicaré los cambios que le hice al formulario: primero veamos en el evento load la instrucción siguiente:

Me.TextBox2.Text = x.ToString(System.Globalization.CultureInfo.InvariantCulture)

Esta operación lo que hace es obtener una referencia a la "instancia cultural de todos los idiomas" la cual se basa en la referencia cultural inglesa, que como saben maneja el punto como el separador de decimales,y por tanto lo que estamos logrando es ignorar la configuración regional!!!! por este motivo verán que en la pantalla (textbox2) aparece el número con el punto como separador de decimales, justo lo que quería lograr.

Ahora veremos el delegado del buuton2 donde recuperamos el valor del textbox y lo colocamos en la variable numérica

Dim

x As Decimal = Decimal.Parse(Me.TextBox2.Text, System.Globalization.CultureInfo.InvariantCulture)

En Esta línea convertimos el string del textbox por medio del método Parse de Decimal repitiendo la solicitud de la instancia independiente de la configuración regional, esto debido a que asumimos que en el texto hay punto como separador decimal.

Finalmente analicemos la validación que asegura que estemos usando el punto como separador de miles

x.ToString(System.Globalization.CultureInfo.InvariantCulture) <> Me.TextBox2.Text.Trim Then

MsgBox(

"No es un número válido, asegurese de usar punto decimal", MsgBoxStyle.Critical)

Return

End If

La validación es tan sencilla como comparar la cadena obtenida de la variable x contra el texto almacenado en el textbox2 del cual hicimos la conversión. Si son diferentes es que el usuario utilizó la coma si son iguales es que el usuario utilizó el punto y todo está bien.

En este ejemplo verán que coloque las 2 opciones que son manejar todo con la configuración regional ( manejado por textbox1 y button1) y el manejo con el punto como separador de decimales ( manejado por textbox2 y button2)

Espero les sirva

Salu2
SergioT

Variables persistentes en postbacks

2008-05-15T19:34:00.002-04:00

Un problema al que nos enfrentamos los que programamos en asp.net es el hecho de que las variables declaradas en un webform "mueren" después del primer postback, para salvar variables entre postbacks hay varias alternativas, el uso de Session, de Application o de ViewState, que se use depende de lo que se quiere hacer, de forma muy simple les detallo cuando usar cada una de las 3 opciones

Session: Se debe usar si se quieren guardar variables u objetos durante toda la sesión , se entiende por sesión una conexión al servidor web desde un explorador. Las variables que coloquen en Session vivirán mientras el explorer esté abierto e interactuado con el sitio. para guardar variables aqui solo hay que hacer lo siguiente:

dim xVar as integer=199
Session("miVariable")=xVar

y para recuperarla

dim z as integer =session("miVariable")
Application: Las variables almacenadas aquí vivirán mientras la aplicación viva en el servidor web, normalmente se colocan aquí variables y obetos que usarán todos los usuarios que usen la aplicación, eso si, si uno de ellos cambia el valor de la variable guardada en application, este cambio se reflejará para todos los usuarios conectados ( todas las sessiones). Para guardar variables u objetos se hace:

dim xVar as integer=199
Application("miVariable")=xVar

y para recuperarla

dim z as integer =Application("miVariable")
ViewState: Las variables u objetos almacenados aquí viven lo que vive un webform, ViewState es e mecanismo de ASP.Net para salvar valores de los controles web en los postbacks, en realidad es una variable oculta que va y viene del cliente con los valores de los controles del webForm. Lo que se hace normalmente es aprobechar este mecanismo para guardar variables propias del formulario que solo tienen importancia en el webForm, por tanto no es aconsejable guardarlas en Session o Application. Para usar ViewSate se hace:

dim xVar as integer=199
Me.ViewState("miVariable")=xVar

y para recuperarla

dim z as integer =Me.ViewState("miVariable")

En cualquiera de los 3 mecanismos hay que tener cuidado de no intentar recuperar una variable inexistente por que puede provocar un error en tiempo de ejecución ya que los 3 mecanismos devuelven nothing cuando no hallan la variable

Para la próxima entrega les mostraré como guardar objetos propios en estos mecanismos aplicando la serialización, algo muy básico y fácil de usar.

Salu2
Sergio

Visual SourceSafe administrando fuentes

2008-03-27T08:52:00.001-04:00

Hola

hace un algunos años que utilizo el VSS (Visual SourceSafe) para administrar programas fuente y no solo de VB si no también de otros lenguajes como Clipper y C, lo interesante de esta herramienta es que permite que varias personas trabajen sobre un proyecto de software de forma que cada uno tiene una copia local del software (o parte de el) de tal manera que puede compilar , cambiar, borrar o adicionar programas y recursos nuevos. Las copias locales son descartables ya que los fuentes se hallan almacenados en una base de datos administrada por el VSS A continuación les describo las funciones básicas y como empezar a utilizarlo suponiendo que lo que haremos será mantener los fuentes de un proyecto desde VS 2005.

Despues de instalar el VSS el cual se halla en el VS 2005 Team Edition, verán que se crearon 2 accesos directos al VSS uno es "Administración de Visual SourceSafe" y el otro es "Microsoft Visual SourceSafe". El primero permite crear bases de datos, usuarios, permisos y publicación mediante Web; el segundo sirve para trabajar con los archivos almacenados en los proyectos que están almacenados en la base de datos del VSS.
Lo primero que deben hacer es crear una base de datos nueva, darle una ubicación y nombre. Esto se hace desde el administrador del VSS por medio de un asistente muy claro y fácil. Luego se deben crear usuarios, de preferencia con el nombre de usuario del dominio, esto lo justificare cuando veamos el acceso vía Web ( en un post futuro)
Teniendo la BD ya creada entremos al VS y abramos la aplicación que deseamos almacenarla en el VSS. En el Explorador de soluciones hagan clic derecho sobre la solución y seleccionen la opción "Agregar proyecto al control de código fuente", se iniciara un asistente con los siguientes pasos:
1. Pedirá el usuario del VSS que creará e proyecto y la base de datos a la cual se quiere adicionar el proyecto y en la cual está registrado el usuario indicado.
2. Si el usuario y la BD existen aparecerá un cuadro pidiendo un nombre para la raiz del proyecto sugiriendo algo así "MiSolucion.root", yo prefiero borrar ese nombre y dejar el cuadro en blanco, otro campo es la ubicación y aparecerá con el valor "$" que indica la raíz de la BD, yo prefiero dejar esto sin cambiar, Terminada esta operación la solución quedará almacenada en la BD

Después de almacena r la solución en la BD el VSS tendrá el control de los fuentes y el proyecto aparecerá en el VS con una nueva característica al lado de cada archivo verán un candadito, el cual significa que el archivo está guardado en la BD y disponible para modificación, esto en la jerga del VSS se conoce como "archivo protegido".

Ahora al hacerle clic derecho a cualquier archivo dentro del explorador de soluciones aparecerá el siguiente menú

Las opciones del menú anterior sirven para lo siguiente:

"Desproteger para editar" habilita al archivo para que pueda ser editable y lo marca en la base de datos, de forma que ningún otro usuario pueda modificarlo mientras dura nuestra edición. Lo anterior es cierto si la base de datos fue creada con el modelo "Bloquear-Modificar-Desbloquear" el cual no permite concurrencia en las modificaciones, existe otro modelo que es el de "Copiar-Modificar-Combinar" el cual permite la concurrencia en las modificaciones y que eran el único modelo soportado por la versión previa del VSS. Al "desproteger" (check out) el archivo pasa de ser ReadOnly a ReadAndWrite

"Obtener última versión" Trae de la base de datos la ultima versión del archivo seleccionado.

"Comparar" compara la versión del archivo que se halla en nuestra máquina contra la almacenada en la BD y muestra las diferencias en caso que las haya.

"Ver historial" permite ver la historia de cambios del archivo, quien las hizo cuando y cuales fueron los cambios realizados, además permite comparar versiones o comparar una versión con la copia local.

Bueno esto como una introducción al VSS creo que les puede ser útil

Salu2
Sergio

VS2003 y Sql Server 2005

2008-03-07T16:51:00.002-04:00

Hola

Después de una buena vacación vuelvo a escribir aquí esta vez retrocediendo en el tiempo con el VS 2003, les cuento mi caso, tengo sistemas en VS2003 y VS2005 y en SQL 2005 y SQL 2000 y como solo tengo una máquina de desarrollo,así que en ella tengo el VS 2003, el VS2005 y la verdad no hay ningún problema, también tengo el SQL Server Express 2005 y en él he restaurado una base de datos del sql 2000, la verdad sin problema alguno he comenzado a trabajar con estas 3 herramientas, eso fue cierto hasta que intenté crear DataAdapters en clases componentes por medio del VS 2003, fue imposible, no se generaban los SPs la solución a este tema resultó bien fácil y se las comento , solo tienen que instalar el SP1 del VS 2003 y listo.

Acerca de utilizar el Sql2005 para manejar BD que fueron creadas con el sql2000 tengo un par de observaciones que las coloco aquí:

Restauren la Base de datos de un backup , sin crearla previamente el el sql2005, es decir vayqn directo a restaurar, no intenten crear primero y restaurar después.
Tengan en cuenta que no podrán ya restaurar un backup hecho en el sql2005 en el sql 2000, por lo menos no encontré como hacerlo.

Bueno esta fue una entrega corta y sin código pero creo que muy útil para los que ya no quieren utilizar el Sql2000 y dar el salto al sql2005, por lo menos en sus máquinas de desarrollo

Salu2
Sergio

Ocultando tabPages en un tabcontrol

2008-01-05T10:10:00.001-04:00

Hola

Comenzando el nuevo año con un poco de código sencillo pero útil ...

Como verán el control TabControl de los winForm contiene una colección de controles TabPage, el tema es que los controles tabpage , quien sabe por que, no tienen la propiedad Visible por tanto no se los puede ocultar de forma directa y hay que recurrir a un pequeño truco que se los cuento a continuación

Hagamos lo siguiente:

1. Coloquen un Tabcontrol con 2 tabpages en un winform

2.Coloquen un checkBox en el winform

3.hagan 2 clicks sobre el checkBox para ir al código y ahi propramemos el delegado para el evento chechkedChanged, para que quede así:

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

If Me.CheckBox1.Checked Then
Me.TabControl1.TabPages.Remove(Me.TabPage2)
Else
Me.TabControl1.TabPages.Add(Me.TabPage2)
End If

End Sub

4. Ejecutemos la aplicación y verán que al marcar el chekBox el segundo tab desaparece y al desmarcarlo vuelve a aparecer

bueno , eso es todo que tengan un feliz y prospero año nuevo

Salu2
Sergio

Imágenes en Crystal Reports

2007-12-06T09:01:00.002-04:00

Hola

Buscando un poco por Internet encontré un articulo interesante sobre como mostrar imágenes en Crystal reports, aquí dejo el link para que lo vean y pruebe

http://www.dotnetcr.com/Libreria.aspx?art=62&tag=Mostrar-Imagenes-en-Crystal-Reports-al-estilo-de-Galeria

salu2
Sergio

Cadenas de conexión

2007-11-27T15:48:00.001-04:00

Hola

leyendo por ahí he encontrado este sitio

http://www.connectionstrings.com/

visitenlo tiene cadenas de conexión para todo tipo de fuentes de datos

salu2
Sergio

Enviando Email por código

2007-11-23T19:19:00.002-04:00

Hola

Algo que es muy interesante y útil es adicionar a nuestras aplicaciones la capacidad de enviar emails, por eso les paso el código siguiente que utiliza una cuenta de Gmail para hacer los envíos de correos, la ventaja de usar gmail es que siempre esta disponible por que es gratis jejeje, el unico cuidado que hay que tener es indicar el puerto smtp correcto y enviar por SSL, bueno ahi va el código.

1. Incluyan lo siguiente en el archivo fuente

Imports System.Net.Mail

2. El código para el envío por gmail va así

'Primero configuremos los paramentros para enviar a gmail

Dim oSmtp As SmtpClient = New SmtpClient
oSmtp.Credentials = New System.Net.NetworkCredential("MiCuenta@gmail.com", "ElSuperPassw")
oSmtp.Port = 587 'Gmail necesita un puerto especifico
oSmtp.Host = "smtp.gmail.com"
oSmtp.EnableSsl = True 'Gmail necesita enviar por SSL

Dim oMail As MailMessage = New MailMessage
oMail.To.Add(destino1@gmail.com)
oMail.To.Add(destino2@gmail.com)
oMail.From = New MailAddress("MiCuenta@gmail.com", "", System.Text.Encoding.UTF8)
oMail.Subject = "Este mail trata de...."

oMail.SubjectEncoding = System.Text.Encoding.UTF8

'----creacion del mensaje

Dim s As New System.Text.StringBuilder

s.Append("bla bla bla bla" & vbCrLf)
s.Append("bla bla bla bla" & vbCrLf)
s.Append("bla bla bla bla" & vbCrLf)

oMail.Body = s.ToString

oMail.BodyEncoding = System.Text.Encoding.UTF8
oMail.IsBodyHtml = False

Try
oSmtp.Send(oMail)

Catch ex As System.Net.Mail.SmtpException
msgbox "Error " & ex.Message

End Try

Bueno eso es todo , espero les sirva,

Salu2
Sergio

El path de la aplicación

2007-11-11T19:10:00.001-04:00

Hola

He estado buscando la forma en la cual hallar la carpeta de la aplicación y al final encontré varias formas de hacerlo

Forma 1:
Utilizando Reflection , podremos hallar el path de la assembly que se está ejecutando, pero eso si tengan en cuenta que esto funciona en aplicaciones Windows, en aplicaciones web devuelve el path a un temporal, que no es el path de donde está la dll que se está ejecutando

sPath = Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly.Location)

por medio de la clase path extraemos solamente el directorio donde corre la asembly que ejecuta el comando

Forma 2:
sPath=System.AppDomain.CurrentDomain.RelativeSearchPath

Este método funciona bien en aplicaciones web que llaman a la assembly en la cual se ejecuta el comando indicado , pero en aplicaciones windows no funciona, por que ? .. aun no se ( tal vez luego lo averigue) devuelve un valor nulo

Forma3:
sPath=System.AppDomain.CurrentDomain.BaseDirectory
Esta forma tiene un comportamiento interesante, cuando se ejecuta en una aplicación Windows devuelve el directorio en el cual está la DLL que corre el método, pero cuando se lo prueba en una aplicación Web o en un WebService lo que devuelve es la raíz de la aplicación Web

Una aplicación para esto podria ser que quieran verificar la calve o licencia de su sistema y para ello deban leer un archivo que tiene la clave de la licencia y que está alojado en la carpeta de la DLL que corre el método de verificacion . Para eso creeen un método en esa DLL mas o menos así:

Public

Shared Function Licenciaválida() As Boolean

Dim sPath As String

sPath = Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly.Location)

sPath & = "\MiFile.txt"

If Not File.Exists(sPath) Then
sPath = System.AppDomain.CurrentDomain.RelativeSearchPath
sPath & = "\MiFile.txt"

    If Not File.Exists(sPath) Then
        sPath = System.AppDomain.CurrentDomain.BaseDirectory
        sPath & = "\MiFile.txt"

End If

f =

New StreamReader(sPath)
Dim s_CLave As String = f.ReadLine
f.Close()
f = Nothing

return VerificarClave( s_Clave)

End Function

Eso es todo por hoy

Salu2
Sergio

Como abrir archivos desde la aplicacion

2007-11-08T12:11:00.002-04:00

Hola

Algo interesante en windows es el hecho de hacer 2 clics con el mouse sobre un archivo y que este se abra con el programa que corresponde, bien la verdad hacerlo desde nuestras aplicaciones windows es bastante facil, en realidad se resume a una sola linea de código que es la siguiente:

Shell("rundll32.exe url.dll,FileProtocolHandler " & ("c:\windows\system32\calc.exe"))

Shell("rundll32.exe url.dll,FileProtocolHandler " & ("c:\Milibro.xls"))

En los 2 ejemplos anteriores tenemos 2 casos el primero que abre a la calculadora de windows y el segundo abre el excel y carga en él al libro de nombre MiLibro.xls

Ese código solo lo tienen que colocar en algún delegado y listo, como puede ser el manejador del evento click de un boton como porejemplo.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Shell(

"rundll32.exe url.dll,FileProtocolHandler " & ("c:\windows\system32\calc.exe"))

End Sub

Salu2
Sergio

10 puntos que saber sobre VS2008 y el Framework 3.5

2007-11-07T12:05:00.001-04:00

Daniel Moth, desarrollador de Microsoft, publicó un post llamado 10 puntos para conocer sobre el Visual Studio 2008 y .NET framework 3.5 aqui lo traduzco y adiciono un par de conceptos referidos en la pagina de Daniel Moth.

1. Su Lanzamiento
VS2008 y .NET framework 3.5 serán lanzados oficialmente juntos el próximo febrero. Sin embargo, estarán disponibles para desarrolladores a finales de noviembre del 2007. Los mismos tipos de editores y versiones es decir Expreess, Standar y Professional solo que en esta la versión Profesional incluirá un módulo de pruebas, estarán disponibles en VS2008 mas una nueva versión llamada VS2008 Shell la cual traerá nuevas ventajas ya que está diseñado exclusivamente para Vista, parece que ahora el XP comenzó su camino al retiro
2. Compatibilidad con versiones anteriores
.NET framework 3.5 continúa la línea iniciada por el framework 3.0 en lo que se refiere a mantener las versiones es decir que no se modifican las librerías desde el framework 2.0 y lo único que se hace es añadir nuevos ensamblados propios de Framework 3.5 a las librerías de las versiones 2.0 y 3.0 del framework, las aplicaciones actuales no se verán afectadas. Eso sí, se necesitarán los Service Packs 1 de ambas plataformas.

3. Generación multiplataforma ( mas bien multi framework)
Visual Studio 2008 incluye la capacidad de crear proyectos para múltiples plataformas .NET, es decir, la 2.0, 3.0 y 3.5, desde el mismo entorno. Por tanto, no será necesario tener VS2005 instalado para generar ensamblados para .NET 2.0. Con esto podemos decir adios al VS2005 , solo que no podremos hacer lo mismo con el vs2003 o 2002 (si que aun hay)

4. Muchas novedades en C# 3.0 y VB9
Propiedades automáticas, delegados "relajados", inicializadores de objetos, inferencia de tipos, tipos anónimos, métodos de extensión, funciones lambda y métodos parciales, entre otros.
Lo mas interesante es que podremos usar las nuevas características en la generacion de aplicaciones de la versión 2.0

5. LINQ
El nuevo terremoto en manejo de datos una de las grandes revoluciones que nos trae MS con el VS2008. Language INtegrated Query es una nueva forma de acceder a los datos totalmente integrada en el lengua .net ya sea vb,c#... etc Lo interesante de esto es que es independiente de la fuente de donde provengan los datos, el punto clave es que creo describe mejor la importancia de LINQ (Un video de LINQ )es que ahora podemos mezclar diferentes orígenes de datos en una consulta, orígenes tan diversos como colecciones, XML, BD. Según Daniel es lo mas importante de la nueva versión.

6. ASP.NET con AJAX integrado!

Visual Studio, así como el nuevo framework, ya incluirán ASP.NET AJAX, así como 3 nuevos controles que son ListView, DataPager y LinqDataSource. Además, el IDE ha sido muy mejorado e incluye soporte para intellisense y depuración de Javascripts!! (esto es una gran ventaja), también ahora incorporaron el anidamiento de masterpages.

7. Para proyectos Windows
VS2008 incluirá nuevas plantillas de proyectos, así como un diseñador para WPF integrado con soporte para la comunicación entre WPF y Windows Forms. También se ha añadido el soporte para Firefox de la tecnología ClickOnce y XBAP (XAML Browser Applications).

8. Para los que desarrollan sobre office
Se ofrece soporte total para las personalizaciones (customisations) de Office 2007, así como para las plantillas de Office 2003.

9. Para desarrollador de servidor
Se han incluido nuevas plantillas para WCF y WF para un mejor trabajo en conjunto, ahora WCF soporta el modelo de programación HTTP SOAP-less, serializacion JSON, una colección de links sobre estos temas aqui

10. Para el desarrollador en dispositivos móviles
Hay toneladas de nuevas características, como el soporte para las versiones compactas de LINQ y WPF, o, a nivel de IDE, Unit Testing for Devices, entre muchas nuevas ideas del equipo de desarrollo .

11. Código del framework

Ahora vía VS2008 podremos depurar métodos del framework!!! Esto por que MS se le ocurrió abrir parte del código fuente del framework, aquí un link del tema

Salu2
Sergio

Columnas invisibles en un gridview

2007-11-03T00:03:00.001-04:00

El nuevo gridview tiene un par de cosas que lo hacen un poco mas complicado de manejar frente al datagrid, pero también tiene un mejor desempeño. una de las cosas que menos me gusta es el hecho de que ahora cuando se marca a una columna como visible=false, resulta que esa columna no es accesible desde RowCommand, lo cual obliga a hacer artilugios para tener acceso a los datos que están como invisibles. Les muestro ahora mi "artilugio"

Hagamos lo siguiente, creen un gridview enlazado a una tabla o a algún origen de datos, luego coloquen una de las columnas en visible=false, adicionen un campo plantilla y en el coloquen un "Button" de nombre "btn" y un "label "de nombre "lbl". Esto para lograr que cuando el usuario presione el botón de la columna plantilla se realice alguna acción en función a la columna que está como invisible.

Una vez hecho lo anterior habremos preparado el terreno, ahora programaremos el procedimiento que nos permitirá tener acceso a un dato de una columna invisible

Ahora programaremos el delegado "GridView1_RowDataBound"

Protected Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GridView1.RowDataBound

If e.Row.RowType = DataControlRowType.DataRow Then
Dim btn As Button
Dim lbl As Label

     btn = e.Row.FindControl("btn")
     If Not btn Is Nothing Then
           btn.CommandArgument = e.Row.RowIndex
           btn.CommandName = "EDITAR"
           lbl = e.Row.FindControl("lbl")
           lbl.Text = e.Row.DataItem("codper")
     End If
End If
End Sub

Explicando un poco: Con el primer IF seleccionamos las filas de datos, luego declaramos 2 variables una de tipo Botón y la otra de tipo label, estas servirán para hacer referencia al botón y al label que colocamos en la comuna plantilla. El siguiente paso es "ubicar" al botón en la fila y obtener su referencia en la variable "btn", hasta ahí todo fácil, ahora viene lo rayado del asunto.

Tenemos que guardar el numero de fila en la propiedad commandArgument del botón para posteriormente saber "el botón de que fila fue presionado" esto en el evenro RowCommand que lo veremos luego. Luego asignamos "EDITAR" como nombre de comando del botón, esto también servirá en el evento rowCommand, para identificar el tipo de acción que deberemos hacer cuando el botón sea presionado.

Finalmente ubicamos el label que colocamos en la columna plantilla y en la propiedad text guardamos el campo de la columna invisible obteniéndolo con e.Row.DataItem("codper") en el caso del ejemplo "codper" es el nombre del campo de una tabla enlazada al grid, la propiedad DataItem es la colección que contiene los datos enlazados de la fila asociada.

Finalmente debemos programar el evento que usará la información de la columna invisible, ahí va:

Protected Sub GridView2_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles GridView2.RowCommand

If e.CommandName = "EDITAR" Then
Dim gvr As GridViewRow
Dim lbl As Label

'e.CommandArgument tiene el numero de fila seleccionada

'Obtenemos la fila y buscamos en ella el label "lbl"
gvr = Me.GridView2.Rows(e.CommandArgument)
lbl = gvr.FindControl("lbl")

   If Not lbl Is Nothing Then
       Dim nElDatoInvisible As Integer
       'Obtenemos el dato "invisible" para usarlo luego
       nElDatoInvisible = lbl.Text
      ' desde aqui ya se puede usar el dato de la columna invisible
   End If
End If
End Sub

Como se vé en el código anterior la obtención del valor "invisible" consiste en basicamente: identidicar la accion por medio de e.CommandName, ubicar la fila del grid en la cual se produjo la presión del botón por medio de e.CommandArrgument y finalmente buscar el label "lbl" que contiene el dato de la columna invisible para la fila seleccionada

Espero les sirva

Salu2
SergioT

Table Adapters y el futuro

2007-10-25T11:54:00.000-04:00

hola

la evolución de la combinación de datasets tipados con dataadapters ha dado surgimiento a los nuevos tableadapters que ahora llevan un nivel mayor de abstracción que los mencionados, estas clases generadas por el VS2005 son muy faciles de usar y además proporcionan métodos con los cuales es posible enlazar los datos muy facilmente e incluso manejar las operaciones de altas , bajas y modificaciones de una manera transparente.

Yo cambie mi modelo de programación hacia ellos y he tenido muy buenos resultados ya que se me ha simplificado el código y he podido separar las capas de mi aplicación de manera muy fácil y clara, así que si aun no los conocen les dejo un link que los presenta con mucho detalle

http://www.microsoft.com/spanish/msdn/articulos/archivo/141105/voices/tableadapters.mspx

habrá que ver como se comportan y como sobreviven ante la próxima generación de acceso a datos llamada LinQ que se viene con el VS2008 y que ya está disponible, bueno MS como siempre moviendonos el piso con nuevas innovaciones que la verdad hacen que sea muy difícil seguirles el paso en profundidad y al nivel de detalle que uno quisiera, pero bueno... ahí vamos programando y aprendiendo lo que venga, les dejo unos links de este tema

http://www.microsoft.com/spanish/msdn/articulos/archivo/041206/voices/LINQ_Project.mspx

http://msdn.microsoft.com/msdnmag/issues/07/06/CSharp30/Default.aspx?loc=es

otra novedad que se viene es El Marco de Entidades de ADO.NET, lo cual permitirá aplicar mayor grado de abstracción en nuestros desarrollos en relación al modelo del problema y la representación y manipulación del almacenamiento de los datos, aquí les dejo un link interesante al respecto

http://www.microsoft.com/spanish/msdn/articulos/archivo/041206/voices/adonetentity.mspx

salu2
Sergio

Formato de fechas en un GridView

2007-10-24T16:15:00.000-04:00

Hola

Para lograr un formato de fecha corta en un gridview, les voy a dar 2 recetas ya verán ustedes cual prefieren utilizar

La primera
En relación con el post anterior de los tildes y "eñes" había comentado que la forma de hacer que no aparezcan símbolos raros era deshabilitar el htmlencode de la columna del grid que muestra el símbolo, pues bien ahora me toca dar la misma receta pero para otro tema que la verdad me volvio loco por unas buenas horas la primera vez que me encontré con él, me refiero a dar l formato de fecha en dd/mm/yyyy a una columna enlazada a datos de un grid.

En resumen, lo que hay que hacer para que una columna enlazada de un grid a un campo fecha la muestre en formato de fecha corta, colocando a HtmlEncode en false es lo siguiente:

Si tienen VS2005

Entrar a tareas de GridView
Editar columnas
Seleccionar el campo enlazado a la fecha
asignar False a la propidad HtmlEncode
asignar {0:d} a la propiedad DataFormatString
Eso es todo

Si programan en el bloc de notas u otro editor significa que son lo suficientemente capos para no necesitar esta ayuda jejeje, pero en caso de que quisiesen escribir el código a mano definan la columna del grid como sigue:

La Segunda Forma

La otra forma es convirtiendo la columna enlazada en una columna template o plantilla, para ello hagan lo siguiente

Entrar a tareas de GridView
Editar columnas
Seleccionar el campo enlazado a la fecha
Seleccionar el link button Convertir esta columna en TemplateField
hacer clic derecho en el grid , editar plantillas y seleccionar la columna plantilla que acabamos de crear
Ahi veremos que hay un "label" , entonces entramos a las tareas de ese label, donde en realidad solo hay "Editar DataBinding", que es lo que queremos hacer
luego en "Personalizar enlace" hay que colocar lo siguiente:

Bind("ElCampoFecha","{0:d}")
Aceptar hasta cerrar y eso es todo

En el caso de hacerlo por codigo seria:

Bueno eso es todo espero les sirva

salu2
Sergio

Tildes y "eñes" se convierten simbolos raros

2007-10-18T11:49:00.000-04:00

Hola

Un "problema" interesante es el del tratamiento de tildes y eñes cuando estos vienen de un campo de un grid por ejemplo o de cualquier control que tenga habilitado el htmlencode. Si no les pasó pueden generar el error haciendo lo siguiente

Coloquen un textbox en la pantalla y llamenlo txtFilaDelGrid
Coloquen un segundo textbox y llamenlo txtCelda
Coloquen un botón
Creen un GridView que toma datos de una tabla por ejemplo, asegúrense que los datos tienen "ñ" y tildes para que vean el problema
Programemos el evento click de botón agragandole lo siguiente

me.txtCelda.text=me.GidView1.rows(cint(me.txtFilaGrid.text)).cells(3).text

Ojo fijense que coloqué 3 en la celda, remplacen eso por la celda en la que tienen las "ñ" o tildes
Corran la aplicacion ,luego en el textbox txtFilaGrid escriban el numero de linea que tiene texto con "ñ" o tildes, luego presionen el botón y verán lo que sale en él

Para corregir esto la solución es demaciado fácil pero la verdad que no muy "visible", bueno lo único que hay que hacer es colocar la propiedad HTMLEnCode en falso para la columna del grid en la cual están los datos "problemáticos" Lo que ocurre es que es cuando esta propiedad está habilitada el contenido del control se toma como si fuese html y no texto plano lo cual deriva en la traducción de las "ñ" y tildes.

Salu2
Sergio

Reportes con crystal reports

2007-10-15T11:56:00.000-04:00

Hola

A veces lo que cuesta es comenzar así que aquí les dejo el procedimiento para mostrar un reporte creado con crystal reports desde un winform, la intención es simplemente indicar como se muestra un reporte en un winform, no enseñar Crystal. Bueno ahí va el procedimiento

Definir un table adapter que recupere la información hacia un dataset tipado.
Adicionen a su proyecto un nuevo elemento de tipo Crystal Report y sigan el asistente de configuración:
2.1 Seleccionar el tipo de reporte Estándar y presionar siguiente
2.2 Crear una nueva conexión del reporte con el esquema del origen de datos para ello seleccionen las siguientes opciones ADO.Net/ buscar el archivo XSD del dataset que utilizaremos como origen de datos
2.3 Luego de elegir el DS hay que seleccionar la tabla, campos, agrupaciones, etc. Eso se logra siguiendo el asistente
Adicionen un nuevo formulario WinForm y coloquen en ~el un CrystalReportViewer
Finalmente en el evento load del nuevo formulario ingresar el siguiente código

Dim cr As New crPrueba
Dim da As New DS_pruebaTableAdapters.ProductsTableAdapter
Dim dt As New DataTable

dt.Merge(da.GetData)
cr.SetDataSource(dt)

Me.CrystalReportViewer1.ReportSource = cr

Explicando un poco el código vemos que hay que instanciar un objeto del tipo del reporte que se quiere mostrar, en nuestro ejemplo crPrueba es instanciado en cr. Luego creamos una instancia de un TableAdapter que será el que obtenga los datos y finalmente un objeto DataTable que será el que reciba los datos del tableadapter

lo primero que hay que hacer es llenar la tabla con los datos , con el metodo merge, luego esa tabla llena se la pasamos al reporte y finalmente el reporte ya con datos se lo pasamos al visor.
Como ultimo paso estaría el llamar al nuevo formulario desde un menú o botón en otro formulario

Lo interesante del código presentado es que es el mismo que se usaría en una aplicación web.

Espero sirva de guia para quien nunca hizo nada con crystal Reports

Salu2
Sergio

Traductor de código C# a VB.Net

2007-10-02T03:04:00.000-04:00

Hola

Encontré una pagina en la que hay un interesante traductor de código de C# a VB.Net y viceversa, estaba bastante bueno ya lo utilicé un par de veces y funcionó muy bien, En muchas ocasiones he encontrado código interesante en la web pero en C# y con esta herramienta lo paso a VB muy facilmente

http://www.carlosag.net/Tools/CodeTranslator/Default.aspx

Salu2
Sergio

Compatibilidad Win2003 Sp2 y Crystal Reports for .net 1.1

2007-09-19T16:41:00.001-04:00

Hola

Si instalan el sp2 en un windows server 2003 y tienen una aplicación con framework 1.1 que utiliza el crystal reports como motor de reportes, preparense para dejar de exportar reportes desde crystal en formato excel, la verdad que me costó encontrar pero habia existido una solución que esta en la siguiente dirección

ftp://ftp1.businessobjects.com/outgoing/CHF/crnet11win_en.zip

Lo que yo hice fue descargar ese file, descomprimirlo ejecutar el archivo de instalación que se genera e instalar solamnte a:

ExportModeller.dll

Aparentemente es la que funcionaba mal y es la DLL que dicen ellos que hay que cambiar, con eso se arregló el problema

salu2
Sergio

Comparacion de versiones de SQL Server 2005

2007-09-12T10:11:00.000-04:00

hola

en el link que paso a continuacion hay una comparacion detallada de las diferentes versiones de Sql Server 2005 , esta bonito ya que resume todo el tema

http://www.microsoft.com/spain/sql/productinfo/features/compare-features.mspx

salu2
Sergio

depuración de scripts desde VS

2007-08-09T19:15:00.001-04:00

Hola

Muchas veces tenemos scripts complejos que desamos depurarlos como si se tratase de código de servidor, yo tenia la "curiosidad" de que a veces podia hacerlo y otras no y la verdad parecia cosa de brujas :) pero no había sido así la verdad es que era tan facil como hacer la siguiente receta:

Ir al escritorio, botón derecho sobre el icono de Internet Explorer, seleccionar Propiedades (esen el IE ir a Herramientas -> Opciones de Internet).
En la pestaña Opciones Avanzadas. bajo la sección "Examinar" hay que desseleccionar dos lineas que son: Deshabilitar la depuración de secuencias de comandos (Internet Explorer)" y "Deshabilitar la depuración de secuencias de comandos (otros)".
Luego aplicar y aceptar hasta salir y eso es todo!!!
corrert la aplñicacion desde el VS con F5 y colocar los puntos de ruptura en el script que deseamos depurar

Salu2
SergioT

primeros pasos en ajax

2007-08-02T11:10:00.000-04:00

Algún rato habia que comenzar a ver AJAX (Asynchronous Javascript and XML), hay que aclarar que ajax no es un tecnologia por si misma sino un conjunto de tecnologias ya conocidas que unificadas forman Ajax, su proposito principal es crear aplicaciones mas amigables y rapidas via web, Ajax es una evolución de dhtml , utiliza xhtml, javascript, css, DOM (document object model) para visualizar la información en el explorador, tambien se apoya en XML y XSTL para manipular la información mostrada, utiliza al objeto XMLHttpRequest (inventado por Microsoft desde el IE 5) junto a javascript para actualizar la pantalla sin hacer los feos postbacks a los que estamos acostumbrados en las aplicaciones web.

Bueno como yo utilizo VS2005 tengo un primer ejercicio tremendamente sencillo para que puedan ver ajax en funcionamiento

Crear un nuevo proyecto que sea de tipo AJAX Enabled web application
En la pagina default coloquen de la barra de herramientas un scriptManager , solo en el caso que no estuviese ya en la pagina, por que solo puede haber uno por pagina
coloquen un DropDownList en la pagina y llenen los datos de la coleccion items con algo que deseen y activen la propiedad autopostback a true
Coloquen un UpdatePanel en la pagina y dentro de el coloquen un label
Hagan 2 clicks en el dropdownlist y coloquen
label1.text = dropdownlist1.selectedvalue
Vuelvan a la pantalla de diseno y seleccionen el UpdatePanel, en la ventana de propiedades ingresen a la coleccion de triggers y añadan un nuevo triger , seleccionen como ControlId el dropdownlist1 y como EventName a SelectedIndexChanged

Eso es todo ahora ejecuten la aplicacion y veran que al cambiar el elemento seleccionado en el dropdownlist el label toma el value del elemento seleccionado si que se vea el refresh de la pantalla, es como si no se produjera el postback!!!

Antes de poder hacer esto deberan instalar el sp1 del VS 2005 y ademas Descargar Ajax e instalarlo

Algunos enlaces que vale la pena ver sobre ajax

Ajax: Un nuevo acercamiento a las aplicaciones web
El sitio oficial de ajax de Microsoft
En wikipedia
Curso de Ajax

Habilitar y deshabilitar subcontroles

2007-06-27T12:11:00.000-04:00

Hola

Cuando tenemos forms o contenedores que tienen varios controles y queremos deshabilitar o habilitar según sea la funcíón de la pantalla debemos hacer una sub que coloque en true o false la propiedad enabled de controles como textbox, dropdowlist y otros, para evitar la fatiga hice la siguiente función la cual recibe como parametro un control y habilita o deshabilita a sus sub controles de una sola vez, ahi va

Public Sub HabDesHabCtrls(ByVal oControl As Control, ByVal lHabilita As Boolean)
Dim oCtrl As Control
For Each oCtrl In oControl.Controls
If TypeOf oCtrl Is TextBox Then
CType(oCtrl, TextBox).Enabled = lHabilita
ElseIf TypeOf oCtrl Is DropDownList Then
CType(oCtrl, DropDownList).Enabled = lHabilita
ElseIf TypeOf oCtrl Is CheckBox Then
CType(oCtrl, CheckBox).Enabled = lHabilita
ElseIf TypeOf oCtrl Is ListBox Then
CType(oCtrl, ListBox).Enabled = lHabilita
ElseIf oCtrl.Controls.Count > 0 Then
HabDesHabCtrls(oCtrl, lHabilita)
End If
Next
End Sub

La idea mas interesante aplicada en esta función es la recursividad, como pueden ver esta función trabaja apagando o encendiendo a todos los controles del contenedor y de los contenedores que se hallé.

La recursividad es sumamente útil en todo tipo de situaciones en las cuales se forme una jerarquía, en este caso hay una jerarquía de controles y subcontroles, también es sumamente útil para cargar treeviews desde datatables o colecciones que tienen jerarquías, en otra ocasión haré un ejemplo aplicado a treviews

salu2
Sergio

Enlazar una colección genérica a un GridView

2007-06-13T12:45:00.000-04:00

Que ocurre si queremos mostrar datos en un grid de una clase que devuelve una coleccion y no un dataset? como lo enlazamos? bien este es un pequeño ejemplo de como se debe hacer, sin mas charla vamos al código

Haremos lo siguiente

Se debe crear un sitio web nuevo desde el vs.net
Definiremos la clase con las propiedades necesarias e incluiremos un método que devuelve una colección de objetos del tipo que necesitamos , para enlazar al gridview

Adicionaremos las ¨condiciones¨ para que el objeto ObjetdataSource pueda ¨navegar¨ por la colección

Crearemos la pagina web y adicionaremos un gridview y lo enlazaremos con nuestra colección

Comencemos

Creen un sitio web

Tendremos una clase de Afiliado que tendrá simplemente los datos de un afiliado que serán el nombre el telefono y la ciudad en la cual vive. a continuación listo la clase completa para explicar algunos detalles un poco mas adelante

Imports Microsoft.VisualBasic
Imports System.Collections.Generic

[componentmodel.dataobject(true)] _
Public Class clsAfiliado
Public sNombre As String
Public sCiudad As String
Public sTelefono As String

Sub New(ByVal s_Nombre As String, ByVal s_Ciudad As String, ByVal s_Telefono As String)
sNombre = s_Nombre
sCiudad = s_Ciudad
sTelefono = s_Telefono
End Sub

[componentmodel.dataobjectfield(true)] _
Public Property Nombre() As String
Get
Return sNombre
End Get
Set(ByVal value As String)
sNombre = value
End Set
End Property

[componentmodel.dataobjectfield(true) ] _
Public Property Ciudad() As String
Get
Return sCiudad
End Get
Set(ByVal value As String)
sCiudad = value
End Set
End Property

[componentmodel.dataobjectfield(true)] _
Public Property Telefono()
Get
Return sTelefono
End Get
Set(ByVal value)
sTelefono = value
End Set
End Property

[ComponentModel.DataObjectMethod(ComponentModel.DataObjectMethodType.Select, True)] _
Public Shared Function GetclsAfiliados() As List(Of clsAfiliado)
Dim L As New List(Of clsAfiliado)
L.Add(New clsAfiliado("Sergio ", "Santa Cruz", "3454344"))
L.Add(New clsAfiliado("Rodrigo ", "Santa Cruz", "5434562"))
L.Add(New clsAfiliado("Claudia ", "Foz de Iguazu", "423412343"))
L.Add(New clsAfiliado("Patricio ", "Santiago", "54345"))
L.Add(New clsAfiliado("Fernando ", "Mexico D.F.", "5432454"))
L.Add(New clsAfiliado("Roger ", "Santiago", "3452453"))
L.Add(New clsAfiliado("Alberto ", "Cochabamba", "423412343"))
L.Add(New clsAfiliado("Diego ", "Cochabamba", "423412343"))
Return L
End Function

End Class

Como pueden notar esta clase tiene 3 propiedades un constructor y un método que devuelve una coleccion de objetos del tipo clsAfiliado, este será el metodo que utilicemos en el objectDataSource mas adelante a la hora de crear el enlace
El codigo anterior existen algunos atributos (que los coloqué en negrita) tanto delante del nombre de la clase como de las propiedades y del método que devuelve la coleccion , estos son los atributos con los cuales trabaja ObjectDataSource y que le permiten reconocer a las propiedades mediante la reflexion y lograr la integración con los aistentes del visual studio. Un detalle , por culpa del editor tuve que quitar los simbolos "<" y ">" los cuales deben encerrar a los atributos en lugar de los corchetes que puse.
Ahora en la pagina aspx lancemos un GridView y mediante el menu contextual de "Tareas del grid" y en "Elegir origen de datos" seleccionen "Nuevo Origen de datos" como en la figura siguiente

Luego aparecerá el asistente, ahi seleccionen a "Objeto" y seleccionen siguiente para continuar. A continuacion seleccionen la clase en el combo como se ve a continuación

Oprimiendo siguiente llegamos a la última pantalla de configuracion del origen de datos en la cual seleccionaremos el metodo que necesitamos y oprimiremos Finalizar

El resultado que deben ver en la pantalla aspx al terminar el asistente es el grid ya configurado con las columnas correspondiendo a las propiedades de la clase clsAfiliado , como muestro a continuacion:

Eso es todo si oprimen el f5 veran como se llena el grid con los datos de la coleccion

En conclusión podemos ver que se puede enlazar la coleccion directamente al gridview, en este sencillo ejemplo solo mostré como ver una coleccion en un grid pero es posible tambien definir los métodos de insercion, update, delete y lograr una operacion completa sobre los datos mostrados en el grid, eso si esto implica ya el acceso a datos lo que no toqué en este articulo ya que el objetivo era solamente mostrar la colección de objetos en el grid

Salu2
Sergio

Combobox en formularios windows

2007-06-08T12:27:00.000-04:00

Hola

Normalmente utilicé controles enlazados a datatables por tanto cargar un combo me parecía bien fácil y sin mucho secreto, luego me dedique a desarrollar con asp.net y ahí llenar un dropdownlist es facilisimo, Resulta que para llenar un combo a mano en un formulario de windows la cuestion habia sido un poco mas "vueltera", si lo que se quiere es tener el típico par de Código y descripción donde la descripción se muestra en el combo pero no el código , el cual se usa luego para alguna otra cosa. Es trabajoso pero no del otro mundo ahi va:

Vamos a hacer un ejemplito en el que llenaremos un combo con nombres de personas y la banda a la que pertenecen de forma que cuando cambiemos en el combo aparezca en unos labels el nombre seleccionado en combo y la banda en la cual toca.

Les resumo lo que hay que hacer para luego ver todo paso a paso

1.Abrir un proyecto windows y adicionar un formulario con un combo y 2 labels
2.Definir una clase que contenga Cod, Nombre,Banda; la llamaremos Persona
3. llenar una colección con objetos del tipo de la clase Persona
4.Enlazar el combo con la colección de Personas
5.Programar el evento SelectedIndexChanged del combo

1. abran un nuevo form de windows coloquen un combo y 2 labels
2.Una clase podría ser asi:

Private Class Persona
Public Cod As Integer
Public Nombre As String
Public Banda As String

Sub New(ByVal n_Cod As Integer, ByVal s_Nombre As String, ByVal s_Banda As String)
Cod = n_Cod
Nombre = s_Nombre
Banda = s_Banda
End Sub

End Class

Si, si, ya se que no es una clase muy formal por que en cualquier clase que se precie de seria las variables deberían ser private o protected y publicarse a travez de propertys, pero como el caso aquí es mostrar como llenar el combo, no seré tan formal. Bueno volviendo al tema esta clase la pueden crear en el mismo formulario

3. Ahora llenemos una colección, para eso programaremos el método Form_load y utilizaré colecciones genéricas ( que son una maravillita ), no se olviden incluir :

Imports System.Collections.Generic

En el formulario. Ahora programaemos el evento Load así:

Dim gLista As New List(Of Persona)

gLista.Add(New Persona(1, "David Gilmour", "Pink Floyd"))
gLista.Add(New Persona(2, "Nick Mason", "Pink Floyd"))
gLista.Add(New Persona(3, "Dave Mustain", "Megadeth"))
gLista.Add(New Persona(4, "Kirk Hammet", "Metallica"))
gLista.Add(New Persona(4, "Bruce Dickinson", "Iron Maiden"))

Me.ComboBox1.DataSource = gLista
Me.ComboBox1.DisplayMember = "Nombre"

4.Ahora lo último programar el evento SelectedIndexChanged, ahi va:

Dim oPer As Persona
oPer = Me.ComboBox1.SelectedItem
Me.Label1.Text = oPer.Nombre
Me.Label2.Text = oPer.Banda

Bien eso es todo, tampoco es dificil cierto?, Una gran ventaja de esta forma de utilizar los combos es que no solo se asocia el codigo si no lo que uno quiera, es muy flexible y poderoso

Salu2
SergioT

Control de acceso a paginas en sitio autentificado por formularios

2007-05-31T16:44:00.000-04:00

Hola

Me topé con la siguiente situación, el sitio usa autenticación por formulario, pero resulta que los usuarios pueden o no tener acceso a ciertas paginas las cuales están en un menu del sitio que se configura segun el usuario, es decir que el usuario despues de ingresar su login y su password ve un menú con lo que él está autorizado a utilzar y nada mas.

Si tengo un usuario "avivado" que se da cuenta que colocando la direccion de una pagina en la barra de direcciones puede entrar a cualquier pagina del sitio aunque no esté en su menú como me protejo???

Bueno he resuelto esto de forma muy sencilla, puede que hayan mejore formas de hacerlo pero la que les cuento a continuación es facilinga, ahi va:

Tengo dos formas de hacer casi lo mismo y son:

Crearemos una subrutina que será llamada desde todas las paginas que quiera proteger contra usuarios avivados, en el evento init o en el load
Colocar el código de protección en el global.asax para proteger a absolutamente todas las paginas del sitio

Primera Forma

Cuando el usuario es validado y está a por ser direccionado a la pagina que solicitó es necesario cargar entre sus variables de session una variable con todas las paginas a las cuales tiene acceso, esto se puede hacer de la siguiente manera:

Dim oUsuario As New clsUsuario
If oUsuario.Login(txtNombre.Text, txtPassword.Text) Then

FormsAuthentication.SetAuthCookie(oUsuario.Coduser, False)

Session("Paginas") = oUsuario.DevListaDePaginas 'Lista de paginas autorizadas

Page.Response.Redirect(Request.ApplicationPath + _
"/paginainicial.aspx?id=" & oUsuario.Coduser, True)
Else
lblError.Text = oUsuario.Errores
End if

Este seria el codigo para el boton de login, como verán asumo que hay una clase usuario que tiene un método Login que devuelve true o false segun sea el caso.
Aqui lo importante es el metodo que lo presento en negrilla, DevListaDePaginas , este devolverá una cadena con las paginas a las cuales hay acceso, les coloco el código a continuación... aunque es muy facil haganlo uds no mas.
El siguiente paso es crear una subrutina que busque una pagina entre las paginas autorizadas, Esta rutina se la puede colocar en un modulo que tenga funciones de proposito general, y que esté en el proyecto web o en cualquier clase que se desee, el código puede ser así:

Public Sub AccesoAPagina()
Dim sPaginasAut As String = HttpContext.Current.Session("Paginas")
Dim sPaginaActual As String = HttpContext.Current.Request.Url.ToString()
Dim i As Int16 = sPaginaActual.LastIndexOf("/")

If i > -1 Then
sPaginaActual = sPaginaActual.Substring(i)
End If
If sPaginasAut.IndexOf(sPaginaActual) = -1 Then
HttpContext.Current.Response.Redirect(HttpContext.Current.Request.ApplicationPath & _
"/wfAccesoNegado.aspx")
End If
End Sub

Esta Sub se la debe llamar de todas las paginas para las cuales queremos controlar acceso en el evento onLoad y listo eso es todo.
El secreto aqui es utilizar a HttpContext.Current para obtener la session actual y recuperar la variable que tiene la cadena con las paginas autorizadas, mas facil que pescar en tina no ?

Segunda forma

En realidad la segunda forma es practicamente identica a la primera, la diferencia está en el punto de control en este caso utilizaremos el global.asax, para controlar a absolutamente todas las paginas del sitio , sin correr el riesgo de olvidarnos llamar a la subrutina de control de acceso en una de ellas, bueno ahi va.

Abran el global.asax.vb y llenemos el delegado Application_BeginRequest así:

Sub Application_BeginRequest(ByVal sender As Object, ByVal e As EventArgs)

Dim sPaginaActual As String = HttpContext.Current.Request.Url.ToString()
Dim i As Int16 = sPaginaActual.LastIndexOf("/")

If i > -1 Then
sPaginaActual = sPaginaActual.Substring(i+1)
End If

if sPaginaActual<>"fLogin.aspx" andalso sPaginaActual.Substring(0,1)="f" then

Dim sPaginasAut As String = HttpContext.Current.Session("Paginas")
If sPaginasAut.IndexOf(sPaginaActual) = -1 Then
HttpContext.Current.Response.Redirect(HttpContext.Current.Request.ApplicationPath _
& "/wfAccesoNegado.aspx")
End If
End If
End Sub

Como pueden ver es el mismo codigo de control que el de la funcion, solo que aumenté un IF para no controlar la pagina Login y para asegurarme de que entre solo si es un pagina del sitio, por eso asumo que las paginas del sitio tienen el prefijo "f"

Bueno eso es todo espero les sirva

Salu2
SergioT

Sobrecarga de operadores

2007-05-25T11:10:00.000-04:00

Para los que hemos utilizado c++ en alguna ocasión nos es familiar el tema de la sobrecarga de operadores, lo cual en realidad simplifica la lógica de la aplicacion de operaciones sobre objetos para los programadores que utilicen las clases que tienen implementada la sobrecarga.

Resumiendo la sobrecarga consiste en darle un significado particular a los operadores como + - / para operaciones entre objetos de la misma clase. Por ejemplo si hacemos 1 + 1 el resultado es 2, si hacemos " juan" + "ete" el resultado es "juanete", en estos ejemplos vemos al operador + funcionando de dos maneras diferentes, en la primera suma dos numero y en la segunda concatena dos cadenas, esta funcionalidad está dada por el lenguaje , que pasaría si deseáramos sumar dos objetos definidos por nosotros? pues de esto se trata la sobrecarga de operadores dar funcionalidad a un operador en función de nuestros requerimientos.

Para ejemplificar mejor veamos un problema sencillo, Cada persona es la suma genetica de un padre y una madre cierto? entonces no estaria mal decir que hijo= padre+madre cierto?, veamos esto en código:

Primero.
Definiremos una clase Persona que guarda los datos de la persona y el nombre que el quisiera tenga su hijo y el operador + sobrecargado para la clase clsPersona, digamos algo así:

Public Class clsPersona
Private sNombre As String
Private sApPaterno As String
Private sApMaterno As String
Private sNombreHijo As String

Sub New()
End Sub
Sub New(ByVal s_Nombre As String, ByVal s_ApPaterno As String, ByVal s_ApMaterno As String, ByVal s_NombreHijo As String)
sNombre = s_Nombre
sApPaterno = s_ApPaterno
sApMaterno = s_ApMaterno
sNombreHijo = s_NombreHijo
End Sub

Public Property Nombre() As String
Get
Return sNombre
End Get
Set(ByVal value As String)
sNombre = value
End Set
End Property

Public Property ApPaterno() As String
Get
Return sApPaterno
End Get
Set(ByVal value As String)
sApPaterno = value
End Set
End Property

Public Property ApMaterno() As String
Get
Return sApMaterno
End Get
Set(ByVal value As String)
sApMaterno = value
End Set
End Property

Public Property NombreHijo() As String
Get
Return sNombreHijo
End Get
Set(ByVal value As String)
sNombreHijo = value
End Set
End Property

Shared Operator +(ByVal oPadre As clsPersona, ByVal oMadre As clsPersona) As clsPersona
Dim oHijo As New clsPersona
oHijo.Nombre = oPadre.NombreHijo & " " & oMadre.NombreHijo
oHijo.ApPaterno = oPadre.ApPaterno
oHijo.ApMaterno = oMadre.ApPaterno

Return oHijo
End Operator

Public Overrides Function ToString() As String
Return Me.Nombre & " " & Me.ApPaterno & " " & Me.ApMaterno
End Function

End Class

Segundo en una pagina aspx coloquen lo siguiente en el evento Page_Load

Dim oP As New clsPersona("Sergio", "Tardío", "Mostajo", "Raul")
Dim oM As New clsPersona("Silvana", "Lara", "Dominguez", "Daniel")

Dim oHijo As clsPersona

oHijo = oP + oM

Response.Write(oHijo.ToString)

Explicación: Como ven la clase clsPersona tiene sobrecargado el operador + de forma que cuando se suman dos objetos de tipo persona el resultado es un nuevo objeto que lleva como nombre la suma del nombre que quiere el padre con el nombre que quiere la madre, como apellido paterno el del padre y como apellido materno el de la madre, logramos definir un comportamiento especifico para el operador + en nuestra clase, de esto se trata la sobrecarga de operadores

informacion mas detallada la podran ubicar en:
http://msdn2.microsoft.com/en-us/library/ms379613(VS.80).aspx

Salu2
SergioT

Colecciones Genericas

2007-05-24T11:10:00.000-04:00

Hola

las colecciones genericas son realmente algo que faltaban en el framework 1.1 y uno no se da cuenta hasta que aparecieron en el 2.0 , ahora es mas facil crear colecciones personalizadas , mas facil que patear a un borracho en el suelo :)

Aqui les coloco un ejemplito muy sencillo que que sirve para demostrar su poder, vamos paso a paso:

Incluir en el programa la referencia a:
Imports System.Collections.Generic
Vamos a crear una coleccion de nombres de personas, para eso definiré una estructura sencilla que representa a una persona

Public Structure Nombre
Public Id As Integer
Public Nombre As String

Sub New(ByVal x As Integer, ByVal y As String)
Id = x
Nombre = y
End Sub

Public Overrides Function ToString() As String
Return "Id: " & Id & " Nombre: " & Nombre
End Function
End Structure
Ahora creemos la coleccion generica que albergará a varios objetos del tipo "Nombre". Para probar esto en un proyecto web cualquiera adicionen una pagina y en el load de ella coloquen lo siguiente

Dim l As New List(Of Nombre)

l.Add(New Nombre(1, "Juan"))
l.Add(New Nombre(2, "Juanete"))
l.Add(New Nombre(3, "Juancho"))
l.Add(New Persona(4, "Juancillo"))

Dim aux As Nombre
Dim s As New System.Text.StringBuilder

For Each aux In l
s.Append(aux.ToString & ", ")
Next
Response.Write(s.ToString)

Eso es todo, facil no? ya se acabaron los lios para definir colecciones de clases personalizadas

Salu2

Tutorial de Crystal y Vb.net

2007-05-22T11:08:00.001-04:00

Hola

Por si a alguien le interesa les dejo un link interesante acerca de crystal reports y vb.net

http://www.elguille.info/colabora/puntoNET/ElMoreno_CrystalVB.htm

es un punto de partida

salu2

Excel y ADO.NET

2007-05-11T23:11:00.000-04:00

Hola

En algunas ocasiones podriamos necesitar generar una planilla Excel desde una base de datos en una aplicacion .Net, para esto hay dos maneras de hacerlo,

Una es utilizando el excel con OLE Automation es decir utilizando al Excel como un objeto dentro de la aplicación y utilizando los métodos publicados por el excel, en esta ocasión no hablaré de este método, tal vez en otra

La segunda forma es la de crear el libro excel directamente con ADO.Net y crear la tabla en el libro por medio de una consulta de inserción común y corriente. Ahora va el código:

Definir una cadena de conexion para crear el libro excel: Como ejemplo a continuación les muestro la cadena de conexión necesaria para crear el libro excel en la raiz del disco C

Private sCnn As String = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\MiLibro.xls;" & _
"Extended Properties='Excel 8.0;'"
Crear la hoja en el libro excel: Para eso utilizaremos una intreución sql como la siguiente

Dim sSql As String = "CREATE TABLE Hoja1 (" & _
"IdPersona INT," & _
"Nombre NVARCHAR," & _
"email NVARCHAR," & _
"Direccion NVARCHAR)"
Insertamos datos en la planilla: por medio de una consulta de insercion como la siguiente

Dim sql As String = "INSERT INTO Hoja1 (" & _
"IdPersona, Nombre, email, direccion)" & _
"VALUES(1, 'James Hetfield', 'jhetfield@metallica.com', 'Calle Orion #7')"
Eso es todo lo básico necesario , ahora viene el código ado.net que podriamos utilizar para ejecuutar las consultas descritas anteriormente, ahi va:

Private Function Ejecutar(ByVal sCnn As String, _
ByVal sSql As String) As Int32
Dim oCnn As New OleDbConnection(sCnn)
Dim cmd As New OleDbCommand(sSql, oCnn)
Try
oCnn.Open()
Dim nRegAfectados As Int32
nRegAfectados = cmd.ExecuteNonQuery()
Return numRegAfectados
Catch ex As Exception
MessageBox.Show(ex.Message)
Return -1
Finally
oCnn.Close()
oCnn = Nothing
End Try
End Function

Pasandole a esta funcion la cadena de conexion definida en el punto 1 y pasandole la consulta de insercion lograremos el objetivo que es el de crear un libro excel a puro ado.net, facil no?

Espero les sirva nos vemos en otra,

SergioT

Abrir un popUp y pasarle un parametro

2007-03-29T23:37:00.000-04:00

Hola

Un temita super facil pero que tambien suele sacar canas verdes cuando uno está aprendiendo es como abrir una ventana popup y como pasarle un parametro?? Bien aqui coloco una explicaion sencilla y corta acerca de lo referido.

Vamos por pasos

Abrir una nueva aplicacion asp.net desde el VS.NET
Colocar 2 paginas aspx a una de ellas llamarla Calc.aspx que será el popup y la otra puede ser Default.aspx que será la pagina que llama al popup
En Default.aspx colocar un button y llamarlo nutton1, luego en la parte del head en el codigo html colocar :

Esa es la funcion en jscript que abrirá el popUp, la funcion window.open tiene 3 parametros que son:

url: la dirección url de la página que se abrirá en la nueva ventana.
nombre: el nombre de la nueva ventana. Con este nombre se podrá hacer referencia a la ventana creada.
lista_parametros: es una lista de parámetros, separados por coma, que controlan la apariencia la ventana y pueden ser lo siguiente:
resizable indica si la ventana se podrá cambiar de tamaño
toolbar indica si la barra de herramientas será visible
location indica si la barra de dirección será visible
directories indica si los vínculos serán visibles
menubar indica si aparece la barra de menú
scrollbars indica si aparecen las barras de scroll
width indica el ancho de la nueva ventana
height indica el alto de la nueva ventana
top indica la distancia a la parte superior de la pantalla donde aparecerá la nueva ventana (Explorer)
left indica la distancia a la parte izquierda de la pantalla donde aparecerá la nueva ventana (Explorer)
screenY indica la distancia a la parte superior de la pantalla donde aparecerá la nueva ventana (Netscape)
screenX indica la distancia a la parte izquierda de la pantalla donde aparecerá la nueva ventana (Netscape)
luego colocamos la vista de diseñño y hacemos docle clic para editar el codigo de servidor, ahi colocamos lo siguiente:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Me.Button1.Attributes.Add("onClick", "AbrirVentana('" & Me.TextBox1.Text & "')")

End Sub

Ese codigo añade el atributo onclick al boton que ejecutara a la funcion abrirVentana
En la otra pagina en calc.aspx colocarun label, un textbox y un boton, luego en la parte del head incluir el siguiente codigo jscript que servirá para cerrar el popup
luego is al code behind o codigo de servidor y en el evento load de la pagina colocar:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Me.Button1.Attributes.Add("onclick", "Cerrar()")
If Not IsPostBack Then
Me.Label1.Text = Request.QueryString("txt")
End If

End Sub

Con esto logramos colocar el llamado a la funcion que cierra el popup en el boton y colocamos el parametro recibido en el textbox

Como ven es bastante sencillo, en este ejemplo vimos como abrir un popup, pasarle un parametro, recibirlo , añadimos atributos a botones y cerramos una venta desde jscript

Espero les sirva

Salu2
SergioT

mensajes tipo msgbox para asp.net

2007-03-26T23:19:00.000-04:00

Hola a todos

la primera entrada será de algo muy sencillo que todo el mundo necesita y busca cuando está comenzando con asp.net y viene de una programación Windows, todos quieren hacer un

msgbox("Metallica Rules!!!")

Se puede construir un funcion que se coloque en un modulo y que sea accesible a todo el proyecto web

La funcion basicamente lo unico que hace es agregar un pequeño script a la pagina que se ejecutará inmediatamente la pagina vuelva al cliente.

Function Mensaje(ByRef oPage As Page, ByVal sAviso As String)
If sAviso.Trim.Length > 0 Then
Dim s As String = "alert('" & sAviso & "') "
oPage.RegisterStartupScript("OnLoad", s)
End If
End Function

Para utilizarla solo hay que llamarlade la siguiente manera

Mensaje(me, "Hola este es un mensaje enviado por el servidor")

Facil no? El primer parametro es la pagina en la cual se está produciendo el postback y el segundo parametro es el texto a mostrar

Eso es todo espero les sirva

Chau
Salu2
Sergio

Hola

2007-03-26T22:46:00.000-04:00

Hola

Esta primera entrega es para resumir el objetivo de mi blog, aqui pretendo colocar articulos y ejemplos sobre programacion en asp.net que sirvan para personas que recien se inician en asp.net

Asi que espero que los aportes sean de utilidad

Salu2
SergioT