scom Posted July 31, 2009 Report Share Posted July 31, 2009 ola amigos. seguinte quando inicio o sistema eu faço 2 conexões 1 local e a outra remoto: //Remota SQL CONNECT ON '189.31.176.115'; PORT 3306; DATABASE 'SCOMLOJA'; USER 'root'; PASSWORD '2441558' ; OPTIONS SQL_NO_WARNING ; LIB 'MySQL'; INTO ConectRemoto IF SQL_ErrorNO() > 0 MsgStop( "Não foi possÃvel conectar ao banco de DADOS !"+CTRL+; "Informe esta mensagem ao suporte"+CTRL+; SQL_ErrorMsg() ) StatCone:=.F. ENDIF ConectRemoto:=SQLGetConn() //Local SQL CONNECT ON 'localHost'; PORT 3306; DATABASE 'SCOMLOJA'; USER 'root'; PASSWORD '' ; OPTIONS SQL_NO_WARNING ; LIB 'MySQL'; INTO ConectLocal IF SQL_ErrorNO() > 0 MsgStop( "Não foi possÃvel conectar ao banco de dados !"+CTRL+; "Informe esta mensagem ao suporte"+CTRL+; SQL_ErrorMsg() ) StatCone:=.F. ENDIF ConectLocal:=SQLGetConn() id=code>id=code>ai como faço pro os comandos SQL executar no local e quandor quiser executar no remoto tipo: fazer esse comando sql ta fazendo no ultima conexão mas quero usar o INTO pra pegar no LOCAL ou REMOTO: sei que o USE SQL da mas com sqlarray() da tambem? Sql = "SELECT A_APEL,A_DESC FROM GRU WHERE A_APEL LIKE '%"+Alltrim(vBusca)+"%' ORDER BY A_APEL" TabeGru:= SqlArray(Sql) oBrow:SetArray(TabeGru) Quote Link to comment Share on other sites More sharing options...
scom Posted July 31, 2009 Author Report Share Posted July 31, 2009 ola amigos. seguinte quando inicio o sistema eu faço 2 conexões 1 local e a outra remoto: //Remota SQL CONNECT ON '189.31.176.115'; PORT 3306; DATABASE 'SCOMLOJA'; USER 'root'; PASSWORD '2441558' ; OPTIONS SQL_NO_WARNING ; LIB 'MySQL'; INTO ConectRemoto IF SQL_ErrorNO() > 0 MsgStop( "Não foi possÃvel conectar ao banco de DADOS !"+CTRL+; "Informe esta mensagem ao suporte"+CTRL+; SQL_ErrorMsg() ) StatCone:=.F. ENDIF ConectRemoto:=SQLGetConn() //Local SQL CONNECT ON 'localHost'; PORT 3306; DATABASE 'SCOMLOJA'; USER 'root'; PASSWORD '' ; OPTIONS SQL_NO_WARNING ; LIB 'MySQL'; INTO ConectLocal IF SQL_ErrorNO() > 0 MsgStop( "Não foi possÃvel conectar ao banco de dados !"+CTRL+; "Informe esta mensagem ao suporte"+CTRL+; SQL_ErrorMsg() ) StatCone:=.F. ENDIF ConectLocal:=SQLGetConn() id=code>id=code>ai como faço pro os comandos SQL executar no local e quandor quiser executar no remoto tipo: fazer esse comando sql ta fazendo no ultima conexão mas quero usar o INTO pra pegar no LOCAL ou REMOTO: sei que o USE SQL da mas com sqlarray() da tambem? Sql = "SELECT A_APEL,A_DESC FROM GRU WHERE A_APEL LIKE '%"+Alltrim(vBusca)+"%' ORDER BY A_APEL" TabeGru:= SqlArray(Sql) oBrow:SetArray(TabeGru) Quote Link to comment Share on other sites More sharing options...
Marca Posted July 31, 2009 Report Share Posted July 31, 2009 sim vArray := SqlArray(cQuery,,ConectRemoto) Seria interessante vc atualizar seu perfil p. podermos saber oq. vc utiliza Marcelo Ferro Petrópolis - Rj Fwh9.01/xHarbour 1.1.0 Simplex /SqlLib /xMate/WSe Pelles Quote Link to comment Share on other sites More sharing options...
jcleoner Posted July 31, 2009 Report Share Posted July 31, 2009 faça assim SqlSetConnection( ConecRemoto ) ou SqlSetConnection( ConectLocal ) Quote Link to comment Share on other sites More sharing options...
scom Posted July 31, 2009 Author Report Share Posted July 31, 2009 obrigado....so escolher agora... valeu. Quote Link to comment Share on other sites More sharing options...
Marca Posted July 31, 2009 Report Share Posted July 31, 2009 citação:faça assim SqlSetConnection( ConecRemoto ) ou SqlSetConnection( ConectLocal ) id=quote>id=quote>Isso q. o Jose carlos esta falando tbem funciona sendo que com isso vc seta o banco para conexao desejada e vc passa a usar o banco setado como defalt e da maneira q. postei vc simplismente busca os dados na conexao desejada mantendo a conexao q. vc entrou no sistema quero dizer o seguinte entrei no sistema local entao todas as tabelas usadas são as locais vArray1 := SqlArray(cQuery,,ConectLocal) Busquei informações do banco local e continuo logado no banco local vArray2 := SqlArray(cQuery,,ConectRemoto) Continuo logado no banco local sendo q. buscando informações no banco remoto Ja da Maneira q. o Jose carlos postou SqlSetConnection( ConecRemoto ) vc seta o sistema p. trabalhar neste banco Ok ? Caso nao tenha entendido estamos ae Marcelo Ferro Petrópolis - Rj Fwh9.01/xHarbour 1.1.0 Simplex /SqlLib /xMate/WSe Pelles Quote Link to comment Share on other sites More sharing options...
jcleoner Posted August 1, 2009 Report Share Posted August 1, 2009 É isso aà Marcelo. Quote Link to comment Share on other sites More sharing options...
scom Posted August 1, 2009 Author Report Share Posted August 1, 2009 entendido...obrigado. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.