Invalid Curs ref

[Gunnar Swan]

Make a movie handler of the following code.
Run in the immediate window.
This should create the database.
Give it a try.
When we get this done ... then we'll deal with doing stuff.

- - - -- Start code snippet

on CreateFirstDatabase
  
  ValentinaInit( 4 * 1024 * 1024, "", "")  -- put your license here.
  ValentinaDebugLevel(2,TRUE)
  set DataBaseXtra = new( xtra "VDataBase" ) 
  DataBaseXtra.CreateDatabase(the moviePath & "First.VDB")
  
  ------------------------------------------------------------------------------------
  set objTable  = DatabaseXtra.MakeNewBaseObject("tblPeople") 
  
  set IDIndex = DatabaseXtra.AddField(ObjTable, "fldUserID"         , #kTypeString, 7)  
  set Result  = DatabaseXtra.AddField(ObjTable, "fldFirstName"      , #kTypeString, 20)
  set Result  = DatabaseXtra.AddField(ObjTable, "fldLastName"       , #kTypeString, 20)
  set Result  = DatabaseXtra.AddField(ObjTable, "fldEMail"          , #kTypeString, 40)
  
  -- Build Index.
  set IDIndex = DatabaseXtra.SetFieldFlag(IDIndex, 3, TRUE) 
  ------------------------------------------------------------------------------------  
  set objTable = DatabaseXtra.MakeNewBaseObject("tblAddresses") 
  
  set IDResult    = DatabaseXtra.AddField(ObjTable,"fldUserFK",     #kTypeString, 7)
  set Result    = DatabaseXtra.AddField(ObjTable,"fldStreet",       #kTypeString, 15)
  set Result    = DatabaseXtra.AddField(ObjTable,"fldCity",         #kTypeString, 15)
  set Result    = DatabaseXtra.AddField(ObjTable,"fldState",        #kTypeString, 15)
  set Result    = DatabaseXtra.AddField(ObjTable,"fldZip",          #kTypeString, 15)
  -- Index
  set IndexResult    = DatabaseXtra.SetFieldFlag(IDResult, 1, TRUE)  
  ------------------------------------------------------------------------------------    
  DatabaseXtra.CloseDatabase()
  ValentinaShutDown
  set DatabaseXtra = VOID
end
--------------------------------------------------------------------------------------


---- - - -end Code Snippet


Best Regards,
Gunnar Swan
http://www.PracticeToPass.Com