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...:(
