Excelente
truco que te devuelve el nombre de todas las base de datos que se
encuentran en el servidor de SQL Server utilizando SQLDMO.

Con este
truco podrás deshabilitar la barra de menú de VFP y no estará como si un
formulario fuera modal.

SET SKIP OF MENU _MSYSMENU
.T.

Una
pregunta bastante frecuente...... aquí tienes la forma de conocer las
propiedades de una tabla que se encuentre en el entorno de datos (Dataenvironment).

For Each oObj In
Thisform.DataEnvironment.Objects

If Lower(m.oObj.BaseClass) = "cursor"

Wait Window
Timeout 2 ;

"Name :"+m.oObj.Name+Chr(13)+;

"Alias :"+m.oObj.Alias+Chr(13)+;

"Database :"+m.oObj.Database+Chr(13)+;

"CursorSource :"+m.oObj.CursorSource

Endif

Endfor

Otro
ejemplo básico de como generar gráficos con MSChart.

oForm=Createobject(_form1_)

oForm.Show

Read Events



Define Class form1 As Form

      Top = 0

      Left = 0

      Height = 520

      Width = 790

      DoCreate = .T.

      Name = "Form1"



      Add Object mschart As OleControl With ;

      Top = 10, ;

      Left = 5, ;

      Height = 500, ;

      Width = 780, ;

      Name = "MsChart", ;

      OleClass = _MSChart20Lib.MsChart_



      Procedure Init

           Create Cursor
crsChart (myCaption c,myValue i)



           For ix =1 To 10

                
Insert Into crsChart Values (Sys(2015),Int(Rand()*1000))

           Endfor



          
Thisform.mschart.Editpaste

          
Thisform.mschart.ChartType = 1

      Endproc



   

    

Procedure QueryUnload

           Clear Events

     Endproc

Enddefine

En muchas
ocasiones quieres agregar un menú edición a tus aplicaciones... esta es
una forma sencilla.

Puedes
crear un PRG y agregar estas líneas y luego ejecutarlo y listo ya tienes
tu menú edición

DEFINE POPUP _medit

DEFINE BAR _med_slcta OF _medit PROMPT __ KEY CTRL+A

DEFINE BAR _med_paste OF _medit PROMPT __ KEY CTRL+V

DEFINE BAR _med_copy OF _medit PROMPT __ KEY CTRL+C

DEFINE BAR _med_cut OF _medit PROMPT __ KEY CTRL+X

DEFINE BAR _med_undo OF _medit PROMPT __ KEY CTRL+Z

Este truco
te permitirá quitar la barra de menús de Word utilizando automatización.

oWord =
CREATEOBJECT("Word.Application")

oword.Documents.Add

oword.CommandBars("Menu Bar").Enabled = .F.

oword.Visible = .t.

A través de
automatización puedes manipular la característica que desees de Word; en
este caso mostrare el nombre de los documentos utilizados recientemente en
Word.

oWord =
CREATEOBJECT("Word.Application")



For ia=1 to oWord.RecentFiles.Count

     ? oWord.RecentFiles.Item(ia).Name

EndFor



Release oWord

Algunas
veces utilizamos OutLook para almacenar las citas de nuestros clientes;
esta es la forma de conocer las citas a través de automatización.

oOl = NewObject("outlook.application")

oMAPI = oOl.GetNameSpace("MAPI")

oCal = oMAPI.GetDefaultFolder(9)



For Each oItem in oCal.Items

      ? oItem.Subject, oItem.Start, oItem.End

Next

 

Un buen
ejemplo de como utilizar el DatePicker para mostrar el calendario.

oMyform = Create("MiCal")

oMyform.Show

Read Events

Return



Define Class MiCal As Form

      Height = 60

      Caption = "Testing DTPicker"

      AutoCenter = .T.

      MaxButton = .F.

      MinButton = .F.

      AlwaysOnTop = .T.



      Add Object odatetime As odttm With ;

      Width = 85,;

      Top = 5,;

      Height = 25



      Procedure Destroy

            Clear Events

      Endproc

Enddefine





Define Class odttm As OleControl

      OleClass = "MScomctl2.DTPicker.2"

      OleLCID = 1033



      Procedure Init

          This.Left = (Thisform.Width-This.Width)
/ 2

      Endproc

Enddefine

 

Este es un ejemplo básico pero bueno de como interactuar con una base de datos de Access desde VFP.

cStrConn = "DRIVER={Microsoft Access Driver (*.mdb)};" +;
"Dbq=C:somedata.mdb;" +;
"Uid=usuario;" +;
"Pwd=password;"

lnAccess = SQLSTRINGCONNECT(cStrConn)

If lnAccess > 0
      SQLEXEC(lnAccess, "INSERT INTO NombreTabla (campo1, campo2) VALUES(00001, 485745)")
Else
     =MessageBox("No fue posible conectarse a la Base de Datos")
EndIf
 

Muy buen
truco que permite compactar una base de datos de Access desde VFP.

oJE = CreateObject("JRO.JetEngine")



oJE.CompactDatabase("Data Source=" + "d:articulos.mdb", "Data Source="
+ "d:articulos1.mdb")



 

Los parámetros para el
método CompacDatabase son los siguientes

 

Primer parámetro

     "Data Source=" +
"ruta de la base de datos a compactar"

Nuestro
clientes piden muchas cosas (por no decir otra cosa); a unos les gusta el
preview al 100% a otros les gusta verlo al 50% ..... aquí esta la forma de
hacerlo.

Agrega el
siguiente código en el método BeforeOPenTable del dataenvironment (entorno
de datos) del reporte

ZOOM WINDOW "Report Designer" MAX

KEYBOARD "{F3}"
&&75%

*KEYBOARD "{F3}{F3}" &&50%

*KEYBOARD "{F3}{F3}{F3}"
&&25%

*KEYBOARD "{F3}{F3}{F3}{F3}" &&10%

Lo que debes hacer es
enviarle pulsaciones de la tabla F3 con la función Keyboard; cada F3
que envíes hará que el zoom del preview sea más pequeño

cCadConnDSN = "driver
= SQL Server;server=tu_server;uid=sa;pwd=sa_pw"




O

cCadConnDSN = "driver
= {SQL Server};server=tu_server;uid=sa;pwd=sa_pw"




O

cCadConnDSN = "DRIVER
= {SQL Server};" ;

+ "SERVER=tu_server;"
;

+ "UID=nombre_usuario;"
;

+ "PWD=clave_pw;"
;

+ "DATABASE=PUBS;"
;
&& Nombre de la base de datos

+
"WSID=nombre_usuario;"
;

+ "APP=''"

nHanConn =
Sqlstringconnect(m.cCadConnDSN)

If nHanConn > 0

   
=MessageBox("Conectado
a la base de datos de SQl Server")


Else

   
=MessageBox("Error
al conectarse a la base de datos de SQl Server")


EndIf

Esta es la forma más
sencilla para determinar si un equipo de la red esta encendido o si esta
disponible una determinada unidad de red.

Si la unidad esta disponible se devolverá -1 y si la unidad no existe o
esta apagado el PC entonces devolverá -1

? DISKSPACE("\\NombreServidor\C\")