Tips para informáticos

Como ordenar un Dataset VB.Net mediante una columna indicada

2015-02-03T09:01:00.001-08:00

Hola buenas, otra vez por acá compartiendo un poco de información que ojala les sea útil. Bien hoy les compartiré como ordenar un Dataset mediante la indicación de una columna, para realizar esto basta escribir las siguientes líneas de código:

Dim dt = DSTemp.Tables(0)
dt.DefaultView.Sort = "VIDA_UTIL Asc"
DSTemp.Tables.RemoveAt(0)
DSTemp.Tables.Add(dt.DefaultView.ToTable)
DSTemp.AcceptChanges()

Como se muestra en la línea de código estamos ordenando por vida útil los datos obtenidos en la tabla 0 del DataSet.
Bien en el primer ejemplo ordenamos solo una tabla del dataset, si quisiéramos ordenar todas las tablas del dataset suponiendo que la columna se llama igual en todas las tablas el código seria el siguiente:

For x As Integer = DSTemp.Tables.Count - 1 To 0 Step -1
  Dim dt = DSTemp.Tables(x)
  dt.DefaultView.Sort = "ImageData Asc"
  DSTemp.Tables.RemoveAt(x)
  DSTemp.Tables.Add(dt.DefaultView.ToTable)
Next
DSTemp.AcceptChanges()

Espero que este pequeño post sea de gran ayuda…

Obtener los primeros registros en una Consulta ORACLE

2014-09-02T09:00:00.000-07:00

Hola buenas, nuevamente por acá compartiendo información que les puede ser útil. Hoy aprenderemos a utilizar el ROWNUM en motores Oracle. Pues bien muchas veces puede que tengamos la necesidad de obtener los primeros 5 registros o 10 registros en una consulta y es donde nos preguntamos cómo hacerlo.
ROWNUM es una columna mágica que existe en Oracle y si aprendemos como funciona nos puede ser de gran utilidad, esta columna la podemos usar

Para obtener los primeros N registros: Similar a la cláusula LIMIT utilizado en otras bases de datos.

Para paginar resultados, típico en ambientes web.

Es importante tener en cuenta que ROWNUM es una pseudocolumna (no es una columna real) que está disponible en los resultados de las querys. Un ROWNUM no es asignado permanentemente a una fila(un error de concepto muy común) UNA FILA EN UNA TABLA NO TIENE NINGUN NUMERO ASIGNADO, no se puede pedir que te devuelva la fila 5 de una tabla, eso no existe así no funciona el ROWNUM.

Bien probemos la siguiente consulta

Select Micolumna1, Micolumna2,rownum from Mitabla

Si vemos esto retornara los datos con una columna de más con un número asignado.

Apliquemos el ROWNUM

Supongamos que necesitamos obtener los 5 empleados mejor pagados de nuestra empresa:

select * from  
(select * 
 from emp 
 order by sal desc) 
 where ROWNUM <= 5;

Errores comunes ROWNUM

Consideremos la siguiente consulta:

select * 
from emp 
where ROWNUM <= 5 
order by sal desc;

Muchos talvez dirán que también obtendrá los 5 empleados mejores pagados, bueno la intención era esa pero realmente lo que la query va a retornar solo los primeros 5 registros aleatorios(los primero 5 que encuentre) ordenados por salario.

Espero que este pequeño post sea de gran utilidad hasta la próxima….

UNION Y UNION ALL, DIFERENCIAS ORACLE - SQL

2014-08-26T14:45:00.001-07:00

Hola gente, hoy día les explicare la diferencia en Oracle - SQL de UNION y UNION ALL, talvez se dirán que es algo sencillo pero la idea es compartir información y aprender juntos.

Pues bien resulta que en algún momento de mi vida hice dos consultas y necesitaba unirlas mediante la instrucción UNION para obtener un único conjunto de datos, al hacer esto al realizar la instrucción UNION el resultado era distinto o diferente al que yo necesitaba, es decir con el UNION el cálculo o la consulta no me mostraba los registros que requería y me hacían falta datos.

En la siguiente imagen muestro los datos que requiero o necesito

En esta otra imagen muestro los datos que obtenía al utilizan la instrucción UNION

Lo que está en rojo identifica la diferencia en cantidades, es aquí donde sale la interrogante, que puede estar pasando que al ejecutar el UNION no me muestra los datos que necesito, pues bien es acá en donde es importante saber la diferencias entre UNION y UNION ALL

UNION
La instrucción UNION permite vincular los registros de dos consultas pero NO se repetirán aquellos registros iguales, es decir en el conjunto de datos obtenido no se mostraran los registros iguales.

UNION ALL
La instrucción UNION ALL permite igualmente vincular los registros de dos consultas pero con la diferencia que SI SE repetirán los registros es decir mostrara todos los registros en el conjunto de datos.

Entonces que era el problema, que estaba pasando, bien en mi consulta no tenía agregada la columna factura_linea por decirlo de algún modo, de manera tal que cuando habían dos líneas con un mismo producto y precio entonces el UNION no me funcionaba ya que no me mostraba la fila duplicada.

Espero el articulo sea de utilidad, hasta la próxima…

Error de fechas en SQL Server (The conversion of a varchar data type to a datetime data type resulted in an out-of-range value.)

2014-08-18T09:24:00.000-07:00

Bueno primero que todo no es un error como tal, básicamente el título es así porque normalmente cuando a nosotros no nos funciona algo lo llamamos error.
Pues bien talvez este post no sea la gran cosa pero para aquellos que están empezando les ayudara bastante. Primero comentarles que no es un error es más bien configuración Regional y de idioma en nuestro SQL. Teniendo claro esto muestro el error que comúnmente se da al intentar grabar una fecha:

The conversion of a varchar data type to a datetime data type resulted in an out-of-range value.

La solución es fácil, para evitar estos inconvenientes hacemos o verificamos lo siguiente:

1- En el servidor, utilizando el SQL Server Management Studio, vamos a Seguridad –> Inicios de Sesión y verificamos que el usuario con que estamos conectando a la base de datos, tenga como idioma predeterminado English.

Claro está que en mi caso estoy utilizando en mis aplicaciones el idioma Ingles, pero si ustedes están utilizando español por ejemplo entonces cambiarían al de ustedes.

2- En el servidor, donde se aloja la base de datos, configuramos en Panel de Control –> Configuración Regional y de Idioma: English(Cambiarlo en el caso que ustedes utilicen otro idioma)

3- En la maquina cliente, configuramos en Panel de Control –> Configuración Regional y de Idioma: English(Cambiarlo en el caso que ustedes utilicen otro idioma)

4- Verifiquemos que la cadena de conexión de nuestra aplicación utilice ese usuario.

Bien estos son los pasos a seguir para configurar nuestro servidor y para que no nos muestre el error The conversion of a varchar data type to a datetime data type resulted in an out-of-range value.

Por otra parte también podemos configurar el formato fecha dentro del server, esto lo puedes encontrar en el siguiente vínculo: http://support.microsoft.com/kb/173907/es

Claro está que todo lo anterior se puede automatizar en nuestras aplicaciones, sencillamente lo que deberíamos de hacer es que al iniciar nuestras APP estas detecten la configuración regional de nuestro servidor o el idioma y a partir de eso hacer nuestras consultas o inserciones, pero para los que están iniciando espero este pequeño post les sean de gran ayuda.

Espero les sea de utilidad, comenten o compartan así todos aprendemos… saludos.

Centrar un Objeto en Visual Net

2014-07-11T14:03:00.001-07:00

Una vez más por acá posteándoles un pequeño tip que puede ser muy útil para ustedes. Resulta que en algún momento tuve la necesidad de centrar un GroupBox en mi formulario en una de las aplicaciones que estaba desarrollando, es por esto que les comparto el siguiente método que funciona con cualquier objeto que deseen centrar...

 

    Private Sub Centrar(ByVal Objeto As Object)

        ' Centrar un Formulario ...   
        If TypeOf Objeto Is Form Then
            Dim frm As Form = CType(Objeto, Form)
            With Screen.PrimaryScreen.WorkingArea ' Dimensiones de la pantalla sin el TaskBar   
                frm.Top = (.Height - frm.Height) \ 2
                frm.Left = (.Width - frm.Width) \ 2
            End With

            ' Centrar un control dentro del contenedor   
        Else
            ' referencia al control   
            Dim c As Control = CType(Objeto, Control)

            'le  establece el top y el Left dentro del Parent   
            With c
                .Top = (.Parent.ClientSize.Height - c.Height) \ 2
                .Left = (.Parent.ClientSize.Width - c.Width) \ 2
            End With
        End If
    End Sub

Lo invocamos de la siguiente manera...

 

   Centrar(GroupBox4)

Y el resultado es el siguiente, en este caso lo aplique para un sencillo mensaje de carga de información a como se muestra en la siguiente imagen...

Espero les funcione, fue un tip pequeño pero puede que sea de gran utilidad para ustedes.
Hasta pronto…

Insertar datos en una tabla mientras no exista en la otra – Oracle

2014-07-11T10:04:00.000-07:00

Hola buenas, hoy día les compartiré algo que en algún momento les será útil a ustedes cuando necesiten insertar registros en una tabla pero que no existan en otra tabla. Pues bien supongamos que tenemos dos tablas una llamada VENTAS perteneciente al esquema CIA1 y la otra tabla llamada CLIENTE perteneciente al mismo esquema. Perfecto, recordarle que para efectos de explicárselos lo hice de esta manera por lo que ustedes lo adaptaran a su conveniencia.
Genial, teniendo claro lo anterior, supongamos que vamos a insertar todos los clientes en la tabla VENTAS siempre y cuando este cliente no esté en esta tabla venta y pertenezca al departamento CONTABLE por lo que la query sería la siguiente:

INSERT INTO CIA1.VENTAS 
(CIA1.VENTAS.COD_CLIENTE,
CIA1.VENTAS.VENTA, 
CIA1.VENTAS.DIA,
CIA1.DEPARTAMENTO,
CIA1.VENTAS.INGRESADO_POR, 
CIA1.VENTAS.INGRESADO_EL)
SELECT 
A.COD_CLIENTE,
'N',
SYSDATE,
A.DEPARTAMENTO
'GMORALES',
SYSDATE
FROM CIA1.CLIENTE A
where
A.DEPARTAMENTO='CONTABLE'
AND not exists 
(SELECT * from CIA1.VENTAS where 
CIA1.VENTAS.DEPARTAMENTO='CONTABLE')

Explicación detallada: Como pueden ver en la consulta se hace la inserción mediante un select de los clientes del departamento CONTABLE y que no estén ya insertados en la tabla ventas, es decir los clientes que no hicieron ventas y pertenecen al departamento CONTABLE son los que se insertaría en la tabla, otra punto importante es que para efectos de esta explicación utilice el not exist enfocado en la misma tabla VENTAS.
Espero que la explicación este un poco clara y entendible, recuerden que la idea es compartir de lo poco que sabemos ya ustedes adaptaran a sus necesidades.
Saludos…

Crear vista con tablas u objetos de otro esquema Oracle - Vistas con tablas de otros Esquemas

2014-06-27T10:24:00.002-07:00

Hola, otra vez por acá compartiendo un poco de información que espero sea útil para ustedes, en esta ocasión veremos cómo crear vistas con tablas que están en otro esquema de la base de datos en Oracle, es decir vamos a crear vista de dos esquemas diferentes en Oracle.
Primero supongamos que tenemos dos esquemas los cuales se llaman:

Perfecto, ahora tenemos una tabla llamada empleado en el esquema ESQ1 y quisieras crear una vista utilizando esta tabla en el esquema ESQ2, entonces tendrías que ejecutar la siguiente sentencia para que te funcione:

GRANT SELECT ON ESQ1.empleado TO ESQ2 WITH GRANT OPTION

Sencillo verdad, bueno quise compartirlo con ustedes por aquello que lo necesiten en algún momento.
Sera hasta la próxima saludos…

Combobox en Datagridview vb.net

2014-06-24T13:41:00.000-07:00

Hola buenas, otra vez por acá compartiendo un poco de conocimiento, hoy les mostrare algo sencillo, en algún momento tuve la necesidad de poner un combobox dentro de un datagridview en visual basic net es por esto que comparto el pequeño tip por si tienes que realizar algo parecido. Entrando en materia primero debemos de agregar el datagridview, acá les muestro el que yo agregue.

