Foros del Web » Programación para mayores de 30 ;) » .NET »

DataGrid, no hay forma

Estas en el tema de DataGrid, no hay forma en el foro de .NET en Foros del Web. He revisado todos los post, tips, tutoriales, libros...etc que tengan que ver con este elemento asi que si sere tonto que alguien lo demuestre por ...
  #1 (permalink)  
Antiguo 09/08/2008, 08:45
 
Fecha de Ingreso: junio-2006
Mensajes: 18
Antigüedad: 18 años, 8 meses
Puntos: 0
DataGrid, no hay forma

He revisado todos los post, tips, tutoriales, libros...etc que tengan que ver con este elemento asi que si sere tonto que alguien lo demuestre por que no hay forma que pueda hacer un Refresh a este grid.Tengo este codigo....


Imports System.Data.OleDb
Imports System.Data.SqlClient


Public Class Form1

Inherits System.Windows.Forms.Form
Dim estadocheck2 As Integer
Public fila_p As Integer
Dim SQL As String = ""
Dim ADAPTADOR As OleDbDataAdapter
Dim DATOS As New Data.DataSet
Dim dt As DataTable = New DataTable("t_recados")
'Private dt As DataTable = New DataTable("t_recados")
Public Con As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0 ;Data Source=D:\db.accdb;Persist Security Info=False;")

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


Datos_c()
ADAPTADOR.Fill(dt)
Me.DataGridView1.DataSource = dt

'Dim Con As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0 ;Data Source=C:\rla_db.accdb;Persist Security Info=False;")

'DATOS = New DataSet()
'SQL = "SELECT * FROM t_recados;"
'ADAPTADOR = New OleDbDataAdapter(SQL, Con)
'ADAPTADOR.Fill(dt)

'hidden Rows id & id_usuario
'dt.Columns(0).ColumnMapping = MappingType.Hidden
'dt.Columns(4).ColumnMapping = MappingType.Hidden
'Me.DataGridView1.DataSource = dt

End Sub

Private Sub Datos_c()
Try
DATOS = New DataSet()
SQL = "SELECT * FROM t_recados;"
ADAPTADOR = New OleDbDataAdapter(SQL, Con)
'ADAPTADOR.Fill(dt)
'Me.DataGridView1.DataSource = dt
'hidden Rows id & id_usuario
'dt.Columns(0).ColumnMapping = MappingType.Hidden
' dt.Columns(4).ColumnMapping = MappingType.Hidden
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub



Public Function EstadoCheck(ByVal filaposicion As Integer) As Boolean
fila_p = filaposicion

Return Me.DataGridView1.Rows(filaposicion).Cells("check") .Value

End Function

Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

If e.ColumnIndex = Me.DataGridView1.Columns.Item("check").Index Then
Dim chkCell As DataGridViewCheckBoxCell = Me.DataGridView1.Rows(e.RowIndex).Cells("check")
chkCell.Value = Not chkCell.Value
End If

estadocheck2 = e.RowIndex
End Sub


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' Datos_c()



Dim p As Integer
Dim adp As New OleDbDataAdapter
' Dim comand As New OleDbCommand("Delete from t_recados where id =" & p)
' comand.parameter.add(p, SqlDbType.Char, 10).value = TextBox.Text

p = Me.DataGridView1.Rows(fila_p).Cells("id").Value()

Dim ocmd As New OleDbCommand("Delete from t_recados where id=@id")
ocmd.Parameters.Add("@id", OleDbType.Integer).Value = p
ocmd.CommandType = CommandType.Text
ocmd.Connection = Con


If EstadoCheck(estadocheck2) = "True" Then
adp.DeleteCommand = ocmd
Con.Open()
adp.DeleteCommand.ExecuteNonQuery()

MsgBox("Registro Eliminado" & p)

'Con.Close()

Else
MsgBox("No hay Registros marcados para eliminar")
End If
Con.Close()


<-------- AQUI NO SE QUE PONER ------------->

Me.DataGridView1.refresh()
' sera de esta forma????????


End Sub

End Class



Muchas gracias, espero que alguien me oriente ya que e perdido mucho tiempo en esta tontera...:(
  #2 (permalink)  
Antiguo 11/08/2008, 08:37
 
Fecha de Ingreso: junio-2006
Mensajes: 18
Antigüedad: 18 años, 8 meses
Puntos: 0
Respuesta: DataGrid, no hay forma

Bueno finalmente me canse con el checkbox, asi que decidi hacerlo por medio de un boton eliminar en la grid ademas que se ve mas vistoso.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 06:27.