Problemas de Boton Modificar en Visual Basic
Publicado por Monserrat Núñez (1 intervención) el 26/07/2016 19:28:38
Hola,
Tengo un problema con mi codigo en Windows Form de Visual Basic 2005.
El problema principal es que no me actualiza los datos modificados en el datagridview una vez que ya se hicieron los cambios en los textboxs que ingresa el usuario pero no me los refleja en la BD, es decir, si yo hago un select en SQL Server no se ven reflejados los cambios pero en el sistema si, ademas me manda a otra orden de compra despues de que me muestra el msgbox de la modificacion exitosa.
Mi duda es:
¿como puedo hacer para que cuando el usuario de click en el boton modificar se mantenga la misma orden de compra y no me mande a otra y me llene por default los textboxs con los campos revueltos.
Mi codigo es:
Agradeceria que me ayudaran a resolver el problema y si no es mucho pedir los botones agregar y eliminar. Me urge para mi trabajo. Gracias.
Tengo un problema con mi codigo en Windows Form de Visual Basic 2005.
El problema principal es que no me actualiza los datos modificados en el datagridview una vez que ya se hicieron los cambios en los textboxs que ingresa el usuario pero no me los refleja en la BD, es decir, si yo hago un select en SQL Server no se ven reflejados los cambios pero en el sistema si, ademas me manda a otra orden de compra despues de que me muestra el msgbox de la modificacion exitosa.
Mi duda es:
¿como puedo hacer para que cuando el usuario de click en el boton modificar se mantenga la misma orden de compra y no me mande a otra y me llene por default los textboxs con los campos revueltos.
Mi codigo es:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub btnMod_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMod.Click
Dim sconn As String = servlngDim cn As New SqlConnection(sconn)
cn.Open()
Dim sql As String = "UPDATE PARTIDAS SET PARTNUM='" & txtPart.Text & "', CANTIDAD = '" & txtCant.Text & "', MONEDA = '" & cmbMon.Text & "', SUBTOTAL= '" & txtsubTot.Text & "', DESCRIP= '" & rtbDesc.Text & "' WHERE IDCOMPRA = '" & cmbOC.Text & "' AND PARTNUM = '" & txtPart.Text & "'"
Dim cm As New SqlCommand(sql, cn)
cm.ExecuteNonQuery()
Dim da As New SqlDataAdapter("SELECT PARTNUM AS PARTIDA, CANTIDAD AS CANTIDAD, MONEDA AS MONEDA, SUBTOTAL AS SUBTOTAL, DESCRIP AS DESCRIPCIÓN FROM PARTIDAS WHERE IDREQ = " & Val(cmbOC.Text) & " ORDER BY PARTNUM", cn)
Dim ds As New DataSet
da.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)
MsgBox("La actualización termino sin incidencias", MsgBoxStyle.Information, "Mensaje del Sistema")
DataGridView1.Visible = True
DataGridView1.UpdateCellValue(0, txtPart.Text)
DataGridView1.UpdateCellValue(1, txtCant.Text)
DataGridView1.UpdateCellValue(2, cmbMon.Text)
DataGridView1.UpdateCellValue(3, txtsubTot.Text)
DataGridView1.UpdateCellValue(4, rtbDesc.Text)
cn.Close()
End Sub
Agradeceria que me ayudaran a resolver el problema y si no es mucho pedir los botones agregar y eliminar. Me urge para mi trabajo. Gracias.
Valora esta pregunta
0