Como pueden notar le cambie el encabezado y estoy iniciando con 4 columnas y aún no he agregado la 5 columna con el combobox, además el nombre que le puse al objeto es el que por defecto tiene al momento de agregarlo DataGridView1, pues bien para agregar el combobox se hace a través de código, que a continuación se los muestro y tratare de explicárselos.

Dim tipocentro() As String = {" Reproduccion ", " Produccion "}
Dim cmb As New DataGridViewComboBoxColumn()

cmb.DataSource = tipocentro
cmb.Width = 150
cmb.HeaderText = "Centro"
DataGridView1.Columns.Add(cmb)

Este fragmento de código ustedes pueden ponerlo en el momento que cargan la información al DataGridView1 y de esta manera se cargara el combobox a como se muestra a continuación.

Ya con esto ustedes pueden adaptarlos a sus proyectos dependiendo del trabajo que necesiten realizar.

Saludos.

Seleccionar registros de una tabla que no están en otra SQL Server

2014-06-12T10:37:00.001-07:00

[SQL]Select tabla registros no están en otra tabla

Hola, otra vez por acá compartiendo un par de consultas que pueden ser de mucha ayuda, son sencillas pero para personas que están comenzando en este mundo serian de mucha ayuda, resulta que en algún momento en uno de mis programas necesitaba obtener registros de una tabla pero con la condición que esos registros no estuvieran en otra tabla, existen muchas formas de hacerlo en este post les mostrare tres opciones.

Seleccionar registros de una tabla que no están en otra, Opción 1:

Select * from tabla1 where not exists
(select 1 from tabla2 where tabla2.id = tabla1.id)

Muy importante, si el campo o los campos id de tu tabla esta indexados esta consulta va a ser súper rápida y estará muy optimizada en ese sentido por lo que no te dará problemas.

Seleccionar registros de una tabla que no están en otra, Opción 2:

Select * from tabla1 where tabla1.id 
not in (select tabla2.id from tabla2)

En esta segunda opción veremos el NOT IN, esta segunda opción a mi parecer es ineficiente porque a cada registro se ejecuta el segundo SELECT, Si tu tabla2 es grande notaras de inmediato el tiempo de respuesta de tu server en devolver esta instrucción

Seleccionar registros de una tabla que no están en otra, Opción 3:

Select * from t1 left join t2 on t1.id=t2.id where t2.id is null

También podemos hacer un LEFT JOIN de manera que seleccionaríamos los registros que no ha podido hacer el JOIN.

Son tres opciones interesantes, sé que puede haber más y mejores sentencias con esta finalidad, en lo personal me gustan las opciones 3 y 1, al final prefiero más la 1.

Hasta pronto!

Actualizar o Insertar un Registro en una sentencia ORACLE Y SQL Server

2014-06-12T08:56:00.000-07:00

Hola buenas como están, hoy le compartiré un artículo interesante y útil para todos aquellos que desarrollan día a día, A continuación veremos cómo hacer una inserción o actualización en una misma sentencia(Actualizar o Insertar un Registro en ORACLE Y SQL Server en la misma sentencia), resulta que a partir de la versión 9i de Oracle Database y a partir de SQL Server 2008 se incorpora una novedosa sentencia llamada MERGE(ahora es parte del estándar ANSI SQL). comúnmente cuando queríamos insertar/actualizar una tabla no vacía teníamos que hacer un INSERT o UPDATE, Con MERGE podemos tener esta lógica en una única sentencia SQL y así simplificamos el código.

A continuación les muestro la sintaxis de MERGE:

MERGE TABLA
USING (SELECT @ID AS ID) AS SRC ON SRC.ID = TABLA.ID
WHEN MATCHED THEN
UPDATE SET Campo1 = @Valor
WHEN NOT MATCHED THEN
INSERT (Campo1,ID) VALUES (@Valor,@ID)

En la línea 1 indicamos nuestra tabla en la cual se van a insertar los datos al igual que el select en la línea 2.

En línea 3 y 4 es donde le indicamos que si coinciden los campos anteriores realice entonces una actualización de ese registro, caso contrario en la línea 5 y 6 en donde indicamos que inserte el dato.

Existen varias soluciones para realizar este proceso de inserción o actualización en una sola sentencia ya sea en SQL Server o en Oracle, la siguiente personalmente la utilizaba antes para mis sistemas, pero por eficiencia utilizo mejor MERGE que anteriormente se los explique, de igual manera les comparto la solución.

La estructura de la consulta es la siguiente:

BEGIN
INSERT INTO MITABLA
(CAMPO1,CAMPO2;CAMPO3,CAMPO4) VALUES (1,'2','MIDESCRIPCION','MIDESCRIPCION2');
EXCEPTION
WHEN DUP_VAL_ON_INDEX THEN
UPDATE MITABLA 
SET CAMPO2=22,CAMPO3='OTRADESCRIPCION',CAMPO4='OTRADESCRIPCION'
WHERE CAMPO1='PARAMETRO_ID' ;
END;

En una explicación breve, en la line 2 y 3 le indicamos que realice la inserción común y corriente, lo interesante acá sucede en la línea 4 y 5 que es donde le indicamos que si los campos llaves que definimos en la tabla se duplica entonces esto produce una excepción de duplicidad de llaves por lo que se ejecutara la siguiente instrucción que se refiere 6,7,8 en donde hacemos el UPDATE normal obviamente con el WHERE indicándole también nuestros campos llaves.

Espero les funcione y que les sea de mucha utilidad la información, será hasta la próxima saludos.

Error en SQL 2005 - If possible, restore from backup. If a backup is not available, it might be necessary to rebuild the log

2012-03-12T13:03:00.013-07:00

Hola Buenas, en esta ocasión les compartiré una solución que la verdad les será muy útil cuando se les presente un problema de estos.

Bueno lo primero, solo para comentarles un poco, nuestro servidor de Base de Datos presento problemas con el Sistema operativo por lo que se reinstalo y por ende se debían de hacer los Attach necesarios a las bases de datos en producción o bien cargar los respaldos, en mi caso me incline al realizar el Attach...

