topic-18005

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Porting FW to FWH using MySql
Posted: Wed Feb 10, 2010 12:38 PM

Wzaf,

What FWH version are you using ? Harbour or xHarbour, what version ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Porting FW to FWH using MySql
Posted: Wed Feb 10, 2010 04:46 PM

In case of MySql we are compelled to use ODBC driver. There is no free OLEDB provider available. The total functionality of ADO is not supported by ODBC. We need to work with these limitations while working with MySql. We can not expect whatever that works with Oracle, MSSql etc. will also work with MySql ODBC driver.

Regards

G. N. Rao.

Hyderabad, India

wzaf

Posts: 38

Joined: Tue Sep 30, 2008 11:16 AM

Re: Porting FW to FWH using MySql
Posted: Wed Feb 10, 2010 08:53 PM

Antonio,

I use FWH 10.1
Harbour for BCC - 2.0

Regards
Wzaf

Daniel Garcia-Gil

Posts: 2365

Joined: Wed Nov 02, 2005 11:46 PM

Re: Porting FW to FWH using MySql
Posted: Wed Feb 10, 2010 09:56 PM

Hello wzaf.

Try this way

Code (fw): Select all Collapse

#include "Fivewin.ch" 
#include "ado.ch"

FUNCTION MAIN() 
local oCon, lOk
 
lOk:=.t.
 
 if lOk
    TRY
       oCon:=TOleAuto():new("ADODB.Connection")
      
       
    CATCH oErroraDo
       ErrorCatch( oErrorAdo, "Error en OLE" )
    END
     
     
    TRY       
       oCon:connectionString := "Driver={MySQL ODBC 5.1 Driver};Server=EQUIPO;Port=3306;Database=test;User=root; Password=12345678;Option=3;"
       oCon:open()
    CATCH oErrorAdo

       ErrorCatch( oErrorAdo,"Error en OPEN"  )
       return .f.
    END
    
 endif
return nil

Function ErrorCatch( oError, cTitle )

   LOCAL cMensagemRetorno := ""
   local cArg, cArgs := ""

   if ValType( oError:Args ) == "A"
      for each cArg in oError:Args
         cArgs += cValToChar( cArg ) + CRLF
      NEXT
   endif
   cMensagemRetorno := "[Subsystem]"         + oError:SubSystem                 + CRLF +;
                       "[SubCode]"           + alltrim( str( oError:SubCode ) ) + CRLF +;
                       "[Operacion]"         + oError:Operation                 + CRLF +;
                       "[Descripcion]"       + oError:Description               + CRLF +;
                       "[Argumentos]"        + cArgs

RETURN( msgStop( cMensagemRetorno, cTitle ) )

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9

wzaf

Posts: 38

Joined: Tue Sep 30, 2008 11:16 AM

Re: Porting FW to FWH using MySql
Posted: Thu Feb 11, 2010 09:22 AM

Tank you Daniel ! ,
it works .

Best Regards
Wzaf

FiveTech Support Forums

Continue the discussion