pablovidal wrote:Hola tienes que tener el puerto 3306 abierto si usas un firewall y si es desde un lugar remoto atraves de internet en el router tienes que hacer nap al 3306 a la pc donde estas corriendo mysql. Tambien tienes que dicerle a mysql que te vas a conectar de forma remota.
Ej.
si el usuario remoto quiere conectarse en la definicion de clave tienes que ponerle % en vez de localhost
::oConLocal := TMSConnect():New()
If !::oConLocal:Connect( "196.3.81.5", "usuario", "clave", , 3306, ,( 65536 + 131072 ) )
Return( .F.)
Endif
#include "FiveWin.ch"
#include "xBrowse.ch"
STATIC oWnd
//-------------------------------------------------------------------------------------
Function Main()
SET EPOCH TO 1920
SET DATE FORMAT "dd/mm/yyyy"
SET WRAP ON
REQUEST DBFCDX
If !Conectar()
Return Nil
Endif
maestro()
Return Nil
//-----------------------------------------------------------------------------
Function conectar()
Local Retorno:=.F.
LOCAL oErr,oCs
Public oCn
TRY
oCn:= CreateObject( "ADODB.Connection" )
oCs:= "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=ecst06; UID=root; PWD=10157763"
oCn:Open(oCs)
Retorno:=.T.
CATCH oErr
MSGAlert( "Error: " + oErr:Operation + " -> " + oErr:Description )
Retorno:=.F.
END
Return Retorno
Function maestro()
local oBrw
Local cSelect:= "select maestro.FECASI, maestro.ASIENTO, maestro.DESCASI, maestro.TOTDEB, maestro.TOTHAB from maestro"
lAdo := .t.
If lAdo
oDbDet:=TAdoBase():New( oCn, "maestro", cSelect )
Else
use maestro new
select maestro
EndIf
DEFINE WINDOW oWnd FROM 1, 1 TO 700,950 PIXEL TITLE "prueba adobase"
oBrw := TXBrowse():New( oWnd )
oBrw:nTop := 20
oBrw:nLeft := 10
oBrw:nBottom := 650
oBrw:nRight := 900
oBrw:nColDividerStyle := LINESTYLE_BLACK
oBrw:nRowDividerStyle := LINESTYLE_BLACK
oBrw:nHeaderLines := 2
oBrw:nFooterLines := 2
oBrw:nDataLines := 1
oBrw:lColDividerComplete := .T.
oBrw:lFooter := .t.
oBrw:cToolTip = "Este es el poder del xBrowser de fwh"
If lAdo
oBrw:SetAdo(oDbDet:oRcs)
Else
oBrw:SetRDD()
EndIf
oBrw:CreateFromCode()
ACTIVATE WINDOW oWnd
If lAdo
oDbDet:Close()
EndIf
RETURN NIL
pablovidal wrote:Usando la Eagle1 de Manu:
- Code: Select all Expand view RUN
::oConLocal := TMSConnect():New()
If !::oConLocal:Connect( "196.3.81.5", "usuario", "clave", , 3306, ,( 65536 + 131072 ) )
Return( .F.)
Endif
( 65536 + 131072 ) con esto puedo mandar a gravar mas de un query a mysql
ruben Dario wrote:pablovidal wrote:Usando la Eagle1 de Manu:
- Code: Select all Expand view RUN
::oConLocal := TMSConnect():New()
If !::oConLocal:Connect( "196.3.81.5", "usuario", "clave", , 3306, ,( 65536 + 131072 ) )
Return( .F.)
Endif
( 65536 + 131072 ) con esto puedo mandar a gravar mas de un query a mysql
Pablo me podrias faciliar un ejemplo completo usando TMSConnect():New()
Que diferencia entre TMSConnect():New() y CreateObject( "ADODB.Connection" )
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 41 guests