Comunidad Gambas-es

saludos a todas y todos los y las gamberos y gamberas jejejeeje

Les envío este mensaje con la finalidad de obtener alguna ayuda de esta comunidad ya que me he cambiado a linux debian 7 y me tope con un programa para desarrolladores GAMBAS3 y bueno se me ocurrió hacer un programa para mi pequeña empresa que me permita registrar productos, inventario, auditoría y facturación y como base de datos MySql . lo que sucede es cuando creo la factura cargando el usuario y luego los productos mostrándose en una TableView1 mostrando el total de todos los productos hasta alli todo bien pero cuando quiero eliminar un producto en la TableView1 en especifico o seleccionado por medio de su código "que seria el código de barras" y restar el producto del total eso es lo que no puedo hacer... osea eliminar un producto de selección en TableView1 y que me reste su valor en el total...........

se me ocurrió buscar el codigo registrado del producto en la base de datos luego consultar en la TableView1 si esta eliminarlo pero solo de uno no todos porque si un cliente compra varios producto y quiere eliminar uno osea debe ser uno porque si no me elimina todos. pero no me funciona

gracias agradezco sus ayudas


les paso el Código


Public Sub Button4_Click()
'Se declara una variable de tipo string para guardar el valor de un InputBox para realizar la busqueda.
Dim Codigo As String
'Se declara otra variable que almacena y devuelve el proceso de busqueda y de conexion.
Dim buscar As Result
'se abre la conexion.
moduloconexion.moduloconexion
'Se declara que la bariable respuesta tomara el valor que se introduzca en el InputBox.
Codigo = InputBox("Introduzca el Codigo de Producto")
'se pasa a realizar la consulta.
buscar = moduloconexion.$conexion.Exec("select * from Productos where Codigo= '" & Codigo & "' ") 'Se pasa a visualizar el registro en las respectivas cajas de texto.
'Se elimina el producto de la tabla
TableView1.Rows.Count = TableView1.Rows.Count - 1
TableView1.Refresh
moduloconexion.$conexion.Close
End

caimanrockero1981:

Citar:

solo de uno no todos porque si un cliente compra varios producto y quiere eliminar uno osea debe ser uno porque si no me elimina todos. pero no me funciona

Nos haria falta que nos pasara cual es la estructura de tu base de datos (tablas y campos), para ver como lo tienes organizado.

Citar:

'Se elimina el producto de la tabla
TableView1.Rows.Count = TableView1.Rows.Count - 1

Esto lo que hace es eliminar "visualmente" la ultima fila, pero no eliminas nada de la base de datos ( puedes ver una explicación en http://www.1keydata.com/es/sql/sql-delete.php ), usando la orden de sql Delete

Saludos

De nuevo, es necesario usar el evento Data del gridview o tableview para tener siempre actualizados los resultados automáticamente. Las operaciones se realizan en la base de datos (inserts, deletes, incluso operaciones matemáticas) y el tableview o gridview estará siempre sincronizado con los datos actuales.

Busca en el foro por "evento data" y trata de implementarlo. Si tienes dudas sobre cómo hacerlo, vuelve a escribir pero proporciona más datos sobre tu BD y el código que usas para manejar los datos.

Saludos

ok gracias por su atención..... el programa que se me ocurrió inventar es para la administración de una pequeña empresa o mas pequeña todavía un "local de papelería" donde dicho programa debe cumplir registro , inventario, auditoría y facturación de productos, todo con MySql. El registro, inventario y auditora funcionan excelentes borras, agregas, modificas, eliminas todo muy bien con la base de datos MySql. Mi problema es solo en Facturación que cuando cargo las compras que son mostradas en pantalla solo visualización "nada con alterar la BD MySql " unas 10 compras enumeradas de la 1 a la 10 y el cliente decide no facturar o no quiere un producto porque no le alcanzo el dinero y elimina el producto mostrado en pantalla digamos el numero 5 que realmente que realmente este caso se llama eliminar por seleccion y repito solo visualización "nada con alterar la BD MySql " por lo tanto el código que investigue elimina de la pantalla es el ultimo de la tabla no me obedece con eliminar el que me de la gana como por ejemplo eliminar de la pantalla o tabla de TableView en numero 5 con el ejemplo que invente.

gracias espero su respuestas....

Citar:

"nada con alterar la BD MySql " por lo tanto el código que investigue elimina de la pantalla es el ultimo de la tabla no me obedece con eliminar el que me de la gana como por ejemplo eliminar de la pantalla o tabla de TableView en numero 5

Puedes usar la priopiedad .row, que indica que fila tienes seleccionada.

La forma que se me ocurre eliminar visualmente esa fila, es:
1) cuando el usuario haga click sobre la fila del tableview, con la propiedad .row conoces en que fila lo ha hecho.
2) Entonces translada los valores de las filas siguientes, a una fila menos, borrando el valor de la fila anterior.
Esto lo puedes hacer con un bucle for next


Esto eliminaría visualmente el dato en el tableview, pero no en la base de datos.

Saludos

buenas noches las ayudas que me han enviado fueron muy útiles para aclarar mis dudas y llegue a esto:

Public Sub Button4_Click()
Dim Codigo, x As String 'Se declara otra variable que almacena, devuelve el proceso de busqueda, de conexion. y la x representa la Fila de la tabla
Dim buscar As Result
moduloconexion.moduloconexion 'se abre la conexion.
'Se declara que la variable Codigo tomara el valor que se introduzca en el InputBox.
Codigo = InputBox("Introduzca el Codigo de Producto") 'se pasa a realizar la consulta.para la BD
buscar = moduloconexion.$conexion.Exec("select * from Productos where Codigo= '" & Codigo & "' ") 'Se pasa a visualizar el registro en las respectivas cajas de texto.
x = InputBox("Introduzca el numero de fila") 'se pasa a colocar el numero de fila que deseas eliminar
TableView1[x - 1, 0].Text = "" 'se borra la celda de la columna A
TableView1[x - 1, 1].Text = "" 'se borra la celda de la columna B
TableView1.Refresh 'se pasa a actualizar la tablas
ValueBox3.Value = ValueBox3.Value - buscar["Venta"] 'se totaliza la venta
moduloconexion.$conexion.Close 'se cierra la conexion con la BD
End


" ahora bien la idea que tengo aun en mente es eliminar la fila deseada por completo "

Caimanrockero: Así NO se hace.

Una lista es una cosa, una tabla de la base de datos es otra. Lo que tú haces es vaciar celdas de la lista, borrar filas de la lista, etc. etc, pero en ningún momento actúas sobre la base de datos.

Haz caso a lo que te han dicho: busca ejemplos e información sobre el evento Data de los gridviews. Ahorraras tiempo y esfuerzo.

Saludos.

Saludos CaimanRockero, meses tarde pero no se si ya lo resolviste como querías, de todas maneras coloco esta info por si alguien se topa con la misma situacion
Este es el codigo pa la fila el Row

TableView2.Rows.Remove(TableView2.row)

yo le agregue esto para evitar que de un error cuando hagan click sobre la FIla de los nombres de las columnas
If TableView2.Rows.Count = 0 Then
Else
TableView2.Rows.Remove(TableView2.row)
Endif

Espero le sirva a alguien.

Aerobacterd escribió: [Ver mensaje]

Saludos CaimanRockero, meses tarde pero no se si ya lo resolviste como querías, de todas maneras coloco esta info por si alguien se topa con la misma situacion
Este es el codigo pa la fila el Row

TableView2.Rows.Remove(TableView2.row)

yo le agregue esto para evitar que de un error cuando hagan click sobre la FIla de los nombres de las columnas
If TableView2.Rows.Count = 0 Then
Else
TableView2.Rows.Remove(TableView2.row)
Endif

Espero le sirva a alguien.

Gracias me vino al pelo ya que estoy haciendo una revolución en el código del programa taller2015 que lo estoy pasando de una simple columnview a un poderoso tableview

saludos.

Tambien Gianluigi, miembro del foro italiano, quiere ayudarte:

http://www.gambas-it.org/smf/index....g37231#msg37231