Limpiar DataGridView
Publicado por Viviana (18 intervenciones) el 08/03/2011 03:41:56
tengo el siguiente codigo necesito limpiar el datagridv, ya que siempre una consulta no tiene datos este muestra el del registro anterior, no limpiar el datagridview
oConn.Open()
Dim comando As New OleDbCommand
Dim objDataSetTemp As Compra_Excedentes.ds
objDataSetTemp = New Compra_Excedentes.ds()
'Try
' 'DataGridView_TUbi.Rows.Clear()
' 'DataSet.Clear()
' 'DataGridView_TUbi.DataBindings.Clear()
' 'objDataSetTemp.Clear()
'Catch
'End Try
'DataGridView_TUbi.DataSource = Nothing
If cmbSorteo.Text = Nothing Then
MsgBox("Debe ingresar el # Sorteo para Consultar")
Else
With comando
' Asignar el sql para seleccionar los datos de la tabla Maestro
.CommandText = "Select * from tblUbicSorteo where num_sorteo = " + cmbSorteo.Text + ""
.Connection = oConn
End With
With Adaptador
.SelectCommand = comando
' llenar el dataset
Adaptador.Fill(DataSet, "tblUbicSorteo")
End With
' Enlazar el DataGridView al dataset
With DataGridView_TUbi
.DataMember = "tblUbicSorteo"
.DataSource = DataSet
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.DefaultCellStyle.BackColor = Color.AliceBlue
End With
End If
oConn.Close()
gracias
oConn.Open()
Dim comando As New OleDbCommand
Dim objDataSetTemp As Compra_Excedentes.ds
objDataSetTemp = New Compra_Excedentes.ds()
'Try
' 'DataGridView_TUbi.Rows.Clear()
' 'DataSet.Clear()
' 'DataGridView_TUbi.DataBindings.Clear()
' 'objDataSetTemp.Clear()
'Catch
'End Try
'DataGridView_TUbi.DataSource = Nothing
If cmbSorteo.Text = Nothing Then
MsgBox("Debe ingresar el # Sorteo para Consultar")
Else
With comando
' Asignar el sql para seleccionar los datos de la tabla Maestro
.CommandText = "Select * from tblUbicSorteo where num_sorteo = " + cmbSorteo.Text + ""
.Connection = oConn
End With
With Adaptador
.SelectCommand = comando
' llenar el dataset
Adaptador.Fill(DataSet, "tblUbicSorteo")
End With
' Enlazar el DataGridView al dataset
With DataGridView_TUbi
.DataMember = "tblUbicSorteo"
.DataSource = DataSet
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.DefaultCellStyle.BackColor = Color.AliceBlue
End With
End If
oConn.Close()
gracias
Valora esta pregunta


0