Valentina Office Server - Create Table Another way same result

[Damon Pillinger]

  dim tblPerson,mPerson as VTable
  dim mdatabase as VDatabase
  dim i as integer
  dim newRecID as integer
  dim tt as Double
  dim d as date
   
  dim f as folderitem
    // obtain folder item for file in the same folder.
  f = GetFolderItem("Database47.vdb")
    // mDatabase in this example -- property of this window.
  mDataBase =  new VDatabase("192.168.0.1", "sa","sa")
  
  mDataBase.Create( f )
    
  tblPerson = mDatabase.CreateTable( "Person" ) <--- crashes here


Copy of debug report - it just stops!!

Valentina_SetDebugLevel...
	PARAM: inLevel = 3
return

Database_Ctor...
	PARAM: instance = 28988652
return

Database_Ctor_Client...
	PARAM: instance = 28988652
	PARAM: inHost = "192.168.0.1"
	PARAM: inUserName = "sa"
	PARAM: inUserPassword = "sa"
	PARAM: inPort = 15432
	PARAM: inTimeout = 5
return

Database_Create...
	PARAM: inDatabase = 28988652
	PARAM: inMode = 4
	PARAM: inSegmentSize = 32768
	PARAM: inNativeOS = 0
return

Database_CreateTable...
	PARAM: inName = "Person"
	PARAM: inStorageType = 0


Best regards

Damon L. Pillinger
Director Daisychain EDi
Suite 3
4 Winston Court
Moorabbin 3189
Phone : +61 3 9532 1220
Fax : +61 3 9532 1280