lunes, 10 de marzo de 2014

- - - * * * * * * 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-

0 comentarios:

Publicar un comentario

Share

Twitter Delicious Facebook Digg Stumbleupon Favorites More