Principales respuestas
data griew

Pregunta
-
ola mi problema es el siguiente que cuando preto el boton eliminar no m borra el registro y tbn q el registro que elimine se m elimine del data griew porfavor si alguien me puede ayudar porfa este es el codigo del boton eliminar
Private Sub BtonElimar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtonElimar.Click
Using con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\cotizacion1.mdb")If MsgBox("Desea Eliminar el Registro", MsgBoxStyle.OkCancel) = vbOK Then
If vbOK Then
con.Open()
Dim cmd As New OleDbCommand("Delete from Ingreso where NºDocumento=@NºDocumento", con)
cmd.Parameters.AddWithValue("@NºDocumento", Me.txtdocumentos.Text)
Trycmd.ExecuteNonQuery()
MessageBox.Show("Registro Eliminado")
txtdocumentos.Text = ""
txtdetalle.Text = ""
txtmonto.Text = ""
txtmontototal.Text = ""
txtdocumentos.Focus()
For Each row As DataGridViewRow In Me.DataGridView1.Rows
row.Cells("Nºdocumento").Value = txtdocumentos.Text
row.Cells("fecha").Value = Label5.Text
row.Cells("detalles").Value = txtdetalle.Text
row.Cells("Monto").Value = txtmonto.Text
row.Cells("Monto_Total").Value = txtmontototal.TextNext
Catch ex As ExceptionEnd Try
End If
End If
con.Close()
End Using
End Sub
Respuestas
-
hola,
>ola mi problema es el siguiente que cuando preto el boton eliminar no m borra el registro y tbn q el registro que elimine>se m elimine del data griew porfavor si alguien me puede ayudar porfa este es el codigo del boton eliminar
vamos ver si por fin puedo darte un resulta eficiente mira este codigo efectivamente lo prepare para tiespero que te ayude Suerte.
por paso:
Paso 1Cargo los registro el DatagridViewPublic Sub cargar()Dim cs As String = "conection"
Using cn As New OleDbConnection(cs)Dim cmd As New OleDbCommand("select * from Ingreso", cn)Dim dt As New DataTableDim da As New OleDbDataAdapter(cmd)Tryda.Fill(dt)Me.DataGridView1.DataSource = dtCatch ex As ExceptionDim ms As String = ex.MessageEnd TryEnd UsingEnd SubPaso 2
Llamo el Metodo el Load del Formulario
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadCall cargar()End SubPaso 3
este es metodo que te permite eliminar el registro que tu seleciones el DatagridView
Public Sub Elimar(ByVal ID As Integer)
Dim cs As String = "conection"
Using cn As New OleDbConnection(cs)Dim cmd As New OleDbCommand("Delete From Ingreso where NºDocumento =@NºDocumento", cn)cn.Open()cmd.Parameters.AddWithValue("@NºDocumento", ID)
Trycmd.ExecuteNonQuery()MsgBox("Elimidado Correctamente")Me.DataGridView1.Rows.Remove(Me.DataGridView1.CurrentRow)
Catch ex As Exception
End TryEnd Using
End SubPaso 4Llamo el metodo de Elimar(ID) el Boton EliminarPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
For Each row As DataGridViewRow In Me.DataGridView1.RowsDim i As Integer = Convert.ToInt32(row.Cells(0).Value)If i > 0 ThenElimar(i)End IfNextEnd SubTodo es codigo que pueso lo prepara solo tieens que copy y pege Suerte.Nota:Si tienes alguna duda preguntame Suerte.
Enmanuel Grullard@Developer ASP.NET,C#.NET- Propuesto como respuesta Enmanuel Grullard lunes, 29 de noviembre de 2010 17:56
- Marcado como respuesta koke1 lunes, 29 de noviembre de 2010 18:27
Todas las respuestas
-
hola
no entendi muy bien esta parte que funcion cumpliria
For Each row As DataGridViewRow In Me.DataGridView1.Rows
row.Cells("Nºdocumento").Value = txtdocumentos.Text
row.Cells("fecha").Value = Label5.Text
row.Cells("detalles").Value = txtdetalle.Text
row.Cells("Monto").Value = txtmonto.Text
row.Cells("Monto_Total").Value = txtmontototal.TextNext
porque recorres cada fila y la asignas con los datos de lo controles
una vez que eliminas un docmento, deberas recargar al DataGridView de la misma forma en que lo cargaste en un principio, esto refrescara la info del control, y si el registro se elimino ya no aprecera en el listado
saludos
Leandro Tuttini
Blog
Buenos Aires
Argentina -
-
-
-
hola
como ha quedado el codigo que estas usando ?
has validado que el valor qeu el pasas al parametro este encontrando registro que eliminar ?
por ejemplo si haces
Dim cmd As New OleDbCommand("Delete from Ingreso where NºDocumento=@NºDocumento", con) cmd.Parameters.AddWithValue("@NºDocumento", Me.txtdocumentos.Text)
Dim cant As Integer = cmd.ExecuteNonQuery()
If cant > 0 Then
MessageBox.Show( String.Format("Se eliminaron {0} registros", cant))
End If
puedes ver el mensaje indicando la cantidad de registros efectados?
saludos
Leandro Tuttini
Blog
Buenos Aires
Argentina -
este es el codigo para eliminar
Private Sub BtonElimar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtonElimar.Click
Using con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\cotizacion1.mdb")If MsgBox("Desea Eliminar el Registro", MsgBoxStyle.OkCancel) = vbOK Then
If vbOK Then
con.Open()
Dim cmd As New OleDbCommand("Delete from Ingreso where NºDocumento=@NºDocumento", con)
cmd.Parameters.AddWithValue("@NºDocumento", Me.txtdocumentos.Text)
Trycmd.ExecuteNonQuery()
MessageBox.Show("Registro Eliminado")
txtdocumentos.Text = ""
txtdetalle.Text = ""
txtmonto.Text = ""
txtmontototal.Text = ""
txtdocumentos.Focus()
For Each row As DataGridViewRow In Me.DataGridView1.Rows
row.Cells("Nºdocumento").Value = txtdocumentos.Text
row.Cells("fecha").Value = Label5.Text
row.Cells("detalles").Value = txtdetalle.Text
row.Cells("Monto").Value = txtmonto.Text
row.Cells("Monto_Total").Value = txtmontototal.TextNext
Catch ex As Exception
MsgBox(ex.Message)
End TryEnd If
End If
con.Close()
End Using
End Sub -
hola,
>txtdocumentos.Text = "">txtdetalle.Text = "">txtmonto.Text = "">txtmontototal.Text = "">txtdocumentos.Focus()>>For Each row As DataGridViewRow In Me.DataGridView1.Rows>row.Cells("Nºdocumento").Value = txtdocumentos.Text>row.Cells("fecha").Value = Label5.Text>row.Cells("detalles").Value = txtdetalle.Text>row.Cells("Monto").Value = txtmonto.Text>row.Cells("Monto_Total").Value = txtmontototal.Text
olle veo algo estraño este codigo paror que tu borra todo los Objecto y luego se lo pasa com al Datagridview Borrado ? , toma eso como observaciony verficate bien ?
mi opinion es que tu no puede borrar los registro y luego pasarselo al DatagridView vacio uuu eso no esta bien
Enmanuel Grullard@Developer ASP.NET,C#.NET -
-
-
hola,
>ola mi problema es el siguiente que cuando preto el boton eliminar no m borra el registro y tbn q el registro que elimine>se m elimine del data griew porfavor si alguien me puede ayudar porfa este es el codigo del boton eliminar
vamos ver si por fin puedo darte un resulta eficiente mira este codigo efectivamente lo prepare para tiespero que te ayude Suerte.
por paso:
Paso 1Cargo los registro el DatagridViewPublic Sub cargar()Dim cs As String = "conection"
Using cn As New OleDbConnection(cs)Dim cmd As New OleDbCommand("select * from Ingreso", cn)Dim dt As New DataTableDim da As New OleDbDataAdapter(cmd)Tryda.Fill(dt)Me.DataGridView1.DataSource = dtCatch ex As ExceptionDim ms As String = ex.MessageEnd TryEnd UsingEnd SubPaso 2
Llamo el Metodo el Load del Formulario
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadCall cargar()End SubPaso 3
este es metodo que te permite eliminar el registro que tu seleciones el DatagridView
Public Sub Elimar(ByVal ID As Integer)
Dim cs As String = "conection"
Using cn As New OleDbConnection(cs)Dim cmd As New OleDbCommand("Delete From Ingreso where NºDocumento =@NºDocumento", cn)cn.Open()cmd.Parameters.AddWithValue("@NºDocumento", ID)
Trycmd.ExecuteNonQuery()MsgBox("Elimidado Correctamente")Me.DataGridView1.Rows.Remove(Me.DataGridView1.CurrentRow)
Catch ex As Exception
End TryEnd Using
End SubPaso 4Llamo el metodo de Elimar(ID) el Boton EliminarPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
For Each row As DataGridViewRow In Me.DataGridView1.RowsDim i As Integer = Convert.ToInt32(row.Cells(0).Value)If i > 0 ThenElimar(i)End IfNextEnd SubTodo es codigo que pueso lo prepara solo tieens que copy y pege Suerte.Nota:Si tienes alguna duda preguntame Suerte.
Enmanuel Grullard@Developer ASP.NET,C#.NET- Propuesto como respuesta Enmanuel Grullard lunes, 29 de noviembre de 2010 17:56
- Marcado como respuesta koke1 lunes, 29 de noviembre de 2010 18:27
-
-