Ejemplos Prácticos

1.Mensaje:

MESSAGEBOX ("Hola Mundo")
 loForm = CREATEOBJECT ("HiForm")
 loForm. Salón (1)


 DEFINE COMO CLASE HiForm Formulario
   AutoCenter =. T.
   Caption = "Hola Mundo"


   ADD lblHi OBJETO como Etiqueta CON;
     Caption = "Hola, Mundo!"
 ENDDEFINE
  ? loMine. = CREATEOBJECT ("MiClase") loMine cProp1 && Esto funcionará (Doble - signo marca el fin - de - la línea de comentario) loMine cProp2 Error del programa &&.?..?. CPROP2 propiedad no se encuentra loMine MyMethod1 () && Esto funcionará loMine MyMethod2 () && error del programa:.?. MYMETHOD2 propiedad no se encuentra DEFINE class MiClase AS Custom cProp1 = "Mi.  es una propiedad oculta ". ENDPROC PROCEDIMIENTO MyMethod1 () * Este es un método público, llamando a un método oculto que
   && Crear una tabla
 CREATE TABLE randData (idata I)


 && Llenar con datos aleatorios con xBase y SQL DML comandos
 FOR i = 1 a 50
     APPEND BLANK
     CAMBIAR CON idata (RAND () * 100)


     INSERT INTO randData (idata) VALORES (rand () * 100)
 ENDFOR


 && Coloque un índice estructural de los datos
 ÍNDICE DE LA idata TAG idata
 CLOSE ALL


 && Mostrar datos ordenados con xBase - comandos de estilo
 USO randData
 SET PARA idata
 GO TOP
 LISTA DE PRÓXIMOS 10 && 10 Primeros
 IR ABAJO
 SKIP - 10
 && LISTA último descanso 10
 CLOSE ALL


 && Explorar datos ordenados utilizando comandos SQL DML


 SELECT *;
   DE randData;
   ORDER BY idata DESCENDING
[ editar ]ODBC SQL pasarela de acceso mediante
 && Se conecta a una fuente de datos ODBC
 LOCAL nHnd
 nHnd = SQLCONNECT ("ODBCDSN", "usuario", "pwd")


 && Ejecutar un comando SQL


 LOCAL nResult
 nResult = SQLEXEC (nHnd, "USE master")
 SI nResult <0
   MESSAGEBOX ("base de datos maestro no existe!")
   REGRESAR
 ENDIF


 && Recuperar datos desde el servidor remoto y la almacena en
 && Un cursor de datos local


 nResult = SQLEXEC (nHnd, "SELECT * FROM authors", "QAUTHORS")


 && Actualizar un registro en una tabla remota utilizando los parámetros


 PRIVADO cAuthorID, cAuthorName
 cAuthorID = "1001"
 cAuthorName = "nombre nuevo"
 nResult = SQLEXEC (nHnd, "los autores UPDATE SET auth_name =? cAuthorName DONDE auth_id =? cAuthorID")


 && Cierra la conexión


 SQLDISCONNECT (nHnd)
  LOCAL nHnd
 nHnd = SQLCONNECT ("ODBCDSN", "usuario", "pwd")


 && Ejecutar un comando SQL
 LOCAL nResult
 nResult = SQLEXEC (nHnd, "USE master")         
 SI nResult <0
   MESSAGEBOX ("base de datos maestro no existe!")
   REGRESAR
 ENDIF


 && Recuperar datos desde el servidor remoto y la almacena en
 && Un cursor de datos local


 nResult = SQLEXEC (nHnd, "SELECT * FROM authors", "QAUTHORS")


 && Actualizar un registro en una tabla remota utilizando los parámetros


 PRIVADO cAuthorID, cAuthorName
 cAuthorID = "1001"
 cAuthorName = "nombre nuevo"
 nResult = SQLEXEC (nHnd, "los autores UPDATE SET auth_name =? cAuthorName DONDE auth_id =? cAuthorID")


 && Cierra la conexión


 SQLDISCONNECT (nHnd)