tengo un problema con un gridview

he reutilizado un codigo de internet (Comunidad gambas here :D)

el codigo carga una tabla de una base de datos Mysql a un grid, el problema es que me los muestra desordenados

miren el codigo

Public Sub Form_Open()
  Dim filP As Integer 'Contador de filas
    Dim colP As Integer 'Contador de columnas
Dim resProductos As Result
Me.Center
    '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
    Conectarme.moduloconexion
    resProductos = Conectarme.$conexion.Exec("select * from Producto")
    'Ponemos el numero de columnas a dos
    GridView1.Columns.Count = 10
    'Nro de filas de acuerdo a la cantidad de productos que tenemos en la BD
    GridView1.Rows.Count = resProductos.Count
    'Asignamos la cabecera de la tabla
    GridView1.Columns[0].Text = "Codigo"
    GridView1.Columns[0].Width = 100  
    GridView1.Columns[1].Text = "Producto"
    GridView1.Columns[1].Width = 100
    GridView1.Columns[2].Text = "Cantidad"
    GridView1.Columns[2].Width = 100
    GridView1.Columns[3].Text = "Ubicacion"
    GridView1.Columns[3].Width = 100  
    GridView1.Columns[4].Text = "Descripcion"
    GridView1.Columns[4].Width = 100
    GridView1.Columns[5].Text = "Precio de Compra"
    GridView1.Columns[5].Width = 100
    GridView1.Columns[6].Text = "Precio de Venta"
    GridView1.Columns[6].Width = 100  
    GridView1.Columns[7].Text = "Categoria"
    GridView1.Columns[7].Width = 100
    GridView1.Columns[8].Text = "Marca"
    GridView1.Columns[8].Width = 100
    GridView1.Columns[9].Text = "Proveedor"
    GridView1.Columns[9].Width = 100  

    'Jalamos los datos desde el Objeto Result resProductos hacia el GridView
    'Mientras hayan filas en el Result
    Do While resProductos.Available
       GridView1[filP, colP].Text = resProductos["IDP"]
       colP = 0
       GridView1[filP, colP].Text = resProductos["Producto"]
       colP = 1
       GridView1[filP, colP].Text =  resProductos["Cantidad"]
       colP = 2
       GridView1[filP, colP].Text = resProductos["Ubicacion"]
       colP = 3
       GridView1[filP, colP].Text = resProductos["Descripcion"]
       colP = 4
       GridView1[filP, colP].Text = resProductos["PrecioC"]
       colP = 5
       GridView1[filP, colP].Text = resProductos["PrecioV"]
       colP = 6
       GridView1[filP, colP].Text = resProductos["CodCat"]
       colP = 7
       GridView1[filP, colP].Text = resProductos["CodMarc"]
       colP = 8
       GridView1[filP, colP].Text = resProductos["CodProv"]
       colP = 9
       filP = filP + 1
       'Pasamos a la siguiente fila del Objeto Result
       resProductos.MoveNext()
    Loop

End

 

Ese código no es muy aconsejable. Para relacionar un gridview con una tabla debes usar el evento data del gridview.
Es un evento que refresca el grid siempre que es necesario de forma automática.
Tal como lo has colocado... y si la tabla tiene 1.000.000 de registros ¿Los vas a cargar todos en memoria para ver los 30 escasos que te caben en la pantalla cada vez?

En los ejemplos de gambas tienes uno sobre cómo funciona. Estúdialo, y verás como es mucho mejor.

En lo de ordenar... basta con reejecutar la consulta con el orden nuevo

resProductos = Conectarme.$conexion.Exec("select * from Producto order by codigo")

shordi escribió: [Ver mensaje]

Ese código no es muy aconsejable. Para relacionar un gridview con una tabla debes usar el evento data del gridview.
Es un evento que refresca el grid siempre que es necesario de forma automática.
Tal como lo has colocado... y si la tabla tiene 1.000.000 de registros ¿Los vas a cargar todos en memoria para ver los 30 escasos que te caben en la pantalla cada vez?

En los ejemplos de gambas tienes uno sobre cómo funciona. Estúdialo, y verás como es mucho mejor.

En lo de ordenar... basta con reejecutar la consulta con el orden nuevo

resProductos = Conectarme.$conexion.Exec("select * from Producto order by codigo")

gracias hermano!

como en VB 6.0 yo lo hacia de otra manera entonces! estaba un poco confuso, pero si eres tan gentil de pasarme el link del ejemplo que tu tienes para llevar a leerlo y no perderme en la documentacion te lo agradeceré muchoooooooo

Cuando inicias gambas, en la splash page te aparecen proyectos recientes, nuevo proyecto, ejemplos, etc. En este último está el ejemplo que menciona Jordi.

===================
Migrando desde visual basic, el Gambas de Ms
Mi blog gambero

ok gracias ire a estudiar esos codigos!!

Dani26 escribió: [Ver mensaje]

Cuando inicias gambas, en la splash page te aparecen proyectos recientes, nuevo proyecto, ejemplos, etc. En este último está el ejemplo que menciona Jordi.

creo que el dernar por Codigo no funciona igual lo muestra desordenados

Sube tu código, porque algo estás haciendo mal. Te podremos ayudar mejor.

shordi escribió: [Ver mensaje]

Sube tu código, porque algo estás haciendo mal. Te podremos ayudar mejor.

el codigo esta arriba hermano!! ya lo subi

Ya te dije que si quieres coordinar el gridview y la fuente de datos debes usar el evento _data del gridview. Con ese código de arriba no puedes cambiar el orden sin repetir toda la función.

shordi escribió: [Ver mensaje]

Ya te dije que si quieres coordinar el gridview y la fuente de datos debes usar el evento _data del gridview. Con ese código de arriba no puedes cambiar el orden sin repetir toda la función.

ok usare el evento data! veré como me las ingenio para su uso adecuado men"