FIX: Program Code Cannot Set Database Property to Null String (161198)

MORE INFORMATION

This program creates a free table named myTable. Next, the Database property is set to null. Finally, WAIT WINDOW commands compare the value of the FULLPATH() function with the actual value of the Database property.

Steps to Reproduce Problem

Create a program, place the following code in it, and run the program:

   CREATE TABLE myTable FREE (myFld C (10))
   * create the custom data environment object
   xx = createobject("myDataEnv")

   DEFINE CLASS myDataEnv AS DataEnvironment
   PROCEDURE init()
      This.AddObject("oMyCursor","myCursor")

      * The database property is incorrect.
      * It is showing the current value of FULLPATH("").
      * The same code under Visual FoxPro 3.0 shows the null string.

      WAIT WINDOW "This is the Value of FULLPATH():" ;
      + CHR(13) + FULLPATH("") + ;
      CHR(13) + "Press any key to continue..."

      WAIT WINDOW "This is the value of the Database property :" ;
      + CHR(13) + this.oMyCursor.Database ;
      + CHR(13) + "Press any key to continue..."

   ENDPROC
   ENDDEFINE

   DEFINE CLASS myCursor AS Cursor
      Database = ""    && Sets the Database property to empty string
      CursorSource = "myTable"
   ENDDEFINE
				

In Visual FoxPro 5.0, both the FULLPATH() function and the Database property return the same value. In Visual FoxPro 3.0, the Database property returns an empty string.