JoséQuintas escreveu:É bom deixar tudo anotado pra quando for fazer novamente.
Amigos, vejam este tutorial:
Instalando e configurando o MySQL para Harbour
Abraços,

Moderador: Moderadores
JoséQuintas escreveu:É bom deixar tudo anotado pra quando for fazer novamente.
#include "ado.ch"
#include "hbcompat.ch"
REQUEST HB_CODEPAGE_PTISO
STATIC oCn As Object
INIT PROCEDURE AppInit()
LOCAL oErr As Object
LOCAL cCnString As Character
RELEASE GetList
HB_CDPSELECT("PTISO")
Set( _SET_DATEFORMAT, "dd/mm/yyyy" )
SetMode(50,150)
SetBlink( .F. )
SetColor( "W+/N, N/W*" )
CLS
Try
cCnString := "Provider=SQLNCLI10;Server=(Local);Database=Harbour;Uid=sa;Pwd=xyz;"
oCn := win_OleCreateObject("ADODB.Connection")
oCn:ConnectionString := cCnString
oCn:CursorLocation := adUseClient
oCn:Mode := adModeReadWrite
Catch oErr
Alert( "Não foi possÃvel conectar ao banco de dados.;Erro: " + oErr:description, { " Fechar " } )
__Quit()
Finally
End
RETURN
cCnString := "Provider=SQLNCLI10;Server=(Local);Database=Harbour;Uid=sa;Pwd=xyz;"troque (Local) pelo IP, Harbour pelo nome do teu banco, sa pelo nome do usuário e Pwd pela senha, tudo isso fornecido pelo teu provedor.
cjp escreveu:Seguindo instrução do Toledo, contratei o serviço próprio do provedor com essa finalidade.
Toledo escreveu:Verifique se no seu Servidor (FTP) tem opção para criar banco de dados MySQL e qual é o endereço para conexão com o banco de dados. Geralmente os servidores disponibiliza um IP para conexão com o BD.
cjp escreveu:pois está dando erro nos includes e no Try.
cjp escreveu:Parece que não estou com a versão correta do Harbour para isso, né?
/*
* $Id: mysql1.prg 9217 2008-08-23 15:02:49Z vszakats $
*/
#include "adordd.ch"
THREAD STATIC t_cTableName
THREAD STATIC t_cEngine
THREAD STATIC t_cServer
THREAD STATIC t_cUserName
THREAD STATIC t_cPassword
THREAD STATIC t_cQuery := ""
REQUEST ADORDD
function Main()
USE mysql VIA "ADORDD" TABLE "user" MYSQL ;
FROM "127.0.0.1" USER "root" PASSWORD ""
Browse()
USE
return nil
#include "adordd.prg"
CASE Upper( cDbEngine ) == "MYSQL"
oConnection:Open( "DRIVER={MySQL ODBC 3.51 Driver};" + ;
"server=" + cServer + ;
";database=" + cDataBase + ;
";uid=" + cUserName + ;
";pwd=" + cPassword )
CASE Upper( cDbEngine ) == "MYSQL5"
oConnection:Open( "DRIVER={MySQL ODBC 5.3 ANSI Driver};" + ;
"server=" + cServer + ;
";database=" + cDataBase + ;
";uid=" + cUserName + ;
";pwd=" + cPassword )
Usuários vendo este fórum: Nenhum usuário registrado online e 4 visitantes