Para mi sorpresa todas las bases de datos funcionaron a la perfección con el Attach solo una presento el siguiente error y por ende problemas…

An error occurred while processing the log for database 'DataElekCost'. If possible, restore from backup. If a backup is not available, it might be necessary to rebuild the log.

Could not open new database 'DataElekCost'. CREATE DATABASE is aborted. (Microsoft SQL Server, Error: 9004)

Como se solventa este error ?

Paso 1: Primero debes de crear una base de datos nueva con el mismo nombre a la que esta presentando problemas, luego detienes el servicio del SQL y reemplazas tus archivos .ldf y .mdf, seguido de esto volvemos a iniciar el servicio del SQL y si ingresamos nuevamente al Management Studio la base de datos se mostrara en estado sospechoso

Paso 2: Luego de esto lo que debemos de hacer es poner la base de datos en modo de emergencia (Emergency Mode) y se realiza con siguiente Comando:

ALTER DATABASE NombredetuBasededatos SET EMERGENCY

Al ejecutar este comando, desde el Management Studio el aspecto de nuestra base de datos cambiara a esta…

Paso 3: luego de esto ejecutamos el siguiente comando

Lo que estamos haciendo es pasando nuestra base de datos a SINGLE_USER.

Paso4: Luego de esto ejecutamos el comando DBCC CHECKDB con la opción REPAIR_ALLOW_DATA_LOSS a como se muestra en al imagen

Paso5: Finalizado este proceso debemos de pasar la base de datos de modo Single User a Multi User y lo hacemos con el siguiente comando

ALTER DATABASE SharePoint_Config SET MULTI_USER

Ya con esto tenemos nuestra base de datos lista y accesible

Espero sea de gran ayuda este aporte…

Saludos ;) y hasta la próxima…

Método para eliminar ceros a la izquierda en Visual Net

2011-05-16T16:36:00.000-07:00

Saludos amig@s, en el siguiente post les mostrare un método con la cual ustedes podrán eliminar todos los ceros a la izquierda de una cadena determina, pues bien por ejemplo tenemos lo siguiente:

Dim sinceros as string
sinceros = CadenaSinCeros(cadena)

Donde sinceros es una varible tipo string y CadenaSinCeros() es el método que realizara el procedimiento, dicho método recibirá por parámetro una cadena y retornara el valor pero sin ceros a la izquierda. Por ejemplo supongamos que cadena=000123, al invocar el método y enviar dicha información este retornara 123, pues sin más el método:

    Public Function CadenaSinCeros(ByVal sEntrada As String) As String
        Dim i As Integer, j As Integer, sIntermedio As String
        For j = 1 To Len(sEntrada)
            If Mid(sEntrada, j, 1) <> "0" Then
                sIntermedio = Mid(sEntrada, j)
                Exit For
            End If
        Next
        CadenaSinCeros = sIntermedio
    End Function

Espero les sea de utilidad, a mi me ayudo bastante. Hasta la próxima…

My Computer – Información sobre mi computadora Visual Net 2008

2010-02-07T09:50:00.000-08:00

Este pequeño aporte se refiere a información que podemos obtener al utilizar My Computer y que muchas veces son necesarias en nuestras aplicaciones, a continuación mencionamos algunas…

1 – Para saber la resolución de mi pantalla el utilizamos el siguiente código

MsgBox("La Resolucion de mi Pantalla es " + My.Computer.Screen.Bounds.Width + " x " + My.Computer.Screen.Bounds.Height)

2 – Muy importante, para obtener el directorio en donde se encuentra la aplicación seria

MsgBox(My.Computer.FileSystem.CurrentDirectory)

3 – Importante también es obtener la ruta completa de Mis Documentos

MsgBox(My.Computer.FileSystem.SpecialDirectories.MyDocuments)

4 – Saber si esta activada la tecla mayúscula

MsgBox(My.Computer.Keyboard.CapsLock) ' true si esta activado la mayuscula,false si no esta activado

5 – Hacer ping a una dirección IP

MsgBox(My.Computer.Network.Ping("192.168.1.3")) ' false si no da ping, true si el dispositivo responde

6 – Obtener el total de memoria física del equipo

MsgBox(My.Computer.Info.TotalPhysicalMemory) ''obtiene el total de memoria fisica del equipo

7 – Obtener el Nombre del Sistema Operativo

MsgBox(My.Computer.Info.OSFullName) 'obtiene el nombre del sistema operativo

8 – Obtener el Nombre de mi computador

MsgBox(My.Computer.Name) ' obtiene el nombre de tu computador

Asi de Facil se obtiene informacion referente al equipo, cabe resaltar que para efecto de ejemplo se utilizo el MsgBox pero los valores se pueden obtener y almacenar en variable..

Hasta la Proxima

Ajustar Volumen Pocket PC Visual Basic Net 2008

2010-02-06T22:03:00.000-08:00

En esta ocasión nos enfocaremos a la programación en dispositivos móviles más específicamente en las Pocket PC, para esto daré por hecho que ya han desarrollado algún pequeño “hola mundo” en dicho dispositivo.

Ok perfecto para seguir con el “Tip” primero que nada les comento que esta idea de bajar o subir el volumen a la Pocket PC surgió de un amigo para un proyecto que ya está establecido y que se piensa mejorar.

Primero que todo diseñamos un formulario sencillo como el que se muestra en la imagen:

Bien, recordarles nada más que en mi caso yo al botón le puse el nombre de “bton_volumen” y a los RadioButton “rbt_01”, “rbt_02”, “rbt_03”, “rbt_04”, “rbt_05”, “rbt_06”, respectivamente ya que asi se hace referencia a 6 niveles de volumen, y al formulario le llame "Frm_principal”.

Una vez que diseñamos, primeramente importamos las siguientes librerías a como se muestra en el código siguiente.

Imports System
Imports System.Linq
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms

Perfecto, luego de esto declaramos los siguientes métodos que nos permitirán interactuar mediante la librería “coredll.dll” con el dispositivo, estas métodos van después de “Partial Public Class Form1” no al inicio del código, además si quieren saber más de esta librería no duden en preguntarle a Google que de una vez les adelanto tiene muchas funciones…

<System.Runtime.InteropServices.DllImport("coredll.dll", SetLastError:=True)> _
Public Shared Function waveOutSetVolume(ByVal device As IntPtr, ByVal volume As Integer) As Integer
End Function


<System.Runtime.InteropServices.DllImport("coredll.dll", SetLastError:=True)> _
Public Shared Function waveOutGetVolume(ByVal device As IntPtr, ByRef volume As Integer) As Integer
End Function

Ok en mi caso realice un método que retorna el nivel de volumen dependiendo del “RadioButton” seleccionado, acá el código..

Private Function nivel_volumen(ByVal nivel As Integer) As String


Dim volumen As Integer

Select Case nivel '' dependiendo del numero que se reciba por parametro


Case 0
volumen = 0 ''no hay sonido
Case 1
volumen = 858993459 'volumen bajo
Case 2
volumen = 1717986918 'volumen normal
Case 3
volumen = -1717986919 'volumen medio
Case 4
volumen = -858993460 'volumen alto
Case 5
volumen = -1 'volumen muy Alto

End Select


Return volumen

End Function

Ok excelente solo queda el código que ira en el botón el cual se los muestro a continuación…

  Private Sub bton_volumen_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles bton_volumen.Click


If rbt_01.Checked = True Then
waveOutSetVolume(IntPtr.Zero, nivel_volumen(0)) ' el 0 es para indicarle al case el nivel de volumen
End If

If rbt_02.Checked = True Then
waveOutSetVolume(IntPtr.Zero, nivel_volumen(1))
End If

If rbt_03.Checked = True Then
waveOutSetVolume(IntPtr.Zero, nivel_volumen(2))
End If

If rbt_04.Checked = True Then
waveOutSetVolume(IntPtr.Zero, nivel_volumen(3))
End If

If rbt_05.Checked = True Then
waveOutSetVolume(IntPtr.Zero, nivel_volumen(4))
End If

If rbt_06.Checked = True Then
waveOutSetVolume(IntPtr.Zero, nivel_volumen(5))
End If

End Sub

Una vez esto ejecutamos nuestro código veremos cómo interactuamos con el volumen de la PDA...

Acá todo el código del formulario completo:


Imports System
Imports System.Linq
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms


Partial Public Class Frm_principal


 <System.Runtime.InteropServices.DllImport("coredll.dll", SetLastError:=True)> _
 Public Shared Function waveOutSetVolume(ByVal device As IntPtr, ByVal volume As Integer) As Integer
 End Function


 <System.Runtime.InteropServices.DllImport("coredll.dll", SetLastError:=True)> _
 Public Shared Function waveOutGetVolume(ByVal device As IntPtr, ByRef volume As Integer) As Integer
 End Function

 Private Sub bton_volumen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bton_volumen.Click


     If rbt_01.Checked = True Then
         waveOutSetVolume(IntPtr.Zero, nivel_volumen(0)) ' el 0 es para indicarle al case el nivel de volumen
     End If

     If rbt_02.Checked = True Then
         waveOutSetVolume(IntPtr.Zero, nivel_volumen(1))
     End If

     If rbt_03.Checked = True Then
         waveOutSetVolume(IntPtr.Zero, nivel_volumen(2))
     End If

     If rbt_04.Checked = True Then
         waveOutSetVolume(IntPtr.Zero, nivel_volumen(3))
     End If

     If rbt_05.Checked = True Then
         waveOutSetVolume(IntPtr.Zero, nivel_volumen(4))
     End If

     If rbt_06.Checked = True Then
         waveOutSetVolume(IntPtr.Zero, nivel_volumen(5))
     End If

 End Sub

 Private Function nivel_volumen(ByVal nivel As Integer) As String

     Dim volumen As Integer

     Select Case nivel '' dependiendo del numero que se reciba por parametro

         Case 0
             volumen = 0 ''no hay sonido
         Case 1
             volumen = 858993459 'volumen bajo
         Case 2
             volumen = 1717986918 'volumen normal
         Case 3
             volumen = -1717986919 'volumen medio
         Case 4
             volumen = -858993460 'volumen alto
         Case 5
             volumen = -1 'volumen muy Alto

     End Select


     Return volumen

 End Function
End Class

Ok espero que este tip le ayude montones...

Hasta la Proxima :)

Mover Un Archivo En Net 2008

2009-10-27T19:15:00.000-07:00

Saludo2, una vez más aportando un pequeño ejemplo de cómo mover un archivo, aunque es muy simple no está de más ponerlo.
Primeramente diseñamos un formulario como el siguiente:

Después de esto en la parte de código importaremos la siguiente librería:

Imports System.IO

Nota: Esta librería es muy importante y con ellas se hacen grandes cosas, pero iremos aprendiendo poco a poco.. :)

Después de esto en el evento clic del botón pondremos el siguiente código:

MoveFile(Me.txt_origen.Text, Me.txt_destino.Text)

Como vemos invocamos a un método, este método tendrá el siguiente código:

Public Sub MoveFile(ByVal StartPath As String, ByVal EndPath As String)

Try

FileCopy(StartPath$, EndPath$)
Kill(StartPath$)
Catch ex As Exception
MsgBox(Err.Description, vbExclamation, "Error")
End Try

Exit Sub

En detalle FileCopy realize la copia del archivo(este metodo se encuentra dentro de la librería System.IO) y Kill elimina el archivo que se encuentre en la ruta que le asignes dentro del paréntesis.

A como mencione anteriormente es un pequeño aporte, esto para comenzar a trabajar con esta esta librería...

Mis Primeros Pasos Con XAML

2009-07-04T15:44:00.001-07:00

Acá les dejo un pequeño proyecto que hice para una tarea que me dejaron, es muy interesante en lo personal me gusto mucho...

http://www.mediafire.com/download.php?mx5tgyhnnzd

Saludos y Muchas Bendiciones...

Inspeccionar Cambios En Archivos Y Directorios En C#

2009-05-27T13:06:00.000-07:00

Investigando mas y mas en C# me he dado cuenta de muchas cosas interesantes que nos pueden servir de mucho en nuestras aplicaciones, esta vez explicare lo básico de un objeto llamado fileSystemWatcher, me surgió la necesidad de examinar o mejor dicho inspeccionar los cambios que podían surgir en un directorio, como por ejemplo saber cuando un archivo es eliminado, creado o que su nombre se haya modificado, por lo que este objeto nos facilita esta tarea.

Para efectos de ejemplo primeramente diseñamos un formulario como el siguiente:

A la hora de de diseñar el formulario anterior agregamos el objeto fileSystemWatcher como se muestra en la imagen:

Ahora pasamos al código, en el evento clic del botón que agregamos en el diseño ponemos lo siguiente:

private void bton_Cambios_Click(object sender, EventArgs e)
{
fileSystemWatcher1.Path ="C:/Users/useradministrador/Desktop";
}

En mi caso el boton se llama bton_Cambios, en la propiedad del objeto fileSystemWatcher1.Path evidentemente lo que le estamos asignando es la direccion en la cual se decea inspeccionar, cabe destacar que tambien se le puede asignar un valor en modo de diseño o dinamicamente con el FolderBrowserDialog como lo muestra la figura:

Ahora bien una ves asignada la direccion a inspeccionar falta darnos cuenta que cambios surgen en esa direccion antes fijada para esto solamente basta buscar los metodos que tenda el objeto fileSystemWatcher para las tareas que buscamos, para esto nos ubicamos en la parte de eventos como lo muestra la imagen, más sencillo aun al lado de las propiedades:

Vemos que hay 4 eventos con que cuenta dicho objeto los cuales son: Changed, Created, Deleted, Renamed. Al lado son los nombres que nosotros le asignemos para utilizarlos, igual podeis asignarle el que gusten.

Una vez que le asignemos al evento un nombre, sigue darnos cuenta cuando surge algún cambio en esa dirección que antes asignamos por lo que el código sería el siguiente:

private void system_changed(object sender, System.IO.FileSystemEventArgs e)
{
MessageBox.Show("El Archivo o Carpeta "+e.Name+ " Ha Cambiado");
}

private void system_created(object sender, System.IO.FileSystemEventArgs e)
{
MessageBox.Show("El Archivo o Carpeta " +e.Name+ " Ha Sido Creado");
}

private void system_deleted(object sender, System.IO.FileSystemEventArgs e)
{
MessageBox.Show("El Archivo o Carpeta " +e.Name+ " Ha Sido Borrado");
}

private void system_renamed(object sender, System.IO.RenamedEventArgs e)
{
MessageBox.Show("El Archivo o Carpeta " +e.Name+ " Ha Sido Renombrado");
}

Vemos que el nombre de cada evento es el nombre que antes asignamos, entonces al darle clic al botón que está en el formulario, este asignara la dirección y estos eventos se pondrán a la “escucha” de cualquier cambio por lo que si surge alguno mostrara un mensaje en pantalla, además hay que enfatizar que e.name contiene el nombre del archivo o carpeta que se creo, elimino o modifico .

Tal vez se preguntaran pero esto ¿para qué? bueno, creo que poniendo de ejemplo mi caso esto me sirvió de mucho para almacenar en una base de datos que usuario de la PC eliminaban archivos txt que contenían datos importantes para el sistema que estaba desarrollando..

Que DIOS les bendiga, y espero les sea de utilidad este tip :)

Envio de Correos Desde C#

2009-05-10T18:26:00.001-07:00

Hola de nuevo, he estado aprendiendo poco a poco el lenguaje de programación C# que dia a dia me gusta más, en este primer artículo os enseñare a enviar un correo electrónico desde un programa hecho en esta poderosa herramienta con que contamos los desarrolladores ..
En primer lugar diseñamos una ventana más o menos como esta…

Una ves diseñada esta ventana en el botón enviar programamos lo siguiente:

System.Net.Mail.MailMessage msg = new System.Net.Mail.MailMessage();
msg.To.Add("destinatario@hotmail.com");
msg.From = new MailAddress("emisor@gmail.com", "Usuario", System.Text.Encoding.UTF8);
msg.Subject = "ES UNA PRUEBA";
msg.SubjectEncoding = System.Text.Encoding.UTF8;
msg.Body = "HOLA HOLA ES UNA PRUEBA";
msg.BodyEncoding = System.Text.Encoding.UTF8;
msg.IsBodyHtml = false;

String sFile = @"C:\Users\Programador\Desktop\Enviar_Correos\DocAdjunto.docx";
Attachment oAttch = new Attachment (sFile);
msg.Attachments.Add(oAttch);
SmtpClient client = new SmtpClient();
client.Credentials = new System.Net.NetworkCredential("emisor@gmail.com", "clavecredenciales");
client.Port = 587;
client.Host = "smtp.gmail.com";
client.EnableSsl = true;
try
{
client.Send(msg);
}
catch (System.Net.Mail.SmtpException)
{
MessageBox.Show("Error");
}
Los Puntos más importantes a destacar aquí son los siguientes:

1 - En Este punto agregamos el correo a donde enviaremos la información

msg.To.Add("destinatario@hotmail.com");

2 - Aca asignaremos el correo de donde envio el mensaje en este caso es en gmail, igual pueden utilizar el de hotmail etc, aparte en Usuario pueden poner su nombre o cualquier otra palabra, esta se mostrara a la persona que le llegue el e-mail

msg.From = new MailAddress("emisor@gmail.com", "Usuario", System.Text.Encoding.UTF8);

3 – Aca escribimos el asunto del correo electronico a enviar

msg.Subject = "ES UNA PRUEBA";

4 – Asi como el mensaje a enviar

msg.Body = "HOLA HOLA ES UNA PRUEBA";

5 – Muy interesante si deseas adjuntar algun archivo solamente le asignas la direccion del mismo, cabe mencionar que puedes utilizar controles para que las direcciones de los archivos no sean fijas por ejemplo el OpenFileDialog que trae Visual Studio

String sFile = @"C:\Users\Programador\Desktop\Enviar_Correos\DocAdjunto.docx";
Attachment oAttch = new Attachment (sFile);
msg.Attachments.Add(oAttch);

6 – Los credenciales es muy importante, en este caso seria tu cuenta en gmail asi como tu contraseña de acceso, el puerto varia depende del servidor smtp ademas esta direccion smtp varia tambien dependiendo de que correo desees utilizar para hacer uso de la herrramienta

SmtpClient client = new SmtpClient();
client.Credentials = new System.Net.NetworkCredential("emisor@gmail.com", "clavecredenciales");
client.Port = 587;
client.Host = "smtp.gmail.com";

Esto adaptado al diseño del formulario se veria algo asi:

Importante ¡¡¡ no se les olvide importar las siguiente librerias...

using System.Collections;
using System.Net;
using System.Net.Mail;
using System.Net.Mime;

Listo¡¡¡ asi de facil se envian correos electronicos desde C#

Hasta la Proxima ¡¡¡¡

-->

Envío de Correos Desde SQL Server 2005

2009-03-22T08:47:00.000-07:00

Saludos Amigos, esta vez explicare de manera sencilla como enviar un correo electrónico desde nuestro servidor de base de datos SQL SERVER 2005.
Como primer requisito tenemos que ir a la opción del menú de Microsoft SQL Server 2005 >> Configuration Tools >> SQL Server Surface Area Configuration.. Más fácil como lo muestra la siguiente imagen.

Inmediatamente aparecerá la ventana de configuración en donde ustedes darán clic en Surface Area Configuration for Features.

En la ventana que se habre aparecerá un árbol de opciones por decirlo de algún modo, ustedes seleccionaran Database Mail y habilitaran la opción Enable Database Mail stored procedures

La otra opción que tienen que seleccionar es SQL Mail y habilitar la opción Enable SQL Mail stored procedures como lo muestra la imagen…

Excelente¡¡¡ hasta el momento están habilitadas las opciones para el envio de correos electrónicos nos falta configurar una cuenta y un perfil, esto para poder enviar nuestros correos electrónicos.
OK ahora necesitamos tener los siguientes datos (Que son los mismos necesarios para configurar una cuenta en Microsoft Outlook)
a) Dirección de Correo Electrónico
b) Un SMTP (Protocolo Simple de Transferencia de Correo)
Muchas veces los servidores SMTP requieren de autenticación (esto para confirma que son sus usuarios lo que están utilizando sus servidores) esto es solamente que ustedes faciliten sus correos y su respectiva contraseña…

Muy Bien¡¡¡ teniendo claro todo esto, ya con estos datos a la mano entonces ejecutamos el SQL Server Management Studio y nos vamos a Management >> Database Mail le damos clic derecho y seleccionamos la opción Configure Database Mail como lo muestra la imagen.

Muy bien ahora aparecerá un asistente al cual en la primera pantalla le daremos siguiente, después aparecerá otra la cual la dejamos con la opción que aparece por “Default” lo que nos dice es que se creara un nuevo perfil en donde especificaremos los SMTP etc.

Bien ahora nos aparecerá esta pantalla, acá en el campo Profile name le ponemos un nombre al perfil seguido de alguna descripción que ustedes quieran (muy importante recordar el nombre del Profile) en mi caso le puso al perfil ProfileCorreo. Seguido de esto debemos de crear una cuenta SMTP al perfil para esto presionamos el botón Add…

Al presionar el botón aparecerá la siguiente pantalla en donde debemos de ingresar la Account name (nombre de cuenta, poner la que gusten), la Description , E-Mail address (Correo a utilizar para enviar los E-Mails), Display name (Nombre a Mostrar a la persona que le llegue el Correo), Reply e-mail (correo electrónico de respuesta, por lo general seria el mismo de E-Mail address) Server Name ( Seria el Nombre del Servidor, acá pondrían el SMTP) , además si se requiere autentificación seleccionar Basic authentication (En esos campos iría su correo electrónico en User name y su contraseña que utiliza para abrirlo), más específicamente en la siguiente imagen...

Después de insertar los datos necesarios presionamos ok, vemos como nuestra cuenta se agrega en la ventana de configuración...

Presionamos siguiente y aparecerá una ventana similar al en la cual seleccionamos la cuenta que acabamos de crear y consecutivamente le damos siguiente...

Luego de esto presionamos siguiente, y aparecerá otra ventana de parámetros, la dejamos tal como está y presionamos nuevamente siguiente, seguidamente aparecerá una ventana de todas las acciones que acabamos de aplicar a la cual le damos también finalizar…
Si todo lo hemos hecho bien y al pie de la letra aparecerá esta ventana en la cual se configurara todo lo anterior aplicado por lo que no debe de surgir ningún error… entonces presionamos el botón cerrar.

Excelente¡¡¡¡ ahora solo nos queda enviar un correo electrónico de prueba, por lo que nos dirigimos a Management >> Database Mail le damos clic derecho y seleccionamos la opción Sent Test E- Mail como lo muestra la imagen.

Nos mostrara una Ventana en donde seleccionamos el perfil que creamos anteriormente, ingresamos el correo electrónico al que queremos enviar el mensaje seguido del asunto y del cuerpo en si del correo, después de esto presionamos Send Test E-Mail

Solo nos queda esperar a que nos llegue el correo electrónico a nuestro buzón… y listo ya tenemos el SQL Server 2005 configurado para el envío de E-Mails…

Ahora se preguntaran ¿?? Y para que sirve todo lo que acabamos de hacer jajaja…. Pues bien en otra ocacion les enseñare la gran utilidad que tiene todo lo anterior explicado…

Referencia
http://www.kodyaz.com/articles/sql2005-database-mail.aspx

Que la Pasen de lo Mejor¡¡¡ Muchas Bendiciones…..

Visual Studio 2010 y .NET Framework 4.0

2009-03-17T14:22:00.000-07:00

Asi es Señores, el totalmente nuevo Visual Studio 2010 viene de camino junto con el Framework 4.0 aca les dejo los primeros screenshots de la nueva version que lanzara microsoft, es una interface muy atractiva y amigable, aparte de eso las funcionalidades y mejoras son muy buenas, creo que nos gustara a todos o por lo menos a los que desarrollamos utilizando esta herramienta, desde ya les aconsejo ahorren para adquirir computadora nueva o para invertir en RAM....

Modulo de Inicio de Visual Studio 2010

La Sección Para Los Proyectos de Visual Studio 2010

Screenshots de la nueva version (Visitenla les Gustara...)

http://blogs.msdn.com/jasonz/archive/2009/02/20/a-new-look-for-visual-studio-2010.aspx

Paginas Oficiales de Microsoft con información

http://www.microsoft.com/visualstudio/en-us/products/2010/default.mspx

http://www.microsoft.com/presspass/press/2008/sep08/09-29VS10PR.mspx

http://channel9.msdn.com/posts/VisualStudio/Visual-Studio-Team-System-2010-Week-on-Channel-9/

El Blog de Windows 7

2009-03-14T17:37:00.000-07:00

Si eres amante de la informatik, entonces te gusta ir de la mano tanto de los avances de hardware y software, aca les dejo un aporte en donde podran tener información al día de lo que sucede con el nuevo sistema de microsoft... el tan esperado WINDOWS 7

http://blogs.msdn.com/e7/

Espero les guste, encontraran información muy interesante.....

Comprimir Varios Archivos En Visual Basic 2008

2009-03-14T15:58:00.000-07:00

Ahora que tengo toda la juventud por delante me he propuesto aprender todo cuanto se me ocurra esto porque a como me dijo un compañero debemos de ser competitivos...

Bueno resulta que surgio la gran pregunta entre los compañeros de trabajo ¿Como Comprimo archivos en VB2008?, esto porque lo necesitábamos para la realización de un proyecto por lo que despues de Googlear un rato esto fue lo que me encontre....

Resulta que existe un dll muy interesante y sobre todo facil de utilizar (que es como nos gusta a todos) que nos ayuda a realizar este procedimiento esta dll la podes descargar en el siguiente vinculo:

http://www.codeplex.com/DotNetZip/Release/ProjectReleas es.aspx?ReleaseId=8220

Esta dll es muy efectiva para la compresion de archivos en zip por lo que es muy importante aprender su uso....

Ok, una vez descargada la libreria procedemos a Realizar un nuevo proyecto:

Una vez hecho el proyecto diseñamos algo como lo siguiente... y agregamos la referencia de la dll...

Buscamos la dll (yo la tenia en el escritorio) y la agregamos.

Ahora viene lo interasante (lo que nos preocupa a todos) el codigo, una vez hecho todo lo anterior procedemos a importar la libreria a como muestra la siguiente imagen, ademas notemos que se concatena el TextDirzip con TextName mas .zip esto para darle la direccion de donde guardar nuestro zip asi como el nombre y la extencion.
Por otra parte en el metodo zip.addDirectory se le asigna la direccion de donde estan los archivos a comprimir y lo que hay entre comillas es para que comprima todo lo que tenga dicha carpeta...

Ejecutamos nuestro proyecto y asignamos los valores....

Precionamos el boton comprimir....... y se comprimen nuestros archivos, en este caso dentro de la carpeta "Archivos a Comprimir" yo tenia solo archivos txt.

Muy facil verdad¡¡¡ asi de facil esta dll nos ayuda a realizar este procedimiento.

Muchas Bendiciones, Hasta la Proxima :)

Obtener Estructura de una Tabla (Metadatos) en SQL Server 2005

2008-10-30T20:02:00.000-07:00

Cada vez que surge un problema obviamente se debe de buscar la solución, pues eso es lo que hicimos ya que necesitábamos realizar una consulta de esta índole y después de mucho buscar el resultado fue el siguiente.

Primeramente tenemos esta nuestra base de datos llamada “Universidad” y una tabla llamada “Estudiantes”

Ahora si aplicamos esta Consulta devolverá los nombres de los Campos de una tabla, tipo de Dato de un Campo, Si permite Null y el tamaño, cabe mencionar que tienes que sustituir “Universidad” por el nombre de tu base de datos y “Estudiantes” por el nombre de la Tabla…

SELECT

COLUMN_NAME AS Nombre_Campo,

data_type AS Tipo_Dato,

is_nullable AS Permite_Null,

Character_Maximum_length as Tamaño_campo

FROM

Universidad.INFORMATION_SCHEMA.COLUMNS

WHERE

table_name = 'Estudiantes'

Entonces el Resultado sería el Siguiente:

Que se diviertan :)

Cómo cambiar el Idioma del IDE en Visual Studio 2005 ?

2008-09-22T11:09:00.000-07:00

Es muy interesante saber que muchos no sabemos cómo cambiar el Idioma del IDE en Visual Studio 2005 y ahí por eso que este aporte…

Primeramente Ejecutamos Visual Studio 2005 como se Muestra en la Imagen

Luego nos dirigimos a Tools o Herramientas en Español y presionamos Click como se muestra en la Imagen

Ahora nos aseguramos que la opción Show all settings (Mostrar todas las configuraciones) este seleccionada

Enseguida seleccionamos International Settings y en language seleccionamos en este caso Español…

Nos mostrara este mensaje que nos dice que debemos de reiniciar el entorno para que los cambios surgan efecto, entonces lo reiniciamos y a continuación nuestro entorno en español.

Se que el Aporte no es muy util pero para aquellos que no lo sabian pos ahi lo tienen.. Que la pasen Bien........................................................................

Personalizar un Punto de Interrupción

2008-09-22T10:51:00.000-07:00

Sabemos que los puntos de Interrupción son muy importantes a la hora de realizar una aplicación esto porque con ellos podemos detener la ejecución en un determinado lugar, este aporte pretende personalizar los puntos de interrupción…

Primeramente para poner un punto de interrupción debemos de dar clic al lado derecho del código o presionar la tecla F9 como muestra la Figura

Seguidamente presionamos clic derecho sobre el punto de interrupción y nos aparecerá un menú contextual como el siguiente, entonces nos dirigimos a la opción “al visitar…”

Seguidamente nos aparecerá la siguiente ventana en donde seleccionamos la opción “Imprimir un Mensaje” y borramos lo que aparece por defecto, luego ponemos la variable que queremos inspeccionar a la hora que la ejecución llegue a ese punto de interrupción como lo muestra la imagen y presionamos aceptar…

Con esto logramos que se anote en la ventana de depuración mucha información interesante e incluso decirle que continúe la ejecución como si no fuera un punto de interrupción, lo cual nos permite continuar de forma transparente pero inspeccionando nuestras variables...

Espero que este aporte les haya sido de provecho, que la pasen Bien....