Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
25 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 25 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
Últimos assuntos
automação do mozilla e chrome

15/1/2017, 12:16 por Handerson Mildroz

Boa tarde a todos!

Sou iniciante no VFP. Preciso de ajuda, pois tenho um código que usa o …

Comentários: 0

COMO ESTÃO DESENVOLVENDO EM WEB?

22/8/2016, 10:48 por AJC

Pessoal, já lí sobre vários topicos aqui no forum sobre desenvolvimento web
mas ainda nada …

Comentários: 2

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 0

dll pertocheck

15/12/2016, 12:45 por FERNANDOMATRELLA

Alguem teria ja desenvolvido a comunicação com essa dll estou tento muito trabalho aqui e nenhum …

Comentários: 1

Rota de um arquivo

15/12/2016, 22:28 por Martins

Agradeço ajuda para o seguinte:
como guardar numa variável, um caminho ou rota,por exemplo


Comentários: 3

Estatísticas
Temos 6986 usuários registrados
O último usuário registrado atende pelo nome de carlosdantasf

Os nossos usuários postaram um total de 1 mensagem em 1 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.]

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