Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic.NET » Update Access

Visual Basic.NET - Update Access

Volver
Nuevo Tema
<<>>
 
Vista:

Update Access

Publicado por Marcela Soto (1 intervención) el 24/10/2014 23:29:56
quiero actualizar una celda de access en donde tome el valor que esta almacenado y le sume el nuevo ayuda por favor este codigo me funciona para enviar los datos desde una grin pero me sobre escribe los datos y como dije lo que quiero es que me sume al valor anterior y el nuevo y guarde el nuevo valor

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Sub Actualizar()
 
        Dim Cant As String
        Dim Descp As String
 
        For Each row As DataGridViewRow In GD.Rows
            If Not String.IsNullOrEmpty(row.Cells("Monto").FormattedValue.ToString()) Then
                Cant = Convert.ToString(row.Cells("Monto").Value.ToString())
                Descp = Convert.ToString(row.Cells("Numero").Value.ToString())
                Dim valor As Integer = Descp
                Descp = String.Format("{0:00}", valor)
                Try
 
                    comandos = New OleDbCommand("UPDATE Lista SET Monto=" & Cant & " =" & Descp & "", conexion)
                    comandos.Parameters.AddWithValue("@Monto", Cant)
                    comandos.Parameters.AddWithValue("@Numero", Descp)
                    comandos.ExecuteNonQuery()
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try
            End If
        Next
    End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Carlos

Update Access

Publicado por Carlos (37 intervenciones) el 25/10/2014 00:34:31
Debes especificar el Update correctamente:

Si vas a incrementar monto,

comandos = New OleDbCommand("UPDATE Lista SET Monto=Monto+@Monto WHERE Codigo=@Descp & "", conexion)

comandos.Parameters.AddWithValue("@Monto", Cant)

comandos.Parameters.AddWithValue("@Numero", Descp)

Donde Cant es la cantidad a incrementar, Descp es el codigo del producto a incrementar...

Si so corre correctamente envía un mensaje a [email protected]

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Update Access

Publicado por Marcela Soto (5 intervenciones) el 26/10/2014 16:38:40
gracias por tu ayuda me sirvo mucho me podrías ayudar con esto me sale error de sintaxis

1
2
3
4
5
6
7
8
Dim adaptador As New OleDbDataAdapter
Dim registroas As New DataSet
Dim consulta As String
consulta = ("select Numero, Monto from Lista WHERE Lista= '" & TxtLista.Text & "' and Grupo ='" & TxtGrupo.Text & "' and Fecha ='" & txtFecha.Text & "and  Numero <34")
adaptador = New OleDbDataAdapter(consulta, conexion)
registroas.Tables.Add("Lista")
adaptador.Fill(registroas.Tables("Lista"))
Columna1.DataSource = registroas.Tables("Lista")
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Carlos

Update Access

Publicado por Carlos (37 intervenciones) el 28/10/2014 01:09:07
Mas simple seria:

1
2
3
4
5
6
7
Dim adaptador As New OleDbDataAdapter
Dim registroas As New DataTable
Dim consulta As String
consulta = ("select Numero, Monto from Lista WHERE Lista= '" & TxtLista.Text & "' and Grupo ='" & TxtGrupo.Text & "' and Fecha ='" & txtFecha.Text & "and  Numero <34")
adaptador = New OleDbDataAdapter(consulta, conexion)
adaptador.Fill(registroas))
ComboBox1.DataSource = registroas

Si sigue el error en que línea es y que mensaje sale...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar