Prezados, preciso disponibilizar meu bd mysql localhost em um servidor nas nuvens para acesso das filiais
e não estou conseguindo fazer rodar.
Alguém poderia me ajudar postando um exemplo de conexão.....
gratidão
Edison
Moderador: Moderadores
Adquiri um endereço, loguin e senha
#include 'minigui.ch'
#include 'adodb.ch'
#include 'xhb.ch'
*_______________________________________________________________________________
function Main()
........
Inicio da conexão com banco
*_______________________________________________________________________________
function conecta_bd()
local web_server, web_database, web_user, web_password
local local_server, local_database, local_user, local_password
* WEB
web_server := ''
web_database := ''
web_user := ''
web_password := ''
* LOCAL
local_server := ''
local_database := ''
local_user := ''
local_password := ''
public oServer
if alltrim(v_dbuser) == 'root'
local_password := '123'
web_password := 'senha112345@'
else
v_trede := 'S'
local_password := 'wiesen'
web_password := 'senha112345@'
endif
local_database := 'db_sisfin'
web_database := 'edisonnabilecom_db' // alltrim(setup->cl_banco)
/*
WEB
*/
TRY
cnWEB := MySqlConnection(web_server,3306,web_database,web_user,web_password)
cnWEB:Open()
flagWEB := .T.
setproperty('form_main','label_nome_usuario','value','CONECTADO')
setproperty('form_main','label_nome_usuario','fontcolor',{4,255,67})
criar_tabelas( 'cnWEB' )
CATCH e
setproperty('form_main','label_nome_usuario','value','NAO CONECTADO')
setproperty('form_main','label_nome_usuario','fontcolor',{4,255,67})
flagWEB := .F.
END
/*
LOCAL
*/
TRY
cnLOCAL := MySqlConnection(local_server,3306,local_database,local_user,local_password)
cnLOCAL:Open()
flagLOCAL := .T.
setproperty('form_main','label_nome_usuario','value','CONECTADO')
setproperty('form_main','label_nome_usuario','fontcolor',{4,255,67})
criar_tabelas( 'cnLOCAL' )
CATCH e
setproperty('form_main','label_nome_usuario','value','NAO CONECTADO')
setproperty('form_main','label_nome_usuario','fontcolor',{4,255,67})
flagLOCAL := .F.
END
return(nil)
*-------------------------------------------------------------------------------
function MySqlConnection( cServer, nPort, cDatabase, cUser, cPassword )
local cnConnection
cnConnection := win_OleCreateObject("ADODB.Connection")
cnConnection:ConnectionString := "Driver={MySQL ODBC 3.51 Driver};Server=" + cServer + ";" + "Port=" + Ltrim( Str( nPort ) ) + ;
";Stmt=;Database=" + cDatabase + ";User ID=" + cUser + ";Password=" + cPassword + ";Collation=latin1;UseCompression;"
cnConnection:CommandTimeOut := 120 //seconds
cnConnection:ConnectionTimeOut := 120 //seconds
return cnConnection
#xcommand TRY => BEGIN SEQUENCE WITH {|__o| break(__o) }
#xcommand CATCH [<!oErr!>] => RECOVER [USING <oErr>] <-oErr->
#xcommand FINALLY => ALWAYS
**************************************************************
function ConectaADO()
Local lConnect := .f.
Local cStr:= "Server=meusql.pctoledo.com.br;Driver={MySQL ODBC 3.51 Driver};dsn=;User=toledox;pwd=xxx000;database=toledo01;"
//User e pwd tem que estar cadastrado no servidor para ter permissao para acessar o BD (database)
oConx := TOleAuto():New("ADODB.Connection")
oConx:ConnectionString := cStr
TRY
oConx:Open()
lConnect := .T.
CATCH
oConx := Nil
Return .F.
END
//funcao retorna .T. (conectou) ou .F. (falha)
Return lConnect
Usuários vendo este fórum: Bing [Bot], Google Adsense [Bot] e 8 visitantes