Autenticación de usuarios de Dominio con Visual Basic.Net

En esta oportunidad les muestro un ejemplo de un formulario de inicio de sesión validando el usuario contra un servidor de dominio LDAP (Active Directory).

 

Convertir Código C# a Visual Basic.Net y viceversa.

En esta ocasión les comparto un par de sitios donde pueden traducir código C# a Visual Basic.Net y viceversa, muy útil cuando encontramos ejemplos de cómo solventar alguna tarea que queremos codificar pero lo encontramos en C# y lo necesitamos en VB.Net.

Guardar imágenes en MySQL usando VB.Net

En este ejemplo les mostrare como guardar imágenes en una tabla de mysql desde una aplicación de visual basic.net 2005, en este ejemplo usare una tabla a la cual le llamó «tbl_imagenes» con dos campos: «ID» de tipo Int e «imagen» de tipo longblob, un control PictureBox para mostrar la imagen y el proveedor de conexión para mysql «MySQL ConnectorNet» el cual lo puedes descargar desde la pagina de MySQL, este conector lo que te provee es una dll «Mysql.Data.dll» hay dos tipos, uno instalable y otro que solo te descarga la dll, en ambos casos solo debes agregar una referencia en tu projecto de vb.net de la dll, en el caso de haber instalado la dll y otros archivos adicionales debes buscar la dll en «C:\Archivos de programa\MySQL\MySQL Connector Net 5.2.5\Binaries\.NET 2.0».

‘

Antes de ver el ejemplo te explico brevemente el tipo de datos blob de mysql.  Blob es un tipo de datos u objeto binario que se usa para almacenar precisamente valores binarios, las columnas blob se tratan como cadenas de caracteres binarias (byte), hay cuatro tipos: TINYBLOB, BLOB, MEDIUMBLOB, y LONGBLOB.

‘

‘

TINYBLOB: Longitud de 0 a 255.

BLOB: Longitud máxima de 65535.

MEDIUMBLOB: Longitud máxima de 16,777,215.

LONGBLOB: Longitud máxima de 4,294,967,295.

‘

‘

Simple mantenimiento con Visual Basic 2010 y access 2010

Para ver y descargar el documento con el código ejemplo en SlideShared.

Código:

Agregando funcionalidad a los TextBox’s en VB.Net

Cuando desarrollamos nuestras aplicaciones de escritorio usando Visual Basic.Net, es típico usar cajas de texto y es de mucha utilidad ponerle algunas caracteristicas y funcionalidades para darle una mejor presentación y comodidad al manejo de la aplicación por parte del usuario final.

He aquí unos ejemplos:

a) Texbox que solo admita letras (Evento KeyPress).

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As _

‘                                  System.Windows.Forms.KeyPressEventArgs) _

‘                                                                 Handles TextBox1.KeyPress

‘     If Char.IsLetter(e.KeyChar) Then

‘          e.Handled = False

‘     ElseIf Char.IsControl(e.KeyChar) Then

‘          e.Handled = False

‘     ElseIf Char.IsSeparator(e.KeyChar) Then

‘          e.Handled = False

‘     Else

‘          e.Handled = True

‘     End If

End Sub

b) Enviar el foco al siguiente texbox o cualquier otro control (Evento KeyPress).

Opción 1: Ojo que en éste caso se basa en el orden de tabulación de los controles

Private Sub TextBox1_KeyPress(ByVal sender As Object, _

‘                                 ByVal e As System.Windows.Forms.KeyPressEventArgs) _

‘                                                                                                           Handles TextBox1.KeyPress

‘     If e.KeyChar = ChrW(Keys.Enter) Then

‘          e.Handled = True

‘          SendKeys.Send(«{TAB}»)

‘     End If

End Sub

Opción 2: Aquí le indicas  hacia que control enviaras el foco.

Private Sub TextBox1_KeyPress(ByVal sender As Object, _

‘                                  ByVal e As System.Windows.Forms.KeyPressEventArgs) _

‘                                                                                                                Handles TextBox1.KeyPress

‘     If Asc(e.KeyChar) = 13 Then    ‘Si es igual a presionar la tecla Enter

‘          Me.TextBox2.Focus()

‘     End If

End Sub

c) Seleccionar todo el texto del Texbox al recibir el foco (Evento Enter).

‘Private Sub TexBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs)               ‘                                                                                                                                                       Handles TexBox1.Enter

‘     Me.TexBox1.SelectAll()

‘End Sub

d) Convertir texto a Mayúsculas o Minúsculas (Evento TextChanged)

‘ Mayúsculas

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, _

‘                                                                                                       ByVal e As System.EventArgs) _

‘                                                                                                                           Handles TextBox1.TextChanged

‘     TextBox1.CharacterCasing = CharacterCasing.Upper

End Sub

‘Minusculas :

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, _

‘                                                                                                ByVal e As System.EventArgs) _

Handles TextBox1.TextChanged

‘     TextBox1.CharacterCasing = CharacterCasing.Lower

End Sub

e) Limpiar el contenido de todos los Texbox de un formulario.

‘Procedimiento:

Private Sub Limpiar_Cajas(ByVal f As Form)

‘ recorrer todos los controles del formulario indicado

‘     For Each c As Control In f.Controls

‘           If TypeOf c Is TextBox Then

‘                c.Text = «» ‘ limpiar el texto

‘          End If

‘     Next

End Sub

‘Ejecutando el procedimiento en un Botón

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

‘

‘     Limpiar_Cajas(Me)   ‘le indicas el formulario en el parametro

End Sub

f) Evaluar teclas de funcion o tecla precionada (evento KeyDown).

Private Sub TexBox1_KeyDown(ByVal sender As System.Object, ByVal e As _

‘                                                         System.Windows.Forms.KeyEventArgs) Handles TexBox1.KeyDown

‘

‘     If e.KeyValue = Keys.F1 Then

‘          Dim forma As New FrmAyuda

‘          forma.ShowDialog()

‘     End If

‘

End Sub

Espero les sea de utilidad estos pequeños ejemplos.

Conexión a una base de datos MySql con Visual Basic.Net

En esta ocasión te muestro una forma sencilla de conectarse a un servidor de base de datos MySql desde Visual Basic.Net mediante ODBC.

Lo primero que tienes que hacer es descargarte de http://dev.mysql.com/downloads/ el MySql Conector/ODBC y luego lo instalas siguiendo los pasos del asistente de instalación.

Luego configuras el dsn (Data Source Name) en el los orines ODBC en Herramientas administrativas del Panel de Control:

Seleccionas la pestaña “DSN desistema”, click en “Agregar…”, se mostrara una nueva ventana, seleccionas de la lista “My Sql ODBNC x.xx Driver” y das click en “Finalizar”, como se muestra en la imagen.

Luego te aparecerá la siguiente ventana:

Donde:

Data source name: Nombre del dsn.

Descripción: Descripción de la conexión.

Server: Nombre o Ip del servidor de MySql.

User: Usuario de la base de datos.

Password: Contraseña del usuario de la base de datos.

Database: Nombre de la base de datos.

Con el botón “Test” pruebas la conexión, das click en “OK”, luego en aceptar.

Código Visual Basic para la conexión

Ejemplo de código que puedes utilizar para la conexión a la base de datos MySQL usando el ODBC.

Imports System.Data.Odbc

Module conexion

Public conectado As Boolean

Public cn As OdbcConnection

Public Sub conectar()

Try

cn = New OdbcConnection(«dsn=BDtest»)

cn.Open()

If cn.State = ConnectionState.Open Then

conectado = True

Else

conectado = False

End If

Catch ex As Exception

MsgBox(ex.Message, «Error de conexion.»)

End Try

End Sub

Public Sub desconectar()

Try

If cn.State = ConnectionState.Open Then

cn.Close()

cn.Dispose()

conectado = False

End If

Catch ex As Exception

MsgBox(ex.Message, «Error de conexion.»)

End Try

End Sub

End Module