Visual Foxpro

¿Como adicionar los datos a una base de datos en Visual Foxpro?

El comando para agregar un registro a aúna tablas es append o append blank, agrega en la tabla un registro en blanco y luego con el comando replace, ingresas datos en los campos que están en blanco.

Por ejemplo: Vamos a suponer que tienes una tabla cuya estructura es código(4) y nombre(c80). Ahí registras tipos de frutas

Pues para agregar una nueva fruta lo que tienes que hacer es darle la orden para que agregue un registro en blanco lo que en excel vendría a ser una fila.

Con el commando append blank luego le dices que a los campos código y nombre los reemplace con lo que has escrito en lo stexbox de tu formulario con el siguiente código:

replace código with thisform. Tetx1. value

replace nombre with thisform.text2.value

Suponiendo que en tu formulario has pegado dos controles textbox: textbox1, en donde ingresas el código que le corresponde a la fruta y el textbox2. En donde ingresas el nombre de la fruta.

Ese es la temática a seguir en la mayoría de casos.

¿Que comandos usar para adicion en Visual Foxpro? 

*-Declarar una variable que almacene la suma 
Loca lnVariableSuma 

*--Selecciona la tabla en la cual realizaras la operación 
Select Cuentas 

*-- suma el campo 

SUM campo TO lnVariableSuma 

*-Puedes aplicar un filtro para que sumes solo los registros que cumplan una condicón 

SUM campo FOR campofiltro=valorfiltro TO lnVariableSuma

     ¿Que comandos usar para Eliminar en Visual Foxpro?

lnRegistros_todos = RECCOUNT("tabla")

* Registros no marcados (CON SET DELTED ON)
SELECT CNT(*) FROM TalTabla INTO ARRAY laCount
lnRegistros_Activos = NVL(laCount[1,1],0)
lnRegistros_Marcados = m.lnRegistros_Todos - m.lnRegistros_Activos

Otra Forma:
SET DELETED OFF
SELECT CNT(*) FROM buymov WHERE !DELETED() INTO ARRAY laCount
? NVL(laCount[1,1],0) && registros activos (no marcados)
SELECT CNT(*) FROM buymov WHERE DELETED() INTO ARRAY laCount
? NVL(laCount[1,1],0) && registros marcados para borrar
SET DELETED ON