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.
}