Un ejemplo completo de como realizar consultas básicas a una base de datos de SQL Server utilizando el objeto CursorAdapter a través de ADO.

Local oConn As ADODB.Connection, ;

oRS As ADODB.Recordset, ;

oCom As ADODB.Command

oConn =Createobject("ADODB.Connection")

With oCom

    .ActiveConnection = oConn

    .CommandText="select * from Northwind..Orders where customerID = ?"

    .Parameters.Refresh()

    .Parameters(0).Value = "ALFKI"

Endwith

oRS = oCom.Execute()

Local oCAAs CursorAdapter

oCA =
Createobject("CursorAdapter")

oCA.DataSourceType="ADO"

?oCA.CursorFill(,,,oRS)

En este truco utilizaremos el objeto COM SAPI que viene con VFP para convertir una cadena de texto a un archivo de audio WAV.

oObjVoi = CreateObject("SAPI.SpVoice")

oObjStr = CreateObject("SAPI.SpFileStream")

oObjStr.Format.Type
= 6

oObjStr.open("c:Prueba.wav", 3)

oObjVoi.AudioOutputStream = oObjStr

oObjVoi.Speak("Visual Fox Pro")

oObjStr.close

Otra forma de convertir de cadena a entero esta vez utilizando el API.

DECLARE INTEGER StrToInt
IN
Shlwapi
STRING
lpSrc

? "CADENA A ENTERO"

? StrToInt("0")

? StrToInt("2.16")

? StrToInt("1285754.16")

? StrToInt("1AE2")

Función bastante útil cuando deseas comparar si dos cadenas son iguales sin importar mayúsculas o minúsculas.

Clear

DECLARE INTEGER ChrCmpIA IN Shlwapi ;

As ChrCmpI SHORT w1, SHORT w2

?
"-----------------------------------"

? " Comparando
cadenas"

?
"-----------------------------------"

? " 0 = IGUALES
- 1 = DIFERENTES"

? "-----------------------------------"

? ChrCmpI(Asc("c"),
Asc("C"))

? ChrCmpI(Asc("v"),
Asc("C"))

? ChrCmpI(Asc("F"),
Asc("F"))

? ChrCmpI(Asc("V"),
Asc("M"))

Esta es la cadena de conexión del Driver de EasySoft que debes utilizar para cuando desees trabajar con FireBird.

*SERVIDOR = Puede ser el nombre del PC o la IP del mismo.

Tenga en cuanta que la base de datos puede ser extensión GDB o FDB.

cCad = "Driver={Easysoft IB6 ODBC};" + ;
                    "Server=SERVIDOR;" + ;
                    "Database=SERVIDOR:C:RutaBaseDatos.gdb;"+;

                    "Uid=USUARIO;" + ;
                    "Pwd=CLAVE"
 

Código bastante útil .... podemos convertir un número determinado de segundos en días, horas, minutos...

nSeg = 276786

? Padl(Int( nSeg / 86400),3) + " Días ";

    + Padl(Int((nSeg % 86400)/3600),2,"0") + " Hrs ";

    + Padl(Int((nSeg % 3600)/60), 2, "0") + " Min ";

    + Padl(Int(nSeg %
60),2,"0") + "
Seg"

Excelente función que te permitirá renombrar una base de datos sin perder los vínculos de las tablas.

Por : Cetin Basoz

lcOldDBC = "NOMBREBASEDATOS"

lcNewDBC = "NUEVONOMBRE"

RenDbc(m.lcOldDBC, m.lcNewDBC)

Function RenDbc

    Lparameters OldName, NewName

    Open Data (OldName)

    lnTables=Adbobject(arrTables,"TABLE")

 

    For ix=1
To lnTables

         lcTable = arrTables[ix]+".DBF"

     ;    handle=Fopen(lcTable,12)

     =Fseek(handle,8,0)

        lnLowByte = Asc(Fread(handle,1))

       lnHighByte = Asc(Fread(handle,1))*256

        lnBackLinkstart = lnHighByte + lnLowByte - 263

    = Fseek (handle,lnBackLinkstart,0)

        Fwrite(handle,Forceext(NewName,"dbc" )+Replicate(Chr(0),263),263)

         =Fclose(handle)

    Endfor

    Close Data All

    Rename (Forceext(OldName,"dbc"))To (Forceext(NewName,"dbc"))

     Rename(Forceext(OldName,"dcx"))To (Forceext(NewName,"dcx"))

    Rename(Forceext(OldName,"dct"))To (Forceext(NewName,"dct"))

Endfunc

En este ejemplo utilizaremos el ActiveX de Windows Media Player para reproducir archivo de audio.

oPlayer =
CreateObject("WMPlayer.OCX")

oPlayer.URL = GetFile("mp3;wav;mid;snd;midi;au")

 

INKEY(3,
"H")

=MessageBox("Terminado")

Muy útil función API que nos permite convertir un número en su respectivo valor en Bytes - KB - MB - GB .... de forma muy sencilla.

Declare STRING StrFormatByteSize
IN
Shlwapi;

   
INTEGER
dw,
STRING
@ pszBuf,
INTEGER
cchBuf

 

    = _show (532)

    = _show (1340)

    = _show (23506)

    = _show (2400016)

    = _show (2400000000)

    = _show (4294967295)

 

Function _show (dw)

    pszBuf =
SPACE(50)

    ? dw, " -> "

    ?? StrFormatByteSize (m.dw, @pszBuf,
Len(pszBuf))

Endfunc