[V4RB] SQLselect ? BIS (The solution?)

[Thierry Nauze]

B'jour

Here is my solution. Is it ok ?

   dim i, n  as integer
   dim curseur as vCursor
   dim id, nom as string

  curseur = KarNotes.SQLSelect("SELECT id, nom FROM eleves", 2, 3,1)

   n=curseur.recordCount
   if n>0 then
     res=curseur.firstRecord
     For i=1 to n
       id=curseur.field("id").getString
       nom =  curseur.field("nom").getString +"$"

       curseur.field("nom").setstring(nom)
       res = curseur.update()

       res=curseur.nextRecord
     next
  end

Thanks,

--
Thierry Nauze			Saint-Denis de la Réunion