oCat = CreateObject("ADOX.Catalog")

oTab = CreateObject("ADOX.Table")

cRutaDB = "Provider=Microsoft.Jet.OLEDB.4.0;"
+ ;

            "Data Source=C:\BaseDatos.mdb;"

* Abro el catálogo


oCat.ActiveConnection = cRuta

* Creo la nueva tabla


With oTab

   
.Name
=
"Tabla Vinculada de dBASE"

   
.ParentCatalog = oCat


EndWith

* Establezco las propiedades para crear el vínculo con el archivo de dBASE


With oTab

    * Indicamos
solamente la carpeta donde se encuentra la tabla

   
.Properties("Jet
OLEDB:Link Datasource") =
"C:\"

   
.Properties("Jet
OLEDB:Remote Table Name") =
"vacunas#dbf"

   
.Properties("Jet
OLEDB:Create Link") = .T.

   
.Properties("Jet
OLEDB:Link Provider String") =
"dBASE 5.0;"


EndWith

* Añado la tabla a la colección Tables


oCat.Tables.Append(oTbl)

oCat = Null

=MessageBox("Se
ha vinculado correctamente el archivo.")


 

En el siguiente ejemplo el MessageBox se
reemplazará por el Wait Window

#Define Messagebox
NoMsg

=Messagebox("Esto
es un mensaje")

Procedure NoMsg(x,y,z)

    Wait Window
x


EndProc

Y si deseas que no muestre nada sólo quita el Wait Window y listo.

Otro ejemplo; en este vamos hacer que la función
ALLTRIM convierta enseguida a mayúsculas

#Define Alltrim
MiAlltrim

?Alltrim("
Esto es un mensaje ")

Procedure MiAlltrim(cTxt)

   
Return Rtrim(ltrim(Upper(cTxt)))


EndProc

Tengamos en cuenta que dentro del procedimiento no
podemos volver a llamar a la función ALLTRIM puesto que se presentaría un
llamado recursivo a la misma función (MiAlltrim) a menos que utilice
#Undefine
Alltrim
antes del RETURN.

Otro ejemplo básico, vamos a evitar que se utilice
la función VAL

#Define Val
NoxVal

? Val("10")

Procedure NoxVal(cTxt)

    Return
"Función no permitida"


EndProc

Bueno, puede hacer muchas cosas, sólo es cuestión
de imaginación y necesidades

cDir =
GETENV("userprofile")+"\Configuración
local\Application Data\Microsoft\CD Burning\"

cFile = "c:\DatosXP.txt"

Copy File (cFile)
to
(cDir+JustFname(cFile))

Set Safety Off

Create Cursor Tabla1 (Txt C(10))


Insert Into Tabla1
Values
("XXXXXXXXXX")


Insert Into Tabla1
Values
("YYYYYYYYYY")


Insert Into Tabla1
Values
("WWWWWWWWWW")

Create Report Reporte1
From
Tabla1


Report Form Reporte1
Preview Nowait

Create Cursor Tabla2 (Txt C(10))


Insert Into Tabla2
Values
("AAAAAAAA")


Insert Into Tabla2
Values
("BBBBBBBB")


Insert Into Tabla2
Values
("CCCCCCCC")

Create Report Reporte2
From
Tabla2


Report Form Reporte2
Preview Nowait

lEx = IsExclusive("Tabla")

? Iif(lEx,
"Exclusiva",
"Compartida")

#DEFINE
ImpRangoPag 4

cPaginas =
"1,3,6-12"

oWord = CreateObject("Word.Application")

oWord.Documents.Open(GetFile("DOC"))

oWord.ActivePrinter =
GetPrinter()

oWord.ActiveDocument.Printout(.T.,,ImpRangoPag,,,,,1,cPaginas)

 

 

oInet = Create("InetCtls.Inet")

oInet.RemotePort =
"8080"


oInet.RequestTimeOut = 1000

* En caso de necesitar Proxy

* oInet.proxy = "192.168.6.3"

cUrl = "http://www.davphantom.net/img/log2.png"

oDatos = oInet.OpenURL(cUrl, 1)

nHF = Fcreate("log2.png")

For i = 1
To Alen(oDatos)

    Fwrite(nHF,
Chr(oDatos[i]))


EndFor

FClose(nHF)


 

Lo único que debes hacer presionar las teclas:
Ctrl + C cuando te muestre el MessageBox y ya tendrás en el portapapeles el
mensaje que se mostraba.

oIE = CreateObject("InternetExplorer.Application")

oIE.Navigate("http://yahoo.com")

DO WHILE oIe.ReadyState = 1

    WAIT WINDOW
"Procesando...."
Nowait

ENDDO

oIEdocument = oIE.Document

?oIEdocument.body.innerhtml

cDirDest = "c:\Mis
Documentos\"


cFileACopiar = "Mi
Archivo de Ayer.txt"


Copy File (cFileACopiar)
To
(cDirDest+cFileACopia)






 

#Define
VK_LWIN 0x5B

#Define
VK_RWIN 0x5C

#Define
KEYEVENTF_KEYUP 0x2

Declare keybd_event
In
Win32API ;

    SHORT
bVk,
SHORT
bScan, ;

    Integer
dwFlags, Integer
deExtraInfo

keybd_event(VK_LWIN,0x5B,0,0)

keybd_event(VK_LWIN,0x5B,KEYEVENTF_KEYUP,0)

 


* Ahora veremos como mostrarlo esperar

* unos segundos y luego ocultarlo

#Define
VK_LWIN 0x5B

#Define
VK_RWIN 0x5C

#Define
KEYEVENTF_KEYUP 0x2

Declare keybd_event
In
Win32API ;

    SHORT
bVk,
SHORT
bScan, ;

    Integer
dwFlags, Integer
deExtraInfo

keybd_event(VK_LWIN,0x5B,0,0)

keybd_event(VK_LWIN,0x5B,KEYEVENTF_KEYUP,0)

=Inkey(.3)
* Espera 3 segundos

keybd_event(VK_LWIN,0x5B,0,0)

keybd_event(VK_LWIN,0x5B,KEYEVENTF_KEYUP,0)

Declare Integer FindWindow
In
WIN32API;


String
cNull,
String
cWinName

nOk = FindWindow("XLMAIN",
0)

? "Excel"+Iif(nOk
> 0,"","
no está")+"
ejecutándose"

DBSetProp("MiBaseDatos","Database","DBCEvents",.F.)

Para volver a activarlos:

DBSetProp("MiBaseDatos","Database","DBCEvents",.T.)

?(Left(Ttoc(Datetime()),14)
+ Right(Ttoc(Datetime()),2))

Close
Databases All

Use Home(2)+"Northwind\northwind.dbc"
In
0
Alias Dbc Noupdate

Select T.ObjectName
Table,I.ObjectName
Tag From Dbc
T ;

   
Join Dbc
I
On
T.ObjectId = I.ParentId ;

   
WHERE
T.objecttype ==
"Table"
;

   
And I.objecttype ==
"Index"