AUTO-COMPLETAR UN TEXTBOX

MODULO

Imports System.Data.Sql

Imports System.Data.SqlClient

Module CONEXION

    Public CONEXIONES As SqlConnection

    Public ENUNCIADO As SqlCommand

    Public RESPUESTA As SqlDataReader

    'FUNCION DE CONEXION A LA BASE DE DATOS'

    '**********************************************************

    Sub ABRIRCONEXION()

        Try

            CONEXIONES = New SqlConnection("DATA SOURCE=LOCALHOST;INITIAL CATALOG=TUTORIAL;INTEGRATED SECURITY=TRUE")

            CONEXIONES.Open()

            MsgBox("CONEXION EXITOSA", MsgBoxStyle.Information, "SE HA CONECTADO CORRECTAMENTE") '

        Catch EX As Exception

            MsgBox("ERROR AL REALIZAR LA CONEXION" & EX.Message, MsgBoxStyle.Critical, "ERROR DE CONEXION")

            CONEXIONES.Close() 'CIERRA LA CONEXION'

        End Try

    End Sub

    'LLENA UN TEXBOX CON OPCIONES DE AUTOCOMPLETAR'

    Sub AUTOCOMPLETARTEXBOX(ByVal CAMPOTEXTO As TextBox)

        Try

            ENUNCIADO = New SqlCommand("SELECT IDENTIFICACION FROM EMPLEADOS", CONEXIONES)

            RESPUESTA = ENUNCIADO.ExecuteReader()

            While RESPUESTA.Read

                CAMPOTEXTO.AutoCompleteCustomSource.Add(RESPUESTA.Item("IDENTIFICACION"))

            End While

            RESPUESTA.Close()

        Catch EX As Exception

            MsgBox(EX.ToString)

        End Try

    End Sub

End Module

NOTA:

***EN LA PROPIEDAD AUTOCOMPLETESOURCE DEL TEXTBOX DONDE SE DESEA AGREGAR LA FUNCION DE AUTOCOMPLETAR SE DEBE COLOCAR EN CUSTOMSOURCE

***PARA APLICAR LA EN EL TEXTBOX LA PROPIEDAD AUTOCOMPLETARTEXBOX DEBERÁN COLOCAR EL SIGUIENTE CÓDIGO EN EL FORM_LOAD:

ABRIRCONEXION() 'PARA ABRIR LA CONEXION’

AUTOCOMPLETARTEXBOX(TXTCAMPO) 'Y DENTRO DE LOS PARÉNTESIS EL NOMBRE DEL COMPONENTE TEXTBOX AL QUE DESEAN APLICAR EL PROCEDIMIENTO’

   
**EN LA PROPIEDAD AUTOCOMPLETEMODE DEL TEXTBOX DONDE SE DESEA AGREGAR LA FUNCIÓN AUTOCOMPLETAR SE DEBE COLOCAR EN ALGUNA DE LAS SIGUIENTES 3 OPCIONES:

1.       APPEND :  ESTA PROPIEDAD HARÁ QUE LA FUNCIÓN DE AUTOCOMPLETAR SE REALICE DE LA SIGUIENTE MANERA:

2.       SUGGEST:  ESTA PROPIEDAD HARÁ QUE LA FUNCIÓN DE AUTOCOMPLETAR SE REALICE DE LA SIGUIENTE MANERA:

3.       SUGGESTAPPEND: ESTA PROPIEDAD HARÁ QUE LA FUNCIÓN DE AUTOCOMPLETAR SE REALICE DE LA SIGUIENTE MANERA: