Bom dia a todos,
Estou iniciando nos estudos da ferramenta e peguei um vídeo que ensina a fazer conexões com o MySql. Ao executar, o seguinte O erro é retornado:
******************************* Error log file ********************************
Exe: D:\Projetos_Harbour_Clipper\Projetos\sistema\sistema.exe
Version: 1.0.0.0
User name: Joel
Computer name: PC
Data: 12/08/2013
Hora: 11:18:52
Memória Disponível: 1685420
Área Atual: 1
-------------------------- Informação do Compilador ---------------------------
Versão do Xailer: Xailer 3.0.2
Compilador: Harbour 3.2.0dev (Rev. 18854)
Compilador C/C++ : MinGW GNU C 4.7.1 (32-bit)
Plataforma Windows: Windows 8 6.2.9200
-------------------- Informação de manejo de erro interno ---------------------
Chamada Subsistema: BASE
Código Sistema: 1005
Status por Defeito: .F.
Descrição: Message not found
Operação: TMySQLDataSource:_LDISPLAYERROS
Argumentos: [ 1] = Tipo: O Val:
Ficheiros envolvidos:
Dos Error Code: 0
Trace Through:
__ERRRT_SBASE (0)
TMYSQLDATASOURCE:ERROR (0)
(b)HBOBJECT (0)
TMYSQLDATASOURCE:MSGNOTFOUND (0)
TMYSQLDATASOURCE:_LDISPLAYERROS (0)
F_INISYSTEM (30)
MAIN (17)
O Programa tem o seguinte código
/*
* Projeto: sistema
* Arquivo: sistema.prg
* Descrição: Módulo inicial da aplicação
* Autor:
* Data: 08-08-2013
*/
#include "Xailer.ch"
Procedure Main()
set century on
set date british
set decimals to 2
Application:lUseReturn := .T.
Application:cTitle := "sistema"
F_IniSystem()
Application:Run()
Return
STATIC FUNCTION F_IniSystem()
LOCAL consulta
AppData:AddData("base",TMySQLDataSource():Create())
With Object AppData:base
:cDatabase := 'base_dados'
:cHost := 'localhost'
:cUser := 'root'
:cPassword := 'root'
:lDisplayErros := .F.
:nTimeOut := 1000
//:nPort := 3306
If !:Connect()
MsgStop('Erro ao tentar conectar com a base de Dados', 'ERRO')
Quit
Else
MsgInfo('Conexão Estabelecida')
EndIf
End With
RETURN NIL