Filtrar Datos en DataGridView .Net y Sql Server con AppSettings

Unknown 11:27:00 Add Comment Visual Studio.Net Edit

En este post aprenderás a Filtrar Datos en un Datagridview utilizando Visual Studio.Net con un motor de base de datos en Sql Sever, y también utilizando el Appsettings que nos ayudara a guardar la conexión a la base de datos.

Si no puedes utilizar el Appsetings dirigirte a este post donde encontraras un tutorial rápido para que lo implementes rápidamente: AppSettings

Continuamos :

Creamos la base de datos en Sql Server

use master
go
CREATE TABLE dbo.Clientes
(CODIGO varchar(10) PRIMARY KEY NOT NULL,
NOMBRE varchar(50) NOT NULL,
APELLIDO VARCHAR(50) NULL,
DIRECCION varchar(50) NULL,
CORREO varchar(50) NULL,
TELEFONO varchar(50) NULL,
)
GO

Creamos una nueva aplicacion de Windows Form

Agregamos un Modulo al proyecto

Agregamos las siguientes referencias y las importamos a nuestro modulo

Imports System.Configuration

Imports System.Data.SqlClient

Creamos la Coneccion para interactuar con Sql Server llamada "ConecBD"

Utilizamos nuestra coneccion creada en nuestro modulo

Private StrSQL As String = ConfigurationManager.ConnectionStrings("ConecBD").ToString

Pegamos lo siguiente en el modulo

Imports System.Configuration
Imports System.Data.SqlClient

Module Mod_Fun
    Private oCnn As SqlConnection

Private StrSQL As String = ConfigurationManager.ConnectionStrings("ConecBD").ToString

Private OCmd As SqlCommand
    Private OAdap As SqlDataAdapter
    Private ODts As DataSet
    Private oDtr As SqlDataReader

Public Sub Conexion()
        Try
            oCnn = New SqlConnection(StrSQL)
            oCnn.Open()

'If oCnn.State = ConnectionState.Open Then
            '     MessageBox.Show("Conexión con éxito", "SISINVEVTARIO", MessageBoxButtons.OK, MessageBoxIcon.Information)
            ' End If

Catch ex As Exception
            MessageBox.Show("Ha ocurrido un error:" & ex.Message, "Tutoriales CyC", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

End Sub
    Public Sub Ejecutar(ByVal sql As String)
        Try
            '----conectando con el servidor
            Conexion()
            OCmd = New SqlCommand(sql, oCnn)
            OCmd.ExecuteNonQuery()

Catch ex As Exception
            MessageBox.Show("Ha ocurrido un error:" & ex.Message, "Tutoriales CyC", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

End Sub
    Public Function Busqueda(ByVal sql As String) As DataSet
        Try
            Conexion()
            OAdap = New SqlDataAdapter(sql, oCnn)
            ODts = New DataSet
            OAdap.Fill(ODts)
            Return ODts
        Catch ex As Exception
            MessageBox.Show("Ha ocurrido un error:" & ex.Message, "Tutoriales CyC", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Function
End Module

lo siguiente en el formulario

Public Class Frm_Filtrar
    Dim odtsBusq As New DataSet
    Dim sql As String

Private Sub Frm_Filtrar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        sql = "Select * from Clientes"
        odtsBusq = Busqueda(sql)
        DataGridView1.DataSource = odtsBusq.Tables(0)
        sql = ""
        ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
        With ComboBox1.Items
            .Add("CODIGO")
            .Add("NOMBRES")
            .Add("APELLIDOS")
            .Add("DIRECCION")
            .Add("CORREO")
            .Add("TELEFONO")
        End With
        ComboBox1.Text = "CODIGO"

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        sql = "Select * from Clientes WHERE " & ComboBox1.Text & " LIKE '" & TextBox1.Text & "%'"
        odtsBusq = Busqueda(sql)
        DataGridView1.DataSource = odtsBusq.Tables(0)
        sql = ""
    End Sub
End Class

Salida del programa

Descarga aqui

Sígueme en:

Facebook: http://goo.gl/MCf8WE

Google:http://goo.gl/xrEnNy

Pagina Web FB:http://goo.gl/CSV4eV

Blog:http://goo.gl/wJB3IY

Bienvenidos, aquí encontraras mucha información de las TICs

Filtrar Datos en DataGridView .Net y Sql Server con AppSettings

CONVERSATION

0 Comentarios:

Autor

Buscar en la página

Pinterest Gallery

Instagram Shots

Tweet Tweet

About Me

Temas

Bienvenidos, aquí encontraras mucha información de las TICs

Filtrar Datos en DataGridView .Net y Sql Server con AppSettings

CONVERSATION

0 Comentarios:

Autor

Buscar en la página

Seguir a AppsJmc

Popular Posts

Pinterest Gallery

Instagram Shots

Tweet Tweet

About Me

SUSCRÍBETE AL BLOG Y ENTÉRATE DE LAS NUEVAS TECNOLOGÍAS CON RESPECTO A LA PROGRAMACIÓN Y MÁS QUE ESPERAS, SUSCRÍBETE AHORA ▼

Temas

SUSCRÍBETE AL BLOG Y ENTÉRATE DE LAS NUEVAS TECNOLOGÍAS CON RESPECTO A LA PROGRAMACIÓN Y MÁS QUE ESPERAS, SUSCRÍBETE AHORA
▼