Conexão MYSQL
Enviado: 29 Jan 2018 08:07
Caros amigos
Estou em processo de migração, do bom e velho DBF para o Mysql, no meu sistema xharbour.
Já consegui estabelecer a conexão com sucesso e executar as principais tarefas (listar, incluir, editar, excluir, etc...), porém estou esbarrando em algo bem simples: testar se o Mysql está em execução.
Minha conexão acontece dessa forma:
Conto com a ajuda
Grato!
Paulo
Estou em processo de migração, do bom e velho DBF para o Mysql, no meu sistema xharbour.
Já consegui estabelecer a conexão com sucesso e executar as principais tarefas (listar, incluir, editar, excluir, etc...), porém estou esbarrando em algo bem simples: testar se o Mysql está em execução.
Minha conexão acontece dessa forma:
#include 'adodb.ch'
public conexao
** MODELO DE CONEXAO LOCAL
oConexao:=CreateObject("ADODB.Connection")
oConexao:open("DRIVER={MySQL ODBC 3.51 Driver};" + ;
"server=localhost" + ;
";database=BANCO_DE_DADOS" + ;
";uid=root" + ;
";pwd=")
oCursor:=CreateObject("ADODB.Recordset")
Conto com a ajuda
Grato!
Paulo