SoloCodigo

CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: Soultaker en Lunes 8 de Noviembre de 2004, 21:13

Título: Limpiar Un Datagrid
Publicado por: Soultaker en Lunes 8 de Noviembre de 2004, 21:13
Hola que tal como estan he estado haciendo un programa pero me he encontrado con un problema, es este tengo un datagrid y un combobox, al momento de seleccionar una opcion del ComboBox en el DataGrid me muestra los datos que pertenecen a esa opcion, hasta ahi todo bien el problema es que cuando vuelvo ha elegir otra opcion lo agrega al Datagrid, osea en el DataGrid se muestra los datos de las 2 opciones que elegi, estoy empleando un DataSet y un DataAdapter. Ahi les escribo el codigo haber si me ayudan.
Código: Text
  1.  
  2. Imports System.Data.SqlClient
  3. Dim CN As SqlConnection
  4. Dim Sql As String
  5. Cn.ConnectionString = "Data Source..................."
  6. Cn.Open
  7. Sql = "Select * From Empleados Where Name='" & ComboBox1.Text
  8. Dim DA As New SqlDataAdapter(Sql, CN)
  9. Dim DS As New DataSet
  10. DA.Fill(ds, "Empleados)
  11. datagrid1.datasiurce = ds.tables("Empleado")
  12.  
  13.  
El datagrid lo queria limpiar asi
Código: Text
  1.  
  2. DataGrid1.DataSource = Nothing
  3. DS.Tables("Empleado").Clear
  4.  
  5.  
El problema es que cuando lo ponia en el mismo evento del ComboBox osea en el SelectedIndexChange no me mostraba nada en el DataGrid, pero luego lo puse en un Boton y ahi si lo limpiaba. Como hago para que eso me trabaje en el mismo evento, osea seleccioneo una opcion el ComboBox me muestre los datos y cuando seleccione otro me muestre solo los datos de esa opcion. Si saben como ayudenme pe. Gracias a todos.

 :comp:
Título: Re: Limpiar Un Datagrid
Publicado por: diegoar en Miércoles 10 de Noviembre de 2004, 06:38
Por el momento con esto se soluciono.


Private ds As New DataSet
    Private _conexion As SqlConnection
    Private _adaptador As SqlDataAdapter
    Private dt As DataTable

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        _conexion = New SqlConnection("data source=(local); user id=sa;initial catalog=Northwind ;password=;")
        _adaptador = New SqlDataAdapter("Select CustomerID,CompanyName from Customers", _conexion)
        dt = New DataTable
        _adaptador.Fill(dt)
        cboBusqueda.DataSource = dt
        cboBusqueda.DisplayMember = "CustomerID"        

    End Sub

    Private Sub cboBusqueda_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboBusqueda.SelectedIndexChanged

        ds.Tables.Clear()        
        _adaptador = New SqlDataAdapter("Select * from orders where CustomerID=@valor", _conexion)
        _adaptador.SelectCommand.Parameters.Add("@valor", cboBusqueda.Text)
        _adaptador.Fill(ds, "Cliente")
        dgDatos.DataSource = ds.Tables("Cliente")

    End Sub

Espero te sirva  :comp: