none
problema con el boton eliminar RRS feed

  • Pregunta

  • m problema es el sguiente tngo un boton que es eliminar y l preto y n m elimina los datos y kro eliminarlo y limpiar los text si alguien mpde ayudar este es el codigoi q tngo para el boton

    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:\cotizacion.mdb")

     

    If MsgBox("Desea Eliminar el Registro", MsgBoxStyle.OkCancel) = vbOK Then

     

    If vbOK Then

     

    Dim cmd As New OleDbCommand("@Delete from Ingreso where NDocumento=@NDocumento,fecha=@fecha,detalle=@detalle,monto=@monto ", con)

    cmd.Parameters.AddWithValue(

    "@NDocumento", Me.txtdocumentos.Text)

     

    Dim da As New OleDbDataAdapter(cmd)

     

    Dim ds As New DataSet

    con.Open()

     

    Try

    da.Fill(ds)

    da.Update(ds)

    txtdocumentos.Text =

    ""

    txtdetalle.Text =

    ""

    txtmonto.Text =

    ""

     

    Catch ex As Exception

     

    End Try

    con.Close()

     

    End If

     

    End If

     

     

    End Using

     

     

    End Sub

    lunes, 8 de noviembre de 2010 13:59

Respuestas

  • Hola,

    Te da error  ¿..?

    prueba con este codigo nos dice ¿..?

     

     

            Using con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\cotizacion.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 NDocumento=@NDocumento",con)

                        cmd.Parameters.AddWithValue("@NDocumento", Me.txtdocumentos.Text)

     

                        Try

                            cmd.ExecuteNonQuery()

                            MessageBox.Show("Registro Eliminado")

                        Catch ex As Exception

     

                        End Try

     

                    End If

     

                End If

     

            End Using

     


    Enmanuel Grullard@Developer ASP.NET
    • Propuesto como respuesta Enmanuel Grullard martes, 9 de noviembre de 2010 12:58
    • Editado Enmanuel Grullard martes, 9 de noviembre de 2010 17:24
    • Marcado como respuesta koke1 martes, 9 de noviembre de 2010 17:25
    martes, 9 de noviembre de 2010 12:58

Todas las respuestas

  • hola

    bien veo que la instruccion usa parametros y filtra por varios campos, pero no veo que esten todos declarados

    aqui

    Dim cmd As New OleDbCommand("@Delete from Ingreso where NDocumento=@NDocumento,fecha=@fecha,detalle=@detalle,monto=@monto ", con)

    defines 4 parametros

    pero solo uno asignas valor

    cmd.Parameters.AddWithValue("@NDocumento", Me.txtdocumentos.Text)

    y el resto ? no los has declarado

    porque no dejas solo el NDocumento que imagino es la clave de la tabla y eliminara solo un item, algo como esto:

    Sim query As String = "@Delete from Ingreso where NDocumento=@NDocumento"

    Dim cmd As New OleDbCommand(query, con)

     

    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina
    martes, 9 de noviembre de 2010 3:25
  • ice lo q m dijiste compa pero = n msale nada

    este es el codigo

     

    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:\cotizacion.mdb")

     

    If MsgBox("Desea Eliminar el Registro", MsgBoxStyle.OkCancel) = vbOK Then

     

    If vbOK Then

     

    Dim cmd As New OleDbCommand("@Delete from Ingreso where NDocumento=@NDocumento", con)

    cmd.Parameters.AddWithValue(

    "@NDocumento", Me.txtdocumentos.Text)

     

    Dim da As New OleDbDataAdapter(cmd)

     

    Dim ds As New DataSet

    con.Open()

     

    Try

    da.Fill(ds)

    da.Update(ds)

    txtdocumentos.Text =

    ""

    txtdetalle.Text =

    ""

    txtmonto.Text =

    ""

     

    Catch ex As Exception

     

    End Try

    con.Close()

     

    End If

     

    End If

     

     

    End Using

     

     

    End Sub

    martes, 9 de noviembre de 2010 12:10
  • Hola,

    Te da error  ¿..?

    prueba con este codigo nos dice ¿..?

     

     

            Using con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\cotizacion.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 NDocumento=@NDocumento",con)

                        cmd.Parameters.AddWithValue("@NDocumento", Me.txtdocumentos.Text)

     

                        Try

                            cmd.ExecuteNonQuery()

                            MessageBox.Show("Registro Eliminado")

                        Catch ex As Exception

     

                        End Try

     

                    End If

     

                End If

     

            End Using

     


    Enmanuel Grullard@Developer ASP.NET
    • Propuesto como respuesta Enmanuel Grullard martes, 9 de noviembre de 2010 12:58
    • Editado Enmanuel Grullard martes, 9 de noviembre de 2010 17:24
    • Marcado como respuesta koke1 martes, 9 de noviembre de 2010 17:25
    martes, 9 de noviembre de 2010 12:58
  • = n m sale nada emanuel este es todo el codigo q tngo

     

     

    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 NDocumento=@NDocumento")

    cmd.Parameters.AddWithValue(

    "@NDocumento", Me.txtdocumentos.Text)

     

     

     

    Try

    cmd.ExecuteNonQuery()

    MessageBox.Show(

    "Registro Eliminado")

     

    Catch ex As Exception

     

     

     

    End Try

     

     

     

    End If

     

     

     

    End If

     

     

     

    End Using

     

     

    End Sub

     

    Private Sub BtoActualizar_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtoActualizar.Click

     

    Using con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\cotizacion1.mdb")

     

    Dim cmd As New OleDbCommand("Update Ingreso Set Fecha= @Fecha,Detalle=@Detalle,Monto=@Monto,MontoTotal=@MontoTotal where NDocumento =@NDocumento", con)

    cmd.Parameters.AddWithValue(

    "@Fecha", Me.txtdocumentos.Text)

    cmd.Parameters.AddWithValue(

    "@Detalle", Me.txtdocumentos.Text)

    cmd.Parameters.AddWithValue(

    "@Monto", Me.txtdocumentos.Text)

    cmd.Parameters.AddWithValue(

    "@MontoTotal", Me.txtdocumentos.Text)

    cmd.Parameters.AddWithValue(

    "@Documentos", Me.txtdocumentos.Text)

     

    Dim da As New OleDbDataAdapter(cmd)

     

    Dim ds As New DataSet

    con.Open()

     

    Try

    da.Fill(ds)

    da.Update(ds)

     

    Catch ex As Exception

     

    End Try

    con.Close()

     

    End Using

     

    End Sub

     

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

     

    Using con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\cotizacion1.mdb")

     

    Dim Buscando As String

    Buscando = InputBox(

    "Buscar NDocumento?")

     

    Dim cmd As New OleDbCommand("select Ndocumento,fecha,Detalle,Monto,Monto_Total from Ingreso where Ndocumento like '" & Buscando & "'", con)

    con.Open()

     

    Dim query As String = "select Ndocumento,fecha,Detalle,Monto,Monto_Total from Ingreso where Ndocumento like @doc"

    cmd.Parameters.AddWithValue(

    "@doc", String.Format("'%{0}%'", Buscando))

     

    Dim read As OleDbDataReader = cmd.ExecuteReader()

     

    If read.Read() Then

     

    Try

     

    Catch ex As Exception

     

    End Try

     

    Me.txtdocumentos.Text = CStr(read("Ndocumento"))

     

    Me.Label5.Text = CStr(read("fecha"))

     

    Me.txtdetalle.Text = CStr(read("Detalle"))

     

    Me.txtmonto.Text = CStr(read("Monto"))

     

    End If

    BtonElimar.Visible =

    True

    BtoActualizar.Visible =

    True

    txtdocumentos.Focus()

    con.Close()

     

    End Using

     

    End Sub

     

    Private Sub txtdocumentos_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtdocumentos.TextChanged

     

    Using con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\cotizacion1.mdb")

     

    Dim i As Boolean

     

    Dim cmd As New OleDbCommand("select * from Ingreso where NDocumento='" & Me.txtdocumentos.Text & "'", con)

    con.Open()

    i = ValidarDocumentos(

    Me.txtdocumentos.Text)

     

    If i = True Then

    MsgBox(

    "Ya existe este registro")

     

    Else

    MsgBox(

    "no existe el dato")

     

    Dim read As OleDbDataReader = cmd.ExecuteReader()

     

    Try

     

    If read.HasRows Then

     

    Me.txtdocumentos.Text = read("Ndocumento").ToString()

     

    Me.Label5.Text = read("fecha").ToString()

     

    Me.txtdetalle.Text = read("Detalle").ToString()

     

    Me.txtmonto.Text = read("Monto").ToString()

     

    Me.txtmontototal.Text = read("Monto_Total").ToString()

     

    End If

     

    Catch ex As Exception

     

    Dim ms As String = ex.Message

     

    End Try

     

    End If

    con.Close()

     

    End Using

     

    End Sub

     

    Public Function ValidarDocumentos(ByVal Ndocumento As String) As Boolean

     

    Dim bool As Boolean

     

    Using con1 As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\cotizacion1.mdb")

     

    Dim cmd As New OleDbCommand("select * from Ingreso where NDocumento='" & Ndocumento & "'", con1)

     

    Dim da As New OleDbDataAdapter(cmd)

     

    Dim dt As New DataTable

    da.Fill(dt)

     

    If dt.Rows.Count > 0 Then

    bool =

    True

     

    Else

    bool =

    False

     

    End If

     

    End Using

     

    Return bool

     

    End Function

     

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

     

    Dim subtotal As Integer

    subtotal = (txtmonto.Text + txtmontototal.Text)

    MsgBox(subtotal)

     

    End Sub

    End

     

    Class

    martes, 9 de noviembre de 2010 14:25
  • hola,

    mmm que rraro koke1

    Ese codigo te debe de funcionar ya  realize una prueba ante de pasartelo  porque mi me funciona a la perfesion

    un saludo.


    Enmanuel Grullard@Developer ASP.NET
    martes, 9 de noviembre de 2010 15:42
  • nc pk n m funciona s pdes conectate y t metes a m pco porfa

     

    martes, 9 de noviembre de 2010 15:47
  • gracias emanuel t pasaste = a todos los q m ayudaron vale gracias

     

     

     

     

    martes, 9 de noviembre de 2010 17:44
  • hola,

    Estamos para eso Suerte..


    Enmanuel Grullard@Developer ASP.NET
    martes, 9 de noviembre de 2010 18:16