cambio cantidad celda datagridview

guillebomtrasmiti · #1 (**permalink**) 05/05/2011, 03:25

Hola a todos otra vez, tengo un problemilla, ¿que raro no?, el caso es que tengo un código que me cambia la columna entera del datagridview, pero yo necesitaba cambiar solo la celda que selecciono y no lo consigo, os pongo el código que me cambia la columana entera a ver si alguién me puede ayudar, gracias amigos

Dim adapt As New OleDbDataAdapter
Dim setda As New DataSet
Dim com = conexion.CreateCommand

com.CommandType = CommandType.Text
com.CommandText = "UPDATE IntroduccionDeVentasAhora SET Pts = @Pts where NombreFormaPago <> ('TARJETA CREDITO') and Fecha BETWEEN @FI AND @FF"

com.Parameters.AddWithValue("@Pts", DgTotales.CurrentCell.Value)
com.Parameters.AddWithValue("@FI", Fecha1.Value.Date.ToString("dd/MM/yyyy"))
com.Parameters.AddWithValue("@FF", Fecha2.Value.Date.ToString("dd/MM/yyyy"))

adapt.SelectCommand = com

conexion.Open()
com.ExecuteNonQuery()
'Convert.ToDecimal(CInt(com.ExecuteNonQuery()))
DgTotales.Rows.Remove(DgTotales.CurrentRow)
conexion.Close()

guillebomtrasmiti · #2 (**permalink**) 05/05/2011, 05:52

creo que el problema puede estar que en la instrucción del update en set, le digo que Pts que es la columna entera es igual a @Pts que es el valor de la celda que estoy escribiendo, así que como hago para decirle que no deseo cambiar Pts completo si no la celda que se ha modificado de Pts...solo las modificadas que pueden ser más de una a la vez?

Aquaventus · #3 (**permalink**) 05/05/2011, 07:09

pasandole el valor unico que identifica a cada fila(los llamados campos únicos o Primary keys) como los codigos en el where :

UPDATE IntroduccionDeVentasAhora SET Pts = @Pts where NombreFormaPago <> ('TARJETA CREDITO') and Fecha BETWEEN @FI AND @FF and CODIGO = @codigo

donde @codigo es la celda 0 de la fila seleccionada.

.

guillebomtrasmiti · #4 (**permalink**) 05/05/2011, 08:07

así?¿?. super aqua no me sale

com.CommandText = "UPDATE IntroduccionDeVentasAhora SET Pts = @Pts where NombreFormaPago <> ('TARJETA CREDITO') and Fecha BETWEEN @FI AND @FF and CODIGO = @codigo"

com.Parameters.AddWithValue("@Pts", (DgTotales.CurrentCell.Value).ToString)
com.Parameters.AddWithValue("@codigo", (DgTotales.SelectedCells(0).Value.ToString))

guillebomtrasmiti · #5 (**permalink**) 05/05/2011, 08:10

así me sigue cambiando toda la columna y no la celda que cambié...

com.CommandType = CommandType.Text
com.CommandText = "UPDATE IntroduccionDeVentasAhora SET Pts = @Pts where NombreFormaPago <> ('TARJETA CREDITO') and Fecha BETWEEN @FI AND @FF and CODIGO = @codigo"

com.Parameters.AddWithValue("@Pts", (DgTotales.CurrentCell.Value).ToString)
com.Parameters.AddWithValue("@codigo", (DgTotales.Rows(0).Cells(2).Value))

bua bua bua uba

(

Aquaventus · #6 (**permalink**) 05/05/2011, 08:16

Código vb.net:

Ver originalcom.CommandType = CommandType.Text
com.CommandText = "UPDATE IntroduccionDeVentasAhora SET Pts = @Pts where NombreFormaPago <> ('TARJETA CREDITO') and Fecha BETWEEN @FI AND @FF and CODIGO = @codigo"
'Donde X vendrian a ser el indice de la columna en la cual se encuentran los valores(representada en numeros 0,1,2,3....)
com.Parameters.AddWithValue("@Pts", (dgTotales.CurrentRow.Cells(X).Value.ToString()))
com.Parameters.AddWithValue("@codigo", (dgTotales.CurrentRow.Cells(X).Value.ToString()))

Probalo!.

.

guillebomtrasmiti · #7 (**permalink**) 05/05/2011, 08:21

Dim adapt As New OleDbDataAdapter
Dim setda As New DataSet
Dim com = conexion.CreateCommand

com.CommandType = CommandType.Text
com.CommandText = "UPDATE IntroduccionDeVentasAhora SET Pts = @Pts where NombreFormaPago <> ('TARJETA CREDITO') and Fecha BETWEEN @FI AND @FF and CODIGO = @codigo"
'Donde X vendrian a ser el indice de la columna en la cual se encuentran los valores(representada en numeros 0,1,2,3....)
com.Parameters.AddWithValue("@Pts", (DgTotales.CurrentRow.Cells(2).Value.ToString()))
com.Parameters.AddWithValue("@codigo", (DgTotales.CurrentRow.Cells(2).Value.ToString()))

com.Parameters.AddWithValue("@FI", Fecha1.Value.Date.ToString("dd/MM/yyyy"))
com.Parameters.AddWithValue("@FF", Fecha2.Value.Date.ToString("dd/MM/yyyy"))

adapt.SelectCommand = com

conexion.Open()
com.ExecuteNonQuery()
'Convert.ToDecimal(CInt(com.ExecuteNonQuery()))
DgTotales.Rows.Remove(DgTotales.CurrentRow)
conexion.Close()

te pong todo el código junto con tu cambio, me da error el error es el siguiente;

No coinciden los tipos de datos en la expresión de criterios.

voy a investigar.... :)(

Aquaventus · #8 (**permalink**) 05/05/2011, 08:40

mmmm, mira en @Pts y @codigo les pasas el mismo valor.... son campos iguales??? y eso del codigo que te pase era referencial... nose si en tu tabla será igual es cuestion que lo acomodes segun a tu logica, con esto no te digo que apliques todo lo que te digo al pie de la letra, sino que en base al ejemplo contruyas tu codigo :) y respeta los tipos de datos si tu codigo es un integer tienes que convertirlo a integer y no pasarlo directamente como cadena, por eso es que te sale No coinciden los tipos de datos en la expresión de criterios..

guillebomtrasmiti · #9 (**permalink**) 05/05/2011, 08:48

mmm, vale lo sigo intentando, ya decía yo que codigo no existía en mi base de datos por lo que no podría servir, pero gracias como siempre super aquaaa

Aquaventus · #10 (**permalink**) 05/05/2011, 09:03

claro era referencia... debes tener en esa tabla un campo codigo único para tus datos el cual lo debes jalar para afectar solo esa fila.

guillebomtrasmiti · #11 (**permalink**) 05/05/2011, 09:05

ok, voy a luchar contra todo, contra mis celdas del datagrid que se revelan contra mi ignorancia...y cuando lo arregle...y solo cuando lo arregle volveré al foro y colgaré la solución para que mi ignorancia sea la enseñanza de todos...jjajajajajajaajajaja

voy a ello GRACIAASSSS ME SIRVIO DE MUCHOS SUPER AQUAAA

guillebomtrasmiti · #12 (**permalink**) 05/05/2011, 13:40

AMIGOS SE HIZO EL MILAGRO, AQUÍ OS DEJO EL CÓDIGO FUNCIONANDO POR SI ALGUIEN LO NECESITA ALGUNA VEZ, UN ABRAZO

Dim result As DialogResult
result = MessageBox.Show("Esta seguro que desea cambiar el precio de la celda?", "Cambiar Pvp", MessageBoxButtons.OKCancel, MessageBoxIcon.Question)
Dim adapt As New OleDbDataAdapter
Dim setda As New DataSet
Dim com = conexion.CreateCommand

com.CommandType = CommandType.Text
com.CommandText = "UPDATE IntroduccionDeVentasAhora SET Pts = @Pts where NombreFormaPago <> ('TARJETA CREDITO') and Plu = @codigo and Fecha BETWEEN @FI AND @FF"
com.Parameters.AddWithValue("@Pts", (DgTotales.CurrentRow.Cells(2).Value))
com.Parameters.AddWithValue("@codigo", (DgTotales.CurrentRow.Cells(8).Value))
com.Parameters.AddWithValue("@FI", Fecha1.Value.Date.ToString("dd/MM/yyyy"))
com.Parameters.AddWithValue("@FF", Fecha2.Value.Date.ToString("dd/MM/yyyy"))

If result = System.Windows.Forms.DialogResult.OK Then

adapt.SelectCommand = com
conexion.Open()
Convert.ToDecimal(CInt(com.ExecuteNonQuery()))
ElseIf result = System.Windows.Forms.DialogResult.Cancel Then

End If

DgTotales.Refresh()
conexion.Close()

Aquaventus · #13 (**permalink**) 05/05/2011, 13:47

Lo Sabía! Que Bueno Guille!

.

guillebomtrasmiti · #14 (**permalink**) 05/05/2011, 14:41

Gracias a ti super aqua....gracias a tu ayuda.....thanksssssss