suma % en un GRID

guillebomtrasmiti · #1 (**permalink**) 24/04/2011, 08:22

Hola, alguién sabe por que me da un error de que microsoft jet no puede encontrar la tabla o consulta 2?¿?.... gracias
CODIGO;
Public Sub sumarporcentaje()
Dim resta As New Integer
Dim resultado As New Integer

Dim com = conexion.CreateCommand

Dim adapt As New OleDbDataAdapter
Dim setda As New DataSet

adapt.SelectCommand = com

com.CommandType = CommandType.Text
com.CommandText = "UPDATE " & DgTotales.Columns.Item("Pts").Index.ToString & " SET Pts =ROUND (Pts /" & TxtPorcentaje.Text & " *100,2) Where NombreFormaPago <> ('TARJETA CREDITO')"
adapt.Fill(setda, DgTotales.Columns.Item("Pts").Index.ToString)
'UPDATE precios SET Precio=ROUND(Precio * (1 + $porcentaje/100),2)
End Sub

meula · #2 (**permalink**) 25/04/2011, 02:40

porque no existe

guillebomtrasmiti · #3 (**permalink**) 25/04/2011, 12:13

hola meula, pero ayudame hombre, así no se por que no existe, no se que hago mall

meula · #4 (**permalink**) 26/04/2011, 02:24

Hola,

Ejecuta el programa
Pon un punto de interrupción en esta línea:
com.CommandText = "UPDATE " & DgTotales.Columns.Item("Pts").Index.ToString & " SET Pts =ROUND (Pts /" & TxtPorcentaje.Text & " *100,2) Where NombreFormaPago <> ('TARJETA CREDITO')"
copia el contenido de esta variable, com.CommandText
Ejecutala en la Base de datos que estas utilizando (creo que Access).
¿Funciona?
SI: Pues el problema debe ser tu conexión con la BD
NO. Pues el analizador de consultas del SGDB te dirá la razón de porque está fallando

guillebomtrasmiti · #5 (**permalink**) 26/04/2011, 08:55

no, que va...el caso es que si cambio el update y lo hago así;

Update Introduccionventas set Pts =.....
funciona bien, el problema es cuando lo hago sobre el datagrid, al cambiar introducciondeventas que es directamente la tabla de la base de datos por el dgtotales.columns.item("Pts").indes.tostring es cuando salta el fallo, 3 días igual...que triste es mi vida...saluditos

osvier · #6 (**permalink**) 26/04/2011, 09:23

Cita:

Iniciado por meula

Ejecuta el programa
Pon un punto de interrupción en esta línea:
com.CommandText = "UPDATE " & DgTotales.Columns.Item("Pts").Index.ToString & " SET Pts =ROUND (Pts /" & TxtPorcentaje.Text & " *100,2) Where NombreFormaPago <> ('TARJETA CREDITO')"
copia el contenido de esta variable, com.CommandText
Ejecutala en la Base de datos que estas utilizando (creo que Access).
¿Funciona?

Lo que meula te esta pidiendo, es que verifiques que estas formando el query bien. Por ejemplo, si DgTotales.Columns.Item("Pts").Index.ToString te regresa una cadena vacia, tu update final va a ser "UPDATE " + "" + "SET Pts = ..."

guillebomtrasmiti · #7 (**permalink**) 26/04/2011, 13:13

ok voy a probarlo darme un momentito, gracias por todo

Aquaventus · #8 (**permalink**) 26/04/2011, 13:21

Hello!!!!! que pasó por aquí?? Buen dìa Guille!! prueba lo que te dice osvier! verifica con los breakpoints que el flujo corra normal y la sentencia vaya bien. Nos comentas. Saludos!!

.

guillebomtrasmiti · #9 (**permalink**) 26/04/2011, 13:25

si me regresa una cadena vacía, nno va...el query está mal, me podeis ayudar, la base de datos es acces, el campo del datagridview que quiero actualizar es el de PTS y el campo que marca que cambia y que no es el de formasdepago, lo cierto bueno es que quiero cambiar toda la columna...espero podais ayuarme, gracias

guillebomtrasmiti · #10 (**permalink**) 26/04/2011, 13:27

hola aquaaaaaaaa......estoy fuera en barcelona de viaje, me he traido mi super portátil para trabajar, estoy en una feria de equipamiento informático especializado para hostelería, me alegro de verteeeeeeee super super aquaaaaa

guillebomtrasmiti · #11 (**permalink**) 26/04/2011, 13:27

he realizado este cambio, pero sigue igual, mismo error
Public Sub sumarporcentaje()

Dim resta As New Integer
Dim resultado As New Integer

Dim com = conexion.CreateCommand

Dim adapt As New OleDbDataAdapter
Dim setda As New DataSet

adapt.SelectCommand = com
For Each row As DataGridViewRow In DgTotales.Rows
com.CommandType = CommandType.Text
com.CommandText = "UPDATE " & row.Cells("Pts").Value.ToString & " SET Pts =ROUND (Pts /" & TxtPorcentaje.Text & " *100,2) Where " & row.Cells("NombreFormaPago").Value.ToString & " <> ('TARJETA CREDITO')"
MessageBox.Show(CStr(adapt.Fill(setda, "IntroduccionDeVentasAhora")))
adapt.Fill(setda, "IntroduccionDeVentasAhora")

Next

Aquaventus · #12 (**permalink**) 26/04/2011, 13:37

Guille te mande un mensaje privado, me espero me respondas. Saludos!

PDT: publiqué otro libro haber si te sirve en el post Manual Visual Basic 2010 - .Net 4

guillebomtrasmiti · #13 (**permalink**) 26/04/2011, 14:31

asi me funciona pero me cambia toda la tabla y yo solo quiero lo que está filtrado en el datagrid...alguien me ayuda=?

Dim col As DataGridViewColumn = Nothing
Dim i As Integer = 0

Do While (i < DgTotales.Columns.Count)
If i = 0 Then
col = DgTotales.Columns.GetFirstColumn(DataGridViewEleme ntStates.Visible)
Else
col = DgTotales.Columns.GetNextColumn(col, DataGridViewElementStates.Visible, DataGridViewElementStates.None)
End If

MsgBox(col.Name.ToString)
i = i + 1
Loop
Dim resta As New Integer
Dim resultado As New Integer

Dim com = conexion.CreateCommand

Dim adapt As New OleDbDataAdapter
Dim setda As New DataSet

adapt.SelectCommand = com
For Each row As DataGridViewRow In DgTotales.Rows
com.CommandType = CommandType.Text
com.CommandText = "UPDATE IntroduccionDeVentasAhora SET Pts =ROUND (Pts /" & TxtPorcentaje.Text & " *100,2) Where NombreFormaPago <> ('TARJETA CREDITO') and " & DgTotales.Columns.Item("Pts").Index.ToString & ""
adapt.Fill(setda, "IntroduccionDeVentasAhora")

Next

guillebomtrasmiti · #14 (**permalink**) 26/04/2011, 14:32

aquí no tengo las claves del messeger aqua en cuanto llegue a casa lo veo sorrry :(