Pues eso… últimamente estoy "trasteando" en un programa (hecho con Visual Basic 2010) que accede a una base de datos de SQL Server Express 2005 y quisiera ir poniendo por aquí las cosillas que me voy encontrando mientras "tecleo" en ese programa, y lo último que he modificado es esto que te muestro, que no es que no lo hubiera detectado antes, pero haciendo pruebas hoy he visto que me había dejado "sin optimizar" un campo de una de las tablas.

El tema es el siguiente:

Cuando añades un campo a una tabla de SQL Server (en mi caso con el SQL Server Management Studio 2008 (Express)) y le indicas que es de tipo decimal, automáticamente te lo pone de esta forma:

decimal(18, 0)

El 18 es la precisión, o número de dígitos que puede tener este número, y el 0 es la "escala" o número de decimales que puede tener este número.

Como verás cero decimales no es algo que sea demasiado aceptable en valores de tipo moneda, que sí, que podía haber elegido el tipo "money" y me hubiese quitado de problemas, pero de haberlo hecho no te estaría contando esto y… puede que un día te diera por usar el tipo "decimal" por aquello de que es el más parecido al tipo "moneda" que tiene el punto net y lo mismo te preguntarías por qué narices me redondea el número cuando lo guarda en la base de datos… sí, podría ocurrirte esto… como le ocurrió a uno que me conozco…

La cuestión es que si quieres usar el tipo "decimal" de SQL Server para que acepte un número de decimales (por ejemplo cuatro decimales) tendrías que declararlo de esta otra forma:

decimal(18, 4)

Y debido a que a la hora de usar este valor desde la base de datos el número de dígitos decimales siempre se guarda (aunque sean todos ceros), me he creado una función que recibe un valor de tipo Object y lo convierte en cadena (String), pero quitando los ceros extras que tenga y en el caso de que el valor "total" sea cero, al menos deje un cero (pero siempre que esté a la izquierda del decimal).

Esta función para quitar los ceros extras que añade el SQL Server:

''' <summary>
''' Convierte un tipo Object en un valor Decimal,
''' pero se devuelve como cadena.
''' Ese objeto es el valor leído de la base de datos
''' Si el contenido es válido se devuelve el valor
''' si no, se devuelve una cadena vacía.
''' Se quitan los ceros que haya después del signo decimal,
''' si no tiene decimales, no se muestran los ceros.
''' </summary>
Friend Function dataDecimal(ByVal obj As Object) As String
    If obj Is Nothing OrElse obj.Equals(DBNull.Value) Then
        Return ""
    Else
        ' Conversión extra para evitar "sustos"                 (06/Oct/11)
        Dim d As Decimal = 0
        Decimal.TryParse(obj.ToString, d)
        Return d.ToString.TrimEnd("0"c).TrimEnd({"."c, ","c})

        'Return CDec(obj).ToString.TrimEnd("0"c).TrimEnd({"."c, ","c})

    End If
End Function

Como ves, no me fio de que el valor recibido sea un valor decimal válido, por eso hago algunas comprobaciones.

La primera es saber si el valor pasado como argumento a la función es un valor nulo, ya sea "nulo de punto net" o nulo de base de datos (DBNull.Value), en ese caso, la función devuelve una cadena vacía.

La segunda es usar TryParse para no producir una excepción (o error) en el caso de que el valor de ese objeto no sea "convertible" a un tipo Decimal.

La función TryParse recibe un valor de tipo cadena que será el valor a convertir (en este caso a un tipo Decimal) y en el segundo parámetro le indicamos un valor (por referencia) del mismo tipo al que queremos convertir, de forma que si la conversión falla, se utilice el valor que previamente tenga dicha variable.

En el caso de que la conversión NO falle, se asignará a la variable de ese segundo argumento el valor que de como resultado la conversión. Por eso debe ser por referencia, para que la variable se pueda modificar dentro de la función.

Como queremos quitar todos los ceros que "sobren" por el final, utilizo la función TrimEnd al valor convertido (el que tiene la variable d) indicándole el carácter que quiero quitar, esa función recibe como parámetro un valor de tipo Char indicando qué carácter queremos quitar del final, y como Visual Basic permite indicar los caracteres en la forma "cadena" seguida de la letra c, pues… eso es lo que he hecho, por tanto "0"c significa que es el carácter CERO (o valor 48).

Esto seguramente ya lo sabías, pero… no está de más una aclaración.

Si el valor almacenado en la base de datos no tiene decimales (por ejemplo el número 205) con el TrimEnd que hemos hecho se nos quedaría la coma (o el punto) que indica que hay decimales, por tanto volvemos a hacer un TrimEnd al resultado del TrimEnd anterior, pero en este caso queremos quitar tanto las comas como los puntos, es decir, queremos quitar "dos tipos de caracteres", en estos casos, la función TrimEnd permite indicar un array (o arreglo o matriz) de caracteres con cada uno de los caracteres a quitar del final de la cadena.

Los caracteres individuales ya sabes cómo indicarlos, y si lo que quieres indicar es un array, esos caracteres individuales los separas con comas y los incluyes entre llaves: {"."c, ","c}.

Y esto es todo.

Sólo me queda decirte cómo lo utilizo:

En mi caso (en este programa que estoy haciendo) lo hago de dos formas:

En una leo el valor de la tabla en un DataTable y accedo a cada valor por medio de un objeto que representa a la fila (DataRow) a la que estoy accediendo:

For Each r As DataRow In dt.Rows
    Dim lvi As New ListViewItem

...

lvi.SubItems.Add(dataDecimal(r("Importe")))

...

En la otra accedo a los valores por medio de un objeto SqlDataReader y básicamente hago lo mismo:

Dim re As SqlDataReader = cmd.ExecuteReader()

...

ImporteTextBox.Text = dataDecimal(re("Importe"))

...

Espero que te sea de utilidad.

Nos vemos.

Guillermo

…

Esta es la carta o mejor dicho, mensaje que he recibido (espero que se pueda publicar):

From: …mvpaward…
Sent: sábado, 01 de octubre de 2011 15:35
To: guille…
Subject: ¡Enhorabuena MVP de Microsoft 2011!

 

Estimado/a Guillermo Som,

Enhorabuena. Nos complace presentarle el programa de nombramiento MVP de Microsoft® de 2011. Este nombramiento se concede a los líderes excepcionales de la comunidad técnica que comparten de forma activa su experiencia de alta calidad y de la vida real con otras personas. Le agradecemos especialmente la contribución que ha realizado en las comunidades técnicas en el área de Visual Basic a lo largo del pasado año.

También incluimos en este mensaje:

• Información acerca de su premio como MVP
• Cómo activar los beneficios de su premio como MVP
• Su número de identificación de MVP
• El Código de conducta del Programa de premios MVP

El programa de nombramiento de MVP de Microsoft nos proporciona una oportunidad única de celebrar y reconocer sus aportaciones importantes, así como de decir “Gracias por su liderazgo técnico”.

Toby Richards
Director general
Soporte En-línea Comunidad

---

Nos vemos.
Guillermo

…

Sí, es un tema técnico… pero eso no quiere decir que no lo empiece cómo "debe ser".

A lo que vamos, de lo que se trata es de tener, por ejemplo, un control PictureBox y ese mismo control mostrarlo (o usarlo) en controles diferentes.
En realidad en contenedores de controles o colecciones de controles, que para el caso es lo mismo, además de que en .NET todos los controles pueden tener otros controles dentro (al menos eso es lo que parece o hace suponer al existir en cada objeto de tipo Control una propiedad llamada Controls que es un objeto del tipo ControlCollection (para saber más pulsa en los enlaces y te llevará a la documentación de .NET Framework 4.0).

Para lograr eso lo que tenemos que hacer es añadir el control en cuestión a la colección Controls del contenedor al que lo queremos mover.
Por ejemplo, si tenemos un control del tipo TabControl y cuando pulsamos en la primera y/o la segunda ficha (TabPage), haremos que un control llamado PictureBox1 se añada a esa ficha.
Con el siguiente código (para Visual Basic) lo conseguiremos:

Private Sub TabControl1_SelectedIndexChanged(ByVal sender As Object, _
                                             ByVal e As EventArgs) _
                                            Handles TabControl1.SelectedIndexChanged

    Select Case TabControl1.SelectedIndex
        Case 0
            TabPage1.Controls.Add(PictureBox1)
        Case 1
            TabPage2.Controls.Add(PictureBox1)
    End Select
End Sub

Si prefieres usar C#, utiliza el siguiente código:

private void tabControl1_SelectedIndexChanged(object sender, EventArgs e)
{
    switch (tabControl1.SelectedIndex)
    {
        case 0:
            tabPage1.Controls.Add(pictureBox1);
            break;

        case 1:
            tabPage2.Controls.Add(pictureBox1);
            break;
    }
}

Si en lugar de añadirlo directamente a una ficha (tabControl) necesitas que esté en otro contenedor, por ejemplo, dentro de un GroupBox, simplemente sustituye el nombre del control que hay justamente antes de Controls.Add por el control que te convenga. Lo mismo ocurre con el control añadido (el que está entre paréntesis después de .Add), puedes añadir cualquier control.

Si al ver el código de ejemplo te preguntas algo así:

P: Guille, ¿no crees que sería necesario quitar el control antes de añadirlo a otra colección? ya que de esa forma tendríamos repetido el mismo control en más de una colección.

La respuesta podría ser como esta:

R: Buena pregunta, lo que indica que "has leído el código", pero no es necesario.

¿Por qué no es necesario eliminar un control de una colección antes de añadirla a otra?

Porque el propio .NET se encarga de eso, es decir, si un control se añade a una colección de controles, automáticamente se quita de la que ya estuviera.

Esto no es que lo haya "adivinado" yo, es que está en la documentación del método Add, que por cierto yo no lo había leído hasta después de hacer el proyecto de ejemplo, en el que me dio por probar a ver qué pasaba si no eliminaba previamente el control de la colección, y al ver que no ocurría "nada raro" (es decir, todo funcionaba como debería funcionar) me dio por leer la documentación y esa documentación tiene una nota que dice:

Un objeto Control sólo se puede asignar a una colección Control.ControlCollection a la vez. Si el Control ya es secundario de otro control, se quita de ese control antes de agregarlo a otro.

(el texto anterior está extraído de la ayuda en línea de .NET Framework 4.0 en castellano, concretamente de la definición del método Add de la clase Control.ControlCollection)

Espero que te sea de utilidad.

Nos vemos.

Guillermo

Publicado con fecha del lunes 16 de mayo a las 22:00, pero en realidad lo acabé de escribir (y publicar) el martes 17 de mayo a las 00:05

…

Espero que en esta ocasión lo pasemos igual o mejor que ayer lunes… creo que la gente se divirtió además de aprender algunas cosas nuevas… al menos los que estaban pendientes de la charla (que era la mayoría, todo hay que decirlo… y estamos hablando de que habría más de 1200 personas… sí, muchas)

Bueno… nos vemos allí y si no puedes asistir, pues… ya te contaré por aquí que tal ha ido o también te puedes enterar por mi página de "el Guille info en Facebook".

Nos vemos.
Guillermo

…

Aquí tienes el enlace y la descripción…

Espero que te sea de utilidad.

Nos vemos.
Guillermo

P.S.
También puedes ver los comentarios en el enlace al artículo que he publicado con fecha de hoy en la página de elGuille en Facebook:

http://www.facebook.com/pages/elGuille/82093985818?v=app_2309869772

P.S.2
Mirando, mirando, el "rano" usease RFOG, tiene un artículo sobre punteros y referencias que seguro que te puede parecer interesante:

…

.NET/VB6: Código de ejemplo de cómo usar Fluent Interface en C#, Visual Basic .NET y Visual Basic 6.0

Como puedes ver por el título, están los ejemplos para C#, VB.NET y VB6, además el de VB.NET está para la versión 2010 (VB10) y 2008 (VB9) cuyo código también es válido para la versión 2005 (VB8) y supongo que también para las anteriores, aunque no lo he probado… aunque lo mismo algún día lo pruebo… al menos en el VS2003, es decir para VB7.1.

Nos vemos.
Guillermo

P.S.
Si quieres leer el artículo o post que publiqué hace un par de días en este mismo blog, lo puedes hacer desde este enlace:
Fluent Interface no es solo simular el WITH de VB

…

Después en la página que tiene CampusMVP en feisbúc se vuelve a comentar lo mismo, y en realidad es que ese ejemplo concreto es muy parecido al uso de un bloque With de VB (ya sea VB para .NET como el VB6, en ambos existe esa construcción).

El código de ejemplo

Sin entrar en demasiados detalles (y con el permiso de Gisela) te muestro el código de uso en C# del ejemplo de interfaz fluida (o fluent interface si lo prefieres en inglés -estos dos enlaces o links son de la wikipedia y en el de español sólo hay ejemplos para C# y C++, mientras que en inglés hay ejemplos para Object Pascal, PHP, Java, JavaScript, C#, etc., eso sí, para VB no hay… ¡faltaría más!-) que puso en su artículo, y después te muestro el correspondiente en Visual Basic usando un bloque With.

El código de uso de Fluent Interface en C#:

new Computer()
    .AddProcessor("Intel i7 920")
    .AddRAM(6)
    .TurnOn()
    .Test()
    .TurnOff();

El código de uso de Fluent Interface en VB

(pero sin crear la interfaz que implementa la clase Computer de C#, por eso en este ejemplo la clase se llama ComputerSimple):

With New ComputerSimple()
    .AddProcessor("Intel i7 920")
    .AddRAM(6)
    .TurnOn()
    .Test()
    .TurnOff()
End With

Como puedes comprobar, escribiendo el código de C# de esa forma es fácil confundirlo con una construcción (o bloque) With de Visual Basic, pero como comenté en la página de CampusMVP: sin End With y con punto y coma…

Aunque ese "parecido" con With es sólo por la forma de escribir ese código en C#, ya que si lo escribiésemos todo junto y sin cambios de líneas, sería lo que se conoce como encadenamiento de métodos, de forma que se puede llamar a un método de una clase partiendo de la llamada a otro método y esto no se puede hacer con un With, ya que esa instrucción lo que permite es hacer llamadas a diferentes miembros de un objeto (ya sean métodos, propiedades o cualquier cosa que se pueda usar en un objeto) sin necesidad de tener que indicar el objeto en cuestión, es decir, el With nos permite crear un bloque que hace referencia a un objeto, y al estar dentro del "bloque" podemos acceder a cualquier miembro de ese objeto.

El código de llamada a la clase "Computer" que simula un With en C# en realidad se podría escribir así:

// Todo en una línea:
new Computer().AddProcessor("Intel i7 920").AddRAM(6).TurnOn().Test().TurnOff();

Por tanto, si queremos una funcionalidad como la indicada en los ejemplos de encadenamientos de métodos, tendríamos que crear un código parecido al indicado en el artículo de Gisela, es decir, crear una interfaz en los que sus métodos devuelvan la propia interfaz en lugar de un tipo más concreto.

Fluent Interface no solo es encadenamiento de métodos

Pero si hacemos caso a Martin Fowler, a esta forma de usar Fluent Interface se conoce como method chaining (o encadenamientos de métodos), pero la "fluidez" no es sólo porque se puedan encadenar métodos… aunque yo aquí no te voy a contar lo que él ya te cuenta en su sitio, allí podrás leer más sobre nested functions (anidamiento de funciones) o de object scoping (alcance -cobertura- de los objetos) que son otras de las "gracias" de todo esto de las interfaces fluidas (fluent interface).

Reflexiones

En cualquier caso, todo esto está muy bien… y el que quiera usarlo que lo use y el que no, que haga como yo, que se va a dar una vuelta por la playa (o equivalente, también vale un parque o un banco en una esquina) o suda un poquillo corriendo o jugando al tenis… jejeje, que no, que es broma, es que después de un año casi sabático, tantas cosas nuevas, que no son tan nuevas, pero que ahora es cuando yo me estoy enterando de muchas de ellas, porque se usan en los lenguajes que me interesan: en general todos los incluidos en .NET Framework… la cuestión es que hay mucha información en poco tiempo y la verdad es que prefiero "emplear" sólo una parte de ese tiempo en cosas concretas o bien que me llamen la atención como ha sido la de este artículo de Gisela. ¡Gracias Gisela por hacer que le dedique un rato a esto de la programación en vez de estar pensando que podría estar en la playa refrescándome! (de todas formas esta tarde no tocaba playa, así que… bien empleado está el tiempo, jejeje)

Despedida y cierre

Bueno, voy a escribir el código de ejemplo y ponerlo más arriba, que sólo he dejado el espacio para que no se me fuera la idea, que con estas calores, hasta las ideas se evaporan… jejeje

Nos vemos.

Guillermo

P.S.

El código de ejemplo completo lo pondré en otro momento… ¿vale? pues eso… y además añadiré el correspondiente para usar esto mismo en Visual Basic .NET y si me da el punto -y se puede- también lo haré para Visual Basic 6.0

P.S.2 (23/Jul/2010 05.27)

Ya está el código de ejemplo para que lo puedas descargar desde mi sitio:

.NET/VB6: Código de ejemplo de cómo usar Fluent Interface en C#, Visual Basic .NET y Visual Basic 6.0

…

Ya terminó… pero lo podéis ver en diferido

Pues eso, que los de UOC DotNetClub me han invitado para de una charla online sobre las novedades de la próxima versión de Visual Basic, la versión 10 que se incluirá en Visual Studio 2010 y que usará .NET Framework 4.0.

Este es el cartel del evento y más abajo te dejo el link (enlace) para que te registres como asistente, aunque también estará disponible de forma desconectada, pero eso será después del evento, que será el próximo martes 23 de febrero a las 20.00 (hora de la península, es decir GMT/UTC +1)

Pulsa en la imagen para registrarte para este evento

Esta es la dirección del registro:
http://msevents.microsoft.com/CUI/EventDetail.aspx?EventID=1032441987&Culture=es-ES

Y si quieres más información, puedes ir a la sección de eventos de UOC DotNetClub:
http://uoc.dotnetclubs.com/eventos

¿Te apuntas? Si es así… el 23-F nos “escucharemos” (bueno, tú me escucharás a mí, jeje)

Nos vemos.
Guillermo

Y la verdad es que hay muchas cosas que estudiar, y como dije el otro día, hay que digerirlas bien… que si no, después ¿cómo lo explica uno si no se entera? Bueno, esta pregunta tiene respuesta: repitiendo lo mismo que has leído aunque no tengas ni idea de qué estás diciendo… que de estos hay muchos por ahí, sí, gente que se pone a explicarte cosas y en realidad no saben de qué están hablando… lo que yo te diga… bueno, mejor dejar este tema, que el que más y el que menos… (es que en dos ocasiones estuve dando unas charlas de acceso a datos y no tenía ni repajolera idea de qué es lo que ponía en las diapositivas de la presentación que me pasaron, en serio… claro que tampoco me marqué ningún farol ni hice el paripé de que sabía de qué iban esas diapositivas… simplemente pasé a otros temas, jejeje, en fin…)

Pues eso… que son muchas cosas nuevas, y todo en inglés… y además usando una máquina virtual y se hace eterno hacer cualquier prueba por simple que sea…

Lo que si es cierto es que el Visual Studio 2010 está muy bien, y por lo poco que he visto de la BETA 2 creo que ahora me va a gustar mucho más el Visual Basic de lo que ya me gustaba… no sólo por las "características del lenguaje" sino por el editor de Visual Studio para VB… que en ese aspecto la gente del "team" de Visual C# siempre iban un paso por delante… y puede que aún sigan mejorando el editor de C# con respecto al de VB, pero no te lo puedo asegurar ya que tan solo he creado un proyecto en el Visual Studio 2010 y ha sido de Visual Basic, pero está bien (el editor)… algunas cosas ya las vi en las betas y CTP anteriores, pero otras creo que son nuevas en la Beta 2… cualquier día de estos te contaré las cosillas nuevas que vaya encontrando, pero casi seguro que será después del webcast que daré el 23 de Febrero sobre las novedades de Visual Basic 2010 para UOC DotNetClub (sí, ya sé que te lo conté el otro día, pero… para que no se te olvide).

Mañana seguiré con mis "investigaciones" que ya es hora de cenar algo, leer un poquito (pero literatura normal, no técnica y en papel, que esto de mirar tantas horas la pantalla me "seca" muchos los ojos y me pican una barbaridad… ) y después de leer (o mientras hago una pausa) a ver un poco la tele, que ahora me ha dado por ver dibujos animados en Boomerang, en particular Los autos locos y Don Gato ambos dos de Hanna-Barbera (William Hanna y Joseph Barbera). Lo de ver los autos locos es que el otro día (cuando estuvimos en la Cebuchá) mi amiga San me dijo que cuando me reía algunas veces me parecía a "risitas" (el perro Patán de Pierre Nodoyuna) y un día haciendo zapping me encontré con que por las noches echaban estos dibujos, y como después (sobre las 23.30) echan Don Gato, que es otro de los dibujos que me gustaban de cuando era 2más chico" que ahora (jejeje) pues… aprovecho, ya que casi nunca me da tiempo a ver una de las pelis que empiezan a las 10 (22.00) y casi siempre acabo viendo repeticiones de Camera Café o Vaya Semanita, que están muy bien, pero para variar…

Pues nada… hasta mañana, que si no llueve, por la mañana iré a andar con Mari Ángeles, que Pili no viene y por la tarde, si no llueve y el profe lo permite, iré a pelotear un poco al tenis…

Nos vemos.
Guillermo
Terminado de escribir a las  del miércoles 27

Esta es la introducción de ese capítulo:

En este capítulo continuamos con las novedades de Visual Basic 9.0, pero en esta ocasión solo las podremos usar con la versión 3.5 .NET Framework.
Estas características (al igual que casi todas las novedades de Visual Basic 9.0) tienen su razón de ser en todo lo referente a LINQ; pero antes de ver qué es LINQ y cómo usarlo desde nuestro lengua-je favorito, veámoslas con detalle para que nos resulte más fácil comprender lo que he dejado para el final de este repaso en profundidad a las novedades de Visual Basic 9.0.
Las novedades que veremos en este cuarto capítulo son:
• Los tipos anónimos.
• Las expresiones lambda o funciones anónimas.

Como puedes comprobar, además de los tipos anónimos explico que son las expresiones lambda (o funciones anónimas), espero que te guste y te animes a comprar el libro que al ser en formato PDF el precio que tiene es bastante asequible… además de que suele haber algún que otro descuento (actualmente es un 10%), los cupones de descuento (si hay) los consigues desde la página del libro en mi sitio (el link que te puse arriba).

Capítulo 4 de Novedades de Visual Basic 9.0 (del Guille) (formato .pdf)

Y si quieres saber cuál es el contenido del libro, aquí tienes el índice en formato PDF:
Índice de Novedades de Visual Basic 9.0.

Ni que decir tiene que el contenido de estos dos PDF NO los puedes usar y/o publicar en ningún medio o forma, ni tan siquiera indicando de dónde lo has obtenido ya que están protegidos por copyright.
Lo que si puedes hacer es poner un link a esta entrada del blog, por lo cual te estaré muy agradecido.
Gracias.

Nos vemos.
Guillermo

Ahora a leerlas, analizarlas e intentar entenderlas, jejeje

Nos vemos.
Guillermo