getting there

[Robert Mann]

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)

    revMoveToNextRecord curID



  

  IF recNum > 0 THEN

    REPEAT recNum times

      put empty into tRec

      REPEAT with c = 1 to colNum

        put revDatabaseColumnNumbered(curID, c) & tab after tRec

      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"

 



Thanks

Rob