Invalid Curs ref

Zav - Alex Zavatone zavpublic at mac.com
Sun May 4 13:34:27 CDT 2003


I swear this used to work last week.  Today it returns a - value for 
the cursor and an error on setblank.  Any idea why?

Mac OS X 10.2.5, DMX.

Before running, I InitValentina and manually delete the username.vdb file

on CreateUserDatabase
   put "creating user database"
   myDBPath = the moviepath & "username.vdb"
   myDBTable = "Users"
   myDB = new( xtra "VDatabase")-- NEW INSTANCE OF THE XTRA

   CreateDataBase(myDB, myDBPath,1) -- CREATE DATABASE FROM SCRATCH

   -- MAKE A TABLE  **** The baseref OBJ is the table
   myBaseTableRef = MakeNewBaseObject(myDB, myDBTable)
     valentinaSetExtensions(["vhd","vdb","vdx","vbl"])

   -- ...then your addField stuff.
   userField = AddField(myDB, myBaseTableRef,"Username",#kTypeString,10)
   passwordField = AddField(myDB, myBaseTableRef,"Password",#kTypeString,10)
   hintField = AddField(myDB, myBaseTableRef,"Hint",#kTypeString,30)

   -- create a cursor object
   myDBref = myDB.GetRef()
   --
   myCrsRef = new(xtra "VCursor", myDBref, "SELECT * FROM" && myBaseTableRef)
   myCrsRef.SetBlank()

Thanks.
-- 
- Zav
Lost in the translation.


More information about the Valentina mailing list