Cómo se conecta dos bases de datos
He intentado así y da error
- Code: Select all Expand view
CONNECT oServer HOST "servidor" USER "root" PASSWORD "123456" PORT 3306 FLAGS 0 DATABASE "rrhh", "agenda"
Gracias por la ayuda
Saludos,
Adhemar
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 0
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"
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 89 guests