PC Toledo

Código: Selecionar todos

#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

Código: Selecionar todos

#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