KB129754 - How to Remap FoxPro 2.x Connectivity Kit Functions to 3.0

MORE INFORMATION

If you have a main program file or a procedure file, add this code to it and call the functions as you normally would. If you do not, you may want to make a procedure file and use the SET PROCEDURE command to reference these functions at run time.

   **************************************
   *   Procedure:  DBCANCEL
   *   Remaps dbcancel() -> SQLCANCEL()
   **************************************
   FUNCTION dbcancel
   PARAMETERS nHandle

   h = SQLCANCEL(nHandle)

   RETURN h

   **************************************
   *   Procedure:  DBCOLS
   *   Remaps dbcols() -> SQLCOLUMNS()
   **************************************
   FUNCTION dbcols
   PARAMETERS nHandle, cTable, cColForm, cResultSet

   DO CASE

      CASE PARAMETERS() = 2
         h = SQLCOLUMNS(nHandle, cTable)

      CASE PARAMETERS() = 3
         h = SQLCOLUMNS(nHandle, cTable, cColForm)

      CASE PARAMETERS() = 4
         h = SQLCOLUMNS(nHandle, cTable, cColForm, cResultSet)

   ENDCASE

   RETURN h

   **************************************
   *   Procedure:  DBCONNECT
   *   Remaps dbconnect() -> SQLCONNECT()
   **************************************
   FUNCTION dbconnect
   PARAMETERS DataSource, cUserID, cPass, cCString

   DO CASE

      CASE PARAMETERS() = 3
         h = SQLCONNECT(DataSource, cUserID, cPass)

      CASE PARAMETERS() = 4
         h = SQLCONNECT(DataSource, UserID, cPass, cCString)

   ENDCASE
   RETURN h

   ******************************************
   *   Procedure:  DBDISCONN
   *   Remaps dbdisconn() -> SQLDISCONN()
   ******************************************
   FUNCTION dbdisconn
   PARAMETERS nHandle

   h = SQLDISCONN(nHandle)

   RETURN h

   ******************************************
   *   Procedure:  DBEXEC
   *   Remaps dbexec() -> SQLEXEC
   ******************************************
   FUNCTION dbexec
   PARAMETERS nHandle, cSQLCommand, cCursorName

   DO CASE

      CASE PARAMETERS() = 2
         h = SQLEXEC(nHandle, cSQLCommand)

      CASE PARAMETERS() = 3
         h = SQLEXEC(nHandle, cSQLCommand, cCursorName)

   ENDCASE

   RETURN h

   ******************************************
   *   Procedure:  DBGETOPT
   *   Remaps dbgetopt() -> SQLGETPROP
   ******************************************
   FUNCTION dbgetopt
   PARAMETERS nHandle, cSetting

   h = SQLGETPROP(nHandle, cSetting)

   RETURN h

   *******************************************
   *   Procedure:  DBMORERES
   *   Remaps dbmoreres() -> SQLMORERESULTS
   *******************************************
   FUNCTION dbmoreres
   PARAMETERS nHandle, cExpression

   h = SQLMORERESULTS(nHandle)

   RETURN h

   ******************************************
   *   Procedure:  DBSETOPT
   *   Remaps dbsetopt() -> SQLSETPROP
   ******************************************
   FUNCTION dbsetopt
   PARAMETERS nHandle, cSetting, eExpression

   h = SQLSETPROP(nHandle, cSetting, eExpression)

   RETURN h

   ******************************************
   *   Procedure:  DBTABLES
   *   Remaps dbtables() -> SQLTABLES
   ******************************************
   FUNCTION dbtables
   PARAMETERS nHandle, cTableType, cResultName

   DO CASE

      CASE PARAMETERS() = 2
         h = SQLTABLES(nHandle, cTableType)

      CASE PARAMETERS() = 3
         h = SQLTABLES(nHandle, cTableType, cResultName)

   ENDCASE

   RETURN h

   ***********
   ** \EOF ***
   ***********

How to Remap FoxPro 2.x Connectivity Kit Functions to 3.0

SUMMARY

MORE INFORMATION