getting there

[Robert Mann]

IF recNum > 0 THEN
   REPEAT recNum times
   put empty into tRec
   REPEAT with c = 1 to colNum
put VCursor_Field(curID, c) & tab after tRec
 END REPEAT
put tRec & cr after fld "Select"
get VCursor_Nextrecord(curID)
IF the result = false THEN exit REPEAT
END REPEAT
END IF
delete last char of fld "Select"

The above returns the following? It should return in column 1
(1,2,3,4,5,6..)and in column two (Honda, Kawasaki...)

176969688_176969992_
176969688_176969992_
176969688_176969992_
176969688_176969992_
176969688_176969992_
176969688_176969992_
176969688_176969992_
176969688_176969992_
176969688_176969992_
176969688_176969992_
176969688_176969992_
176969688_176969992_
176969688_176969992_
176969688_176969992_
176969688_176969992_
176969688_176969992_

It looks to me like it is only repeating the first record to recNum which is
16 times


Robert Mann


-----Original Message-----
From: valentina-bounces+robmann=gp-racing.com at lists.macserve.net
[mailto:valentina-bounces+robmann=gp-racing.com at lists.macserve.net]On
Behalf Of Ruslan Zasukhin
Sent: Wednesday, December 27, 2006 9:56 AM
To: valentina at lists.macserve.net
Subject: Re: getting there


On 06/27/12 3:18 PM, "Robert Mann" <robmann at gp-racing.com> wrote:

Hi Robert,

> get VDatabase_Open( mDatabase, dbPAth )
> put VDataBase_SqlSelect(mDatabase, "SELECT * FROM wt_brands ") into curID
>
> put VDatabase_Table( mDatabase, "wt_brands" ) into mbrands_
>
> put VCursor_RecordCount(curID) into recNum
>
> put VCursor_FieldCount(curID) into colnum
>
>
>
> the above works but now need to convert the following
>
> put revDatabaseColumnNumbered(curID, c)

This is ask field of cursor by index?

    put VCursor_Field( cursRef, fldIndex ) fldRef

>     revMoveToNextRecord curID

        VCursor_NextRecord( cursRef )

>   IF recNum > 0 THEN
>
>     REPEAT recNum times
>
>       put empty into tRec
>
>       REPEAT with c = 1 to colNum
>
>         put revDatabaseColumnNumbered(curID, c) & tab after tRec

This returns a string?

           VField_GetString( fldRef )

>       END REPEAT
>
>       put tRec & cr after fld "Select"
>
>       revMoveToNextRecord curID
>
>    IF the result = false THEN exit REPEAT
>
>     END REPEAT
>
>   END IF
>
>   delete last char of fld "Select"

--
Best regards,

Ruslan Zasukhin
VP Engineering and New Technology
Paradigma Software, Inc

Valentina - Joining Worlds of Information
http://www.paradigmasoft.com

[I feel the need: the need for speed]


_______________________________________________
Valentina mailing list
Valentina at lists.macserve.net
http://lists.macserve.net/mailman/listinfo/valentina