CONNECT oServer HOST "servidor" USER "root" PASSWORD "123456" PORT 3306 FLAGS 0 DATABASE "rrhh", "agenda"
CONNECT oServer1 HOST "w8_acuellar" USER "root" PASSWORD "123456" PORT 3306 FLAGS 0 DATABASE "rrhh"
CONNECT oServer2 HOST "w8_acuellar" USER "root" PASSWORD "123456" PORT 3306 FLAGS 0 DATABASE "agenda"
cQuery1:="SELECT CAMPO1,CAMPO2 FROM DATABASE1.TABLA1"
cQuery2:="SELECT CAMPO1,CAMPO2 FROM DATABASE2.TABLA1"cQuery:="SELECT a.CLIENTE,b.RAZON_SOC,SUM(a.IMPORTE) "+;
聽 聽 聽 聽 "聽 聽FROM VENTAS.FACTURAS a "+;
聽 聽 聽 聽 "聽 聽JOIN MAESTROS.CLIENTES b ON a.CLIENTE=b.CODIGO"+;
聽 聽 聽 聽 " 聽 WHERE a.FECHA BETWEEN '20141001' AND '20141031'"+;
聽 聽 聽 聽 " 聽 GROUP BY a.CLIENTE" CONNECT oServer1 HOST "w8_acuellar" USER "root" PASSWORD "123456" PORT 3306 FLAGS 0 DATABASE
o
CONNECT oServer1 HOST "w8_acuellar" USER "root" PASSWORD "acr1504" PORT 3306 FLAGS 0Adhemar, solo conectate a la BBDD mysql, el resto lo defines en los querys, siempre suponiendo que las BBDD esten en un mismo servidor.
Saludos
Horacio
Y c贸mo seria conectarse a BBDD mysql? usando TDolphin
Gracias
Saludos,
Adhemar
oMySQL1 := ConnectTo(oMySQL1, cHost1, cUser1, cPass1, nPort1, cDbName1)
oMySQL2 := ConnectTo(oMySQL2, cHost2, cUser2, cPass2, nPort2, cDbName2)
oMySQL3 := ConnectTo(oMySQL3, cHost3, cUser3, cPass3, nPort3, cDbName3)
oMySQL4 := ConnectTo(oMySQL4, cHost4, cUser4, cPass4, nPort4, cDbName4)
.
..
...
//----------------------------------------------------------------------------------------------------------------------------
FUNCTION ConnectTo(oMySQL, cHost, cUser, cPass, nPort, cDBName)
LOCAL hIni := HB_ReadIni( ".\connect.ini" )
LOCAL oErr, nCont := 0, nFlags := 0
DEFAULT nPort := 3306
oMySQL := NIL
TRY
oMySQL := TDolphinSrv():New( cHost, ;
cUser, ;
cPass, ;
nPort, nFlags, cDBName),
{| oServer, nError, lInternal | GetError( oServer, nError, lInternal ) } )
IF oMySQL:lError
MsgInfo( "No Hay Conexi贸n Con El Servidor " + CHR(34) + cHost + CHR(34), "Operaci贸n Cancelada" )
oMySQL := NIL
EndIf
CATCH oErr
oMySQL := NIL
END
D_SetCaseSensitive(.f.) // t
D_LogicalValue(.F.)
D_SetPadRight( .t. )
RETURN oMySQL CONNECT oServer1 HOST "server" USER "root" PASSWORD "123456" PORT 3306 FLAGS 0 DATABASE "rrhh"
CONNECT oServer2 HOST "server" USER "root" PASSWORD "123456" PORT 3306 FLAGS 0 DATABASE "agenda"