String de Conexão

Quer saber como se conectar a qualquer banco de dados via string de conexão? Acesse o Link abaixo, lá você terá exemplos de como se conectar ao SQL, Oracle, Postgree, MySQL, TeraData e Etc...

http://www.connectionstrings.com/

Criando um Array através de uma String e vice e versa.

Se em algum momento você sentiu a necessidade de jogar os valores de uma string para um array ou de um array para uma string, ai vai a dica do meu amigo Paulo Devidé(http://twitter.com/pdevide) :

Para criar um array a partir de uma String utilize a função Split:

Function Split(laReturn, lcString, lcDelimitador)
Alines(laReturn, Strtran(lcString,lcDelimitador, Chr(13)))
Return (laReturn)
Endfunc

Ex.:

cDados ="A,B,C"
DIMENSION aDados[1]
=split(@aDados, cDados, ", ")

A função vai te retornar :

aDados[1] = "A"

aDados[2] = "B"

aDados[3] = "C"

Agora para criar uma string a partir de um array, utilize a função UnSplit :

Function UNSPLIT(laReturn, lcDelimitador)
Local lcReturn, i_
Store "" To lcReturn
For i_=1 To Alen(laReturn,1)
lcReturn = lcReturn + Iif(Empty(laReturn[i_]),Space(1),Alltrim(laReturn[i_]))
If i_ < Alen(laReturn,1)
lcReturn = lcReturn + lcDelimitador
Endif
Endfor
Return (lcReturn)
Endfunc

Ex.:

Dimension aDados[3]

aDados[1] = "A"

aDados[2] = "B"

aDados[3] = "C"

cDados=UNSPLIT(aDados, ",")

A função vai retornar :

"A,B,C"

Problema ao usar SpreadSheet 11 no Visual Fox Pro

Para quem está com problemas para usar o SpreadSheet 11 no VFP. É só instalar o SP2.

O link para Download segue abaixo:

http://www.microsoft.com/downloads/details.aspx?FamilyID=a28ddec6-ba3c-49d0-8176-8c0b3fca06d1&displaylang=en

Como verificar se já existe um objeto Excel aberto com Visual Fox Pro.

oExcel = Createobject("Excel.application")


Por muito tempo eu utilizei a função acima para criar um novo objeto excel, porém muitos de meus usuários reclamavam que toda vez que se gerava um relatório, um novo exel era criado, dificultando a interação entre os relatórios.

Pois bem, após algumas horas criei a lógica abaixo. Pode não ser um "senhor" código, mas funciona.

Try
oExcel = Getobject(, "Excel.Application")
Catch
oExcel = Createobject("Excel.application")
EndTry