Autor Tópico: Aplicação Blank com mudança de conexão. É Possível dessa forma?  (Lida 683 vezes)

jobsoncunha

  • Iniciante
  • **
  • Mensagens: 79
    • Email
Pessoal, bom dia.

Preciso obter informações de uma base de dados e atualizar ou incluir dados numa outra base de dados. Tentei fazer, SEM SUCESSO, através de uma aplicação BLANK o seguinte:

A conexão padrão na opção "SQL" = cnx_001

no onExacute, coloquei o seguinte código:

sc_lookup (ds_cnx001, "select mat, nome, cpf, from cad order by mat");

$v_qt = count({ds_cnx001});  // Pega a quantidade de registros na tabela

for ($i=0; $i<$v_qt; $i++)
{
    $v_mat = {ds_serv[$i][0]};
    $v_nome = {ds_serv[$i][1]};
    $v_cpf = {ds_serv[$i][2]};
   
   sc_change_connection("cnx_001", "cnx_002");  // muda a conexão
   
   sc_lookup (ds_pac, "select pc_matricula from sm_paciente where pc_matricula = $v_mat");  // verifica na segunda base a existência do registro
   
   if (!empty({ds_pac}))
   {
                sc_exec_sql ("update sm_paciente set pc_cpf = $v_cpf where pc_codigo=$v_mat");
                sc_commit_trans('cnx_002');
   } else {
                sc_exec_sql ("insert into sm_paciente (pc_codigo, pc_nome, pc_cpf) values ($v_mat, $v_nome, $v_cpf)");
                sc_commit_trans('cnx_002');
   }

   sc_change_connection("cnx_002", "cnx_001");  // retorna à base anterior para pegar o próximo registro.

}

Ronyan Alves

  • Administrator
  • Avançado
  • *****
  • Mensagens: 353
Re:Aplicação Blank com mudança de conexão. É Possível dessa forma?
« Responder #1 Online: Julho 11, 2016, 11:24:28 am »
sc_change_connection:  "As trocas só têm efeito nas aplicações seguintes."
http://www.scriptcase.com.br/docs/pt_br/v81/macros-scriptcase/macros-scriptcase#sc_change_connection
--

Ronyan Alves
Equipe Scriptcase

Zerosnepil

  • Novato
  • *
  • Mensagens: 2
Re:Aplicação Blank com mudança de conexão. É Possível dessa forma?
« Responder #2 Online: Setembro 29, 2016, 07:19:06 am »
Knowledge of such matters is understandable, but it's hard to learn easily.