Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
16 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 16 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
ListBox

23/5/2017, 10:37 por Rosangela Pires

Ola Amigos.

Para se movimentar na grid com as setas colocamos no Metodo AfterChange da grid …

Comentários: 0

TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 0

Exportar Dados Campo Memo Tabela DBF

10/4/2017, 10:28 por fcampos

Olá bom dia.

Estou tentando exportar os dados de algumas tabelas em formato dbf pelo foxpro.
O …

Comentários: 2

Função EVL()

8/4/2017, 12:18 por Clebervfp

Bom dia a todos.
Vim compartilhar de uma Função do próprio VFP que me benefício muito.
Função …

Comentários: 0

COMO BLOQUEAR REGISTRO OU TABELA NO VISUAL FOXPRO PARA GRAVAÇÃO EM REDE

3/4/2017, 10:29 por AJC

Pessoal estou tendo um problema que acontece sempre busco na minha tabela de clientes o ultimo …

Comentários: 2

Estatísticas
Temos 7081 usuários registrados
O último usuário registrado atende pelo nome de DENISON SANTOS DA SILVA

Os nossos membros postaram um total de 49 mensagens em 26 assuntos

MySQL x Visual Foxpro

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Anexo MySQL x Visual Foxpro

Mensagem por Marcos Guedes em 19/4/2009, 07:39

Acesse a banco de dados MySQL através do Visual Foxpro.
Esta classe lhe permite utilizar comando SQL's e retorná-los para um cursor.
Código:
*!* Autor: Marcos Guedes

CLEAR
m.obj = NEWOBJECT('acessoMysql')
m.nomecursor = SYS(2015)
m.gnconnhandle = m.obj.conectamysql()
?m.gnconnhandle
?m.obj.executacomando(m.gnconnhandle, "SELECT * FROM minhaTabela", m.nomecursor)
?m.obj.desconectamysql(m.gnconnhandle)
*!*
IF USED(m.nomecursor) THEN
 SELECT(m.nomecursor)
 BROWSE
 USE IN SELECT(m.nomecursor)
ENDIF
*!*
m.obj = NULL

DEFINE CLASS acessomysql AS CUSTOM

 HIDDEN conexao AS adodb.CONNECTION
 gnconnhandle = 0
 strconexao="DRIVER={MySQL ODBC 3.51 Driver};SERVER=200.111.111.111;DATABASE=NOMEDOBANCO;USER=NOMEDOUSUARIO;PASSWORD=SENHA;OPTION=3;"

 FUNCTION conectamysql AS logical
 *!* Conecta-se ao banco de dados a partir da string de conexão
 THIS.gnconnhandle = SQLSTRINGCONNECT(THIS.strconexao)
 RETURN THIS.gnconnhandle
 ENDFUNC

 FUNCTION desconectamysql AS logical
 LPARAMETERS gnconnhandle AS INTEGER
 *!*
 IF (VARTYPE(m.gnconnhandle)!="N") THEN
 m.gnconnhandle=THIS.gnconnhandle
 ENDIF
 *!*
 IF (m.gnconnhandle>=0) THEN
 RETURN SQLDISCONNECT(m.gnconnhandle)
 ELSE
 RETURN -1
 ENDIF
 ENDFUNC

 FUNCTION executacomando
 LPARAMETERS gnconnhandle AS INTEGER, comandosql AS STRING, nomecursor AS STRING
 *!*
 IF (THIS.gnconnhandle>=0) THEN
 IF (VARTYPE(m.gnconnhandle)!="N") THEN
 m.gnconnhandle=THIS.gnconnhandle
 ENDIF
 *!*
 RETURN SQLEXEC(m.gnconnhandle,m.comandosql,m.nomecursor)
 ELSE
 RETURN -1
 ENDIF
 ENDFUNC

 HIDDEN PROCEDURE INIT AS void
 THIS.conexao = NEWOBJECT("adodb.connection")
 ENDPROC

 HIDDEN PROCEDURE DESTROY AS void
 THIS.conexao = NULL
 ENDPROC
ENDDEFINE


Última edição por Marcos Guedes em 5/10/2016, 11:01, editado 1 vez(es)

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Anexo Re: MySQL x Visual Foxpro

Mensagem por hugo em 1/2/2010, 17:48

valeuuuuuuuuuuuu

_________________
"A tristeza é a falta de alegria, mais sem ela eu não poderia entender a alegria do fato de que a felicidade existe!"
Helio Leites - [Você precisa estar registrado e conectado para ver este link.]
avatar
hugo
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum