Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
24 usuários online :: 3 usuários cadastrados, Nenhum Invisível e 21 Visitantes :: 2 Motores de busca

Clebervfp, Napster182, Rubens

[ Ver toda a lista ]


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

28/3/2017, 10:59 por Clebervfp

Boa dia, estou com um problema com vfp9, se alguém poder me ajudar fico agradecido!

Tenho um …

Comentários: 0

Espessura do cursor intermitente

7/3/2017, 09:08 por Jefferson Matakas

Bom dia a todos !!

Existe uma opcao no windows que pode ser acessada atraves da 'central da …

Comentários: 0

DESENVOLVIMENTO EM REDES

4/3/2017, 18:45 por AJC

Pessoal tem ou conhece livros ou material para programação em
redes usando banco de dados nativo …

Comentários: 0

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: 4

Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

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

Os nossos membros postaram um total de 32 mensagens em 18 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