Copiar dados de um Bano MsSql para MySql c/ SQLRDD

[cleberconde]

Pessoal,

Tem como abrir 2 banco de dados ao mesmo tempo.

serao varios tabelas que tenho que copiar de banco MSSQL para um MYSQL. Usando o SQLRDD.

se alguem puder ajudar

Obrigado!

Cleber Conde

FWH 10.2/SQLLIB/xHARBOUR 1.2.1 / xDEV / xMATE

msn:cleberconde@hotmail.com

email: cleber@krcsistemas.com.br

[cleberconde]

Pessoal,

Tem como abrir 2 banco de dados ao mesmo tempo.

serao varios tabelas que tenho que copiar de banco MSSQL para um MYSQL. Usando o SQLRDD.

se alguem puder ajudar

Obrigado!

Cleber Conde

FWH 10.2/SQLLIB/xHARBOUR 1.2.1 / xDEV / xMATE

msn:cleberconde@hotmail.com

email: cleber@krcsistemas.com.br

[DonJuan]

citação:

Pessoal,

Tem como abrir 2 banco de dados ao mesmo tempo.

serao varios tabelas que tenho que copiar de banco MSSQL para um MYSQL. Usando o SQLRDD.

se alguem puder ajudar

Obrigado!

Cleber Conde

FWH 10.2/SQLLIB/xHARBOUR 1.2.1 / xDEV / xMATE

msn:cleberconde@hotmail.com

email: cleber@krcsistemas.com.br

---

id=quote>id=quote>

Sim tem

Faz assim oh!!

nCon1 := SR_AddConnection( CONNECT_MSSQL, cConString1 )

nCon2 := SR_AddConnection( CONNECT_MYSQL, cConString1 )

Quando vc for abri as tabelas abra assim

dbUseArea(.t., "SQLRDD", cQuery, cTABELA, .f.,.t.,,nCon1)

para salvar em outra conexão

oSql := SR_GetCnn(nCon2)

oSql := SR_GetConnection()

aqui fica seu codigo onde val exportar as informações

Acesse: http://programafontefivewin.blogspot.com/

FHW 10.8, XHB1.2.1, PELLESC 6.5, XDEV 7.2, FASTREPORT, SQLRDD, MySql, Firebird, Postgres

"MIGRE SEUS SISTEMAS EM CLIPPER PARA 32BITS COM BANCOS SQL"

[william]

bom dia, eu faço assim:

* aqui pego a conexao atual

nCnn:=SR_GetActiveConnection()

* abro a conexao com outro banco

cConnString = "MySQL=dbmy0003.whservidor.com;UID=fbaluminar;PWD=fazen1;DTB=fba"

nDetected := DetectDBFromDSN( cConnString )

If nDetected > SYSTEMID_UNKNOW

nCnn1 := SR_AddConnection( nDetected, cConnString )

EndIf

If nCnn1 < 0

SR_SetActiveConnection(nCnn)

msgalert("NAO Conectou com o Banco de Dados WEB !","Aviso")

close data

return nil

else

os2:settext("Conectado com o Banco de Dados 2 !")

EndIf

* tendo os dois bancos abertos, para copiar eu faço assim:

* abre BD fazenda

SR_SetActiveConnection(nCnn)

select 1

USE "USUARIOS" ALIAS ORI SHARED VIA "SQLRDD"

xt:=ori->(reccount())

ometer:SetTotal(xt)

* abre BD web

SR_SetActiveConnection(nCnn1)

* arquivo de Usuarios

* zera arquivo

oSql := SR_GetConnection()

oSql:Exec( "TRUNCATE TABLE usuarios" )

i:=0

select ori

go top

do while !ori->(eof())

xcod :=ori->cod

xnome:=ori->nome

xsenha:=ori->senha

xset:=ori->setor

xo1:=ori->obs1

xo2:=ori->obs2

xo3:=ori->obs3

xo4:=ori->obs4

xo5:=ori->obs5

* campo logico

xsup:=iif(ori->superv , "1", "0" )

mens:="INSERT INTO usuarios (cod,nome,senha,setor,obs1,obs2,obs3,obs4,obs5,superv)"+ ;

"VALUES ( '" + xcod + "'," + ;

"'" + xnome + "'," + ;

"'" + xsenha+ "'," + ;

"'" + xset + "'," + ;

"'" + xo1 + "'," + ;

"'" + xo2 + "'," + ;

"'" + xo3 + "'," + ;

"'" + xo4 + "'," + ;

"'" + xo5 + "'," + ;

xsup +" )"

oSql:Exec( mens )

ori->(dbskip(1))

i++

ometer:set(i)

enddo

close data

ometer:set(100)

**********************************************

id=code>id=code>

"Eu creio, que de algum modo, que seje relativo em demasia a subjetiva constitucional perante tecnicamente aos que assim ditam o descritivo em si, no parágrafo subconsequente do subconciente doutrinários."

[cleberconde]

Amigos,

Obrigado pela ajuda!!

Cleber Conde

FWH 10.2/SQLLIB/xHARBOUR 1.2.1 / xDEV / xMATE

msn:cleberconde@hotmail.com

email: cleber@krcsistemas.com.br