Hello,

i open this new post because i have a problem

with a limited view in my Gridview.

I have a table of 226 lignes i can only see 113 lines…

I have another one of 742 lines and i can only see 371 lines.

It seems i can only see HALF of the table.

It seems to me that i already (many years ago, i just came back to Gambas)

encounter that problem.

What do you think ?

I forgot to mention
- that i use PostgreSQL as Database…
- that i also use PostgreSQL with Lazarus for the same tables and it works perfectly fine.
 

Zyfriala said

What do you think ?

From “GirdView, limited lines”, January 23rd 2026, 8:24 AM

Some example code maybe to show how you populate the GridView?

here we go…

'================================================================================
'============================ AFFICHE LA TABLE 'JOURNAL' ==========================
'================================================================================
Public Sub su_TableJournalAffiche()

  '=== Pour la boucle
  Dim l As Integer

  '=== RAZ GRIDVIEW
  Grid_Dev.Clear()

  su_LignesCount("journal") '→ gives nLignes_h
  'Message.Info("Table JOURNAL : " & nLignes_h)

  su_GridShape("journal", 12, 10, nLignes_h)
  su_LabelsEtColonnes("journal")

  QueryPG_h = "Select lignes, jour_s, annee, mois, jour, cat, cat_sub, lien, titre, note1, note2 From sch_dev.t_dev_journal ORDER BY lignes "

  '=== RECORDSET / EXECUTION DU RESULT
  ResultConsult_h = $ConVisu.Exec(QueryPG_h)

  '=== On avance au premier enregistrement
  ResultConsult_h.MoveFirst

   '=== Boucle
   For l = 0 To nLignes_h - 1

  '=== VARIABLES
  'lignes,jour_s,annee,mois,jour,cat,cat_sub,lien,titre,note1,note2
  $dev1 = ResultConsult_h!lignes
  $dev2 = ResultConsult_h!jour_s
  $dev3 = ResultConsult_h!annee
  $dev4 = ResultConsult_h!mois
  $dev5 = ResultConsult_h!jour
  $dev6 = ResultConsult_h!cat
  $dev7 = ResultConsult_h!cat_sub
  $dev8 = ResultConsult_h!lien
  $dev9 = ResultConsult_h!titre
  $dev10 = ResultConsult_h!note1
  $dev11 = ResultConsult_h!note2

  '=== APPELLE LA FONCTION GridView1_Data
  fo_GridView1_Ecrit(l, 0, $dev1)
  fo_GridView1_Ecrit(l, 1, $dev2)
  fo_GridView1_Ecrit(l, 2, $dev3)
  fo_GridView1_Ecrit(l, 3, $dev4)
  fo_GridView1_Ecrit(l, 4, $dev5)
  fo_GridView1_Ecrit(l, 5, $dev6)
  fo_GridView1_Ecrit(l, 6, $dev7)
  fo_GridView1_Ecrit(l, 7, $dev8)
  fo_GridView1_Ecrit(l, 8, $dev9)
  fo_GridView1_Ecrit(l, 9, $dev10)
  fo_GridView1_Ecrit(l, 10, $dev11)

 l = l + 1

  ResultConsult_h.MoveNext

  Next

End

'==================================================================================
'===================== MAJ DES DONNEES DE LA GRIDVIEW =============================
'==================================================================================

Public Sub fo_GridView1_Ecrit(Row As Integer, Column As Integer, $data As Variant)

Grid_Dev[Row, Column].Text = $data

End

On the Farm there is an example of mine: DBSpeedyTest which explains how to use GridView_Data

Hi - I would include the line

 '=== RECORDSET / EXECUTION DU RESULT
  ResultConsult_h = $ConVisu.Exec(QueryPG_h)

and compare this to your nLignes_h variable. They should be the same number.
I can't see how you are getting this count so assume that it is a query doing something like (?)


I've never used Postgres but assume that the Gambas code below 'should' work ok doing this:






 

Zyfriala said

here we go…

From “Post #13,885”, January 23rd 2026, 11:22 AM

Like GianLuigi wrote, you should checkout the GridView_Data event.

I'll try to come up with some example code to demonstrate how it works.
Going to bed now, it's past 3 AM here 

Code (gambas)

1. 'Gambas class file
2.  
3. ' gvwResult = GridView
4. 'A fictional demo where each record holds;
5. ' Id (a database auto increment unique id)
6. ' Name (a databas textbased field holding names)
7. ' DateBirth (a database date field holding birth date)
8.  
9. '$hConn is a fictional connection
10.  
11.  
12. Private $hConn As Connection
13. Private $rResult As Result
14.  
15. Private $sFieldName As String[]
16.  
17.  
18. Public Sub Form_Open()
19.  
20.   Dim sQuery As String
21.  
22.   sQuery ="SELECT Id, Name, DateBirth FROM Persons ORDER BY Id"
23.   $rResult = $hConn.Exec(sQuery)
24.  
25.   ReadData
26.  
27. End
28.  
29. Public Sub gvwResult_Data(Row As Integer, Column As Integer)
30.  
31.   Dim iHelp As Variant
32.  
33.   $rResult.MoveTo(Row)
34.   Select Column
35.     Case 2
36.        iHelp = $rResult[$sFieldName[Column]]
37.        gvwResult.Data.Text = Format(iHelp, "dd/mm/yyyy")
38.     Case Else
39.        gvwResult.Data.Text = Str($rResult[$sFieldName[Column]])
40.   End Select
41.  
42. End
43.  
44. Private Sub ReadData()
45.  
46.   Dim hField As ResultField
47.   Dim iX As Integer
48.  
49.   Inc Application.Busy
50.  
51.   '--This sets the number of records--
52.   gvwResult.Rows.Count = $rResult.Count
53.  
54.   '--This sets the number of fields (columns)--
55.   gvwResult.Columns.Count = $rResult.Fields.Count
56.  
57.   '--To store the column name--
58.   $sFieldName = New String[gvwResult.Columns.Count]
59.  
60.   For iX = 0 To 3
61.     gvwResult.Columns[iX].Alignment = 3
62.   Next
63.  
64.   '--Get the fieldnames--
65.   iX = 0
66.   For Each hField In $rResult.Fields
67.     With hField
68.       gvwResult.Columns[iX].Text = .Name
69.       $sFieldName [iX]= .Name
70.     End With
71.     Inc iX
72.   Next
73.  
74.   '--set width of the columns--
75.   gvwResult.Rows.Height = 32
76.   gvwResult.Columns[0].Width = 60           'Id
77.   gvwResult.Columns[1].Width = 120          'Name
78.   gvwResult.Columns[2].Width = 95           'BirthDate
79.  
80.   Finally
81.     Dec Application.Busy
82.  
83. End
84.  

Seems, I had to quickly create a simple fictional example.
Hope you understand how GridView works and how to populate it correctly.


 

Thank you for your help,

something was wrong in the loop and i didn't get all the results,

then i modify it

- i suppressed 'ResultConsult_h.MoveFirst

and just modify my loop like that
  
For l = 0 To nLignes_h - 1
       
   ResultConsult_h.MoveTo(l)   

   fo_GridView1_Write(l, 0, ResultConsult_h[0]) '—Writing the datas
   …
   …

Next

works very fine

thank you both for your help and your ideas,
thanks gbWilly for your code
 

 

Hi Zyfriala

Since I believe that using the gb.db2 DB class greatly facilitates database use under Gambas, I think I should insist.
I proposed my Farm example, but many believe that since the demonstration uses SQLite, it's not suitable for serious databases like PostgreSQL.
I also posted here: Problems with Buscar with Gambas in SQLite3 - Gambas ONE
an example I used to report a bug that works with all three of the most popular databases under GNU/Linux.
I'm adding here a reduction of the Farm example for Postgres.
I hope I've closed the loop.
It should also work on MySQL/MariaDB.

 

SpeedTestPostgres-0.0.1.tar.gz