GridView en Gambas

Como dice la documentacion de gambas GridView es un control que permite mostrar datos en una tabla.
Aqui una imagen.

Aqui se muestran las propiedades del control

Aqui pongo algo de codigo para que al momento de abrir la ventana se carguen los datos en el GridView, desde una tabla Productos en este momento solo importa el funcionamiento  del GridView asi que dejamos de lado momentaneamente la conexion que ya esta implicita.

PUBLIC SUB Form_Open()
	DIM filP AS Integer 'Contador de filas
	DIM colP AS Integer 'Contador de columnas
	'resProductos es un objeto Resul para almacenar el resultado de la consulta
	'conex es un Objeto de tipo Connection para las conexion a BD en Gambas
	'El metodo Exec() ejecuta una sentencia SQL
	resProductos = conex.Exec("select * from Productos")
	'Ponemos el numero de columnas a dos
	gvProductos.Columns.Count = 2
	'Nro de filas de acuerdo a la cantidad de productos que tenemos en la BD
	gvProductos.Rows.Count = resProductos.Count
	'Asignamos la cabecera de la tabla
	gvProductos.Columns[0].Text = "Descripcion del Producto"
	gvProductos.Columns[0].Width = 375
	gvProductos.Columns[1].Text = "Precio"
	gvProductos.Columns[1].Width = 50
	'Jalamos los datos desde el Objeto Result resProductos hacia el GridView
	'Mientras hayan filas en el Result
	DO WHILE resProductos.Available
		gvProductos[filP, colP].Text = resProductos["descripcion"]
		colP = 1
		gvProductos[filP, colP].Text = "$ " & resProductos["precio"]
		colP = 0
		filP = filP + 1
		'Pasamos a la siguiente fila del Objeto Result
		resProductos.MoveNext()
	LOOP
END

Ahora como hacemos para eliminar un producto del GridView si presionamos la tecla Suprimir.

PUBLIC SUB gvProductos_KeyRelease()
   IF Key.Code = Key.Delete THEN 'Comprobamos si la tecla es Suprimir
      IF gvProductos.Current = NULL THEN RETURN
      SELECT Message.Question("Desea eliminar este producto", "Si", "No", "Ayuda")
         CASE 1
            TRY conex.Exec("Delete from Productos where descripcion=&1", gvProductos.Current.Text)
            IF ERROR THEN
               Message.Error("Imposible borrar el registro")
            ELSE
               gvProductos.Rows.Remove(gvProductos.Row)
            END IF
         CASE 2
         CASE 3
      END SELECT
   END IF
END
Anuncios

13 respuestas a “GridView en Gambas

  1. Excelente voy a ponerte en mis enlaces para formar una comunidad Gambas mucho mas grande y donde la gente pueda encontrar ayuda.
    Saludos y excelente iniciativa.

  2. muy bien ese dato pero tengo un problemita adicional, necesito mostrar en el gridview algo así como una lista, es decir, buscar en la base de datos la información de un registro, mostrarlo en una fila del gridview, volver a buscar otro registro y mostrarlo en la siguiente fila, y asi sucesivamente.

  3. Para añadir una linea seria:

    ‘aumento el gridviews en una fila
    GridInformacion.Rows.count = GridInformacion.Rows.count + 1

    ‘y los datos añadidos por ejemplo:

    GridInformacion[GridInformacion.Rows.count
    – 1, 0].text = comboSeccion.Text
    GridInformacion[GridInformacion.Rows.count
    – 1, 1].text = Module1.extrae_archivo(archivo)
    GridInformacion[aGridInformacion.Rows.count
    – 1, 2].text = archivo

    ‘ le quito 1, ya que el gridview empieza desde el 0 el primer elemento

  4. hola buenas estoy en busca de un poco de ayuda quisiera saber como puedo hacer para que atraves de un gridview yo pueda a mis valores asignarle un color me esplico estoy trbajando en mi proyecto en la universidad y estoy creando sistema de control de estado de la computadoras que se utilizan en una sala de computacion necito que me muestre el estado de todas la computadora si estan ocupada me debe desmostrar un color si estas desocupada otro color espero aberme esplicado le agradezco si me pueden ayudar.

  5. oyeme panita gracias por tu ayuda se te agradece. pues estoy haciendo una base de datos para registrar licencias de conducir. y estoy programando con gambas y esto me ayuda mucho…gracias en el alma compadre..suerte y hasta pronto…

  6. Hola como estan al tiempo que escribo algo por aqui bueno es que el trabajo y otras actividades me dejan sin mucho tiempo, pero espero ya retomar mi blog en estos dias y tratar de ayudar a la gente que esta iniciandose en gambas prometo mi pronto regreso, super recargado.
    Saludos

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s