[V4RB] SQLselect ? BIS (The solution?)

[Ruslan Zasukhin]

on 9/23/03 2:37 PM, Thierry Nauze at huancaya at wanadoo.fr wrote:

> 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)
                                                           ^^^^^^^^^

Yes, but better use constants:

            kV_Server, kV_ReadWrite, kV_Forward
    
>  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

-- 
Best regards,
Ruslan Zasukhin      [ I feel the need...the need for speed ]
-------------------------------------------------------------
e-mail: ruslan at paradigmasoft.com
web: http://www.paradigmasoft.com

To subscribe to the Valentina mail list go to:
http://lists.macserve.net/mailman/listinfo/valentina
-------------------------------------------------------------