Agregar un campo Memo a un cursor

Como agregar un campo Memo a un cursor resultado de un comando SELECT-SQL fue preguntado varias veces en el Grupo de Noticias de Visual FoxPro en Español, veamos como hacerlo.

Hugo Ranea nos indica que partir de VFP9 disponemos de la función CAST() que nos hace muy fácil la tarea en una sola línea de código:

OPEN DATABASE (HOME(2) + "\Data\TestData")

SELECT Company, CAST("" as Memo) AS CampoMemo ;
  FROM Customer ;
  INTO CURSOR curVFP9

BROWSE

En versiones anteriores de VFP también podemos añadir un campo Memo a un cursor mediante un pequeño truco que es crear un cursor temporal con un campo Memo y un solo registro; y combinarlo con nuestra consulta:

OPEN DATABASE (HOME(2) + "\Data\TestData")

CREATE CURSOR Temporal (CampoMemo M)
APPEND BLANK IN Temporal

SELECT Customer.Company, Temporal.* ;
  FROM Customer, Temporal ;
  INTO CURSOR curVFPx

BROWSE

Sobre este mismo tema hay artículos en este Blog que vale la pena leerlos y recordarlos:

-- Agregar Columnas a Cursores VFP --

-- Agregar columnas en sentencias SELECT SQL --