- - - * * * * * * Llenado de DATAGRIDVIEW con DATATIMEPICKER en VB .NET * * * * * * - - -

 - - - * * * * * * Llenado de DATAGRIDVIEW con DATATIMEPICKER en VB .NET con SQLSERVER* * * * * * - - -

Llenar una DataGridView usando 2 DataTimePicker

Se crea un nuevo proyecto con lo siguiente:

*1 DataGridView-    Nombre: DataGridView1
*3 Labels-              
                                 Nombre: Label1,    Texto: "De:"
                                 Nombre: Label2,    Texto:"A:",
                                 Nombre: Label3,    Texto: "Cadena de Busqueda"

*1 Button-                Nombre: Button1     Texto: "Buscar"
*1 TextBox-             Nombre: TextBox1   MultiLine: "TRUE"
*2 DateTimePicker  Nombre: DateTimePicker1
                                 Nombre: DateTimePicker2


------------------CODIGO-----------------
Nota:  Se puede copiar y pegar TODO el código para no tener problemas, solo hay que borrar lo que VB pone por default.

Hay que cambiar el SERVIDOR, USUARIO, CONTRASEÑA y BASEDEDATOS

Imports System.Data.SqlClient

Public Class Form1

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

        'Se usa la funcion para llenar sueldos

        llenarTablaSueldos()

End Sub

    ''////LLenar la tabla

Private Sub llenarTablaSueldos()

        Try

            'Label cadena de busqueda se llenan con datos de los 2 DateTimePicker

            Dim CadenaDeBusqueda As String = "Select * from sueldos where id = 'E701' and fecha between '" & DateTimePicker1.Value.Date.ToString("yyyy-MM-dd") & "' and '" & DateTimePicker2.Value.Date.ToString("yyyy-MM-dd") & "'"

            'En esta linea se agregan la cadena de busqueda  y  el nombre del DataGridView

            Sql_llenarTabla(CadenaDeBusqueda, DataGridView1)

            'Se muestra la cadena usada dentro de un texbox para detectar errores

            TextBox1.Text = CadenaDeBusqueda

        Catch ex As Exception

            MsgBox("Debe elejir un empleado! " & ex.Message, vbExclamation + vbOKOnly)

        End Try

End Sub

    '//////Funcion de llenado de datos en un datagrid

Sub Sql_llenarTabla(ByVal comando As String, ByVal tabla As DataGridView)

        'Datos para hacer la conexion a la base de datos

        Dim Coneccion As New SqlClient.SqlConnection("Server=ERIOLMKBF48\ERIOLSERVER" + ";UID=Eriolmk;PWD=Ner456ty4;Database=midori")

        Dim da As SqlDataAdapter

        Dim ds As DataSet

        da = New SqlDataAdapter(New SqlCommand(comando, Coneccion))

        ds = New DataSet

        'El try es para probar la conexion, si falla es porque no hay conexion al servidor

        Try

            da.Fill(ds, "EriolTest1") 'Se le da un Nombre Arbitrario a la tabla

            Coneccion.Open() 'Se abre la conexion

            tabla.DataSource = ds.Tables("EriolTest1").DefaultView 'Se llenan los datos con la tabla 

            tabla.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCells) 'Esta linea para que que las celdas dentro de la dataGrid se autoagranden al mostrar los datos

            Coneccion.Close() 'Se cierra la coexion

        Catch ex As Exception

            MsgBox("LL_T - No se puede extablecer conexion con el servidor: " & ex.Message)

            Coneccion.Close()

        End Try

End Sub

End Class

------------------RESULTADO-----------------

Cualquier duda, dejen un comentario

-Eriolmk-

Posted in: