topic Re: SQLServer to QVD in Brasil

SQLServer to QVD

aderlanrm — Fri, 14 Mar 2014 04:50:08 GMT

O arquivo anexo tem um exemplo de como é possível fazer um extrator de Microsoft SQL Server para QVD.

No desenvolvimento em camadas, um aplicativo assim é útil principalmente na primeira, onde os dados são transformados diretamente para QVD, exatamente como estão disponíveis na origem.

Um pequeno ajuste no comando STORE, pode gerar arquivos texto com qualquer separador de campo.

Também tem uma pequena análise do banco de dados, com alguns gráficos e listas da estrutura.

Espero que seja útil, abraço.

Aderlan Rodrigues

aderlan.rodrigues@qway.com.br

Re: SQLServer to QVD

Fri, 14 Mar 2014 12:33:30 GMT

Excelente conteúdo.

abraço!

Bruno Triunfo.

Re: SQLServer to QVD

Fri, 02 May 2014 15:21:54 GMT

Bom dia!

Aderlan, tenho um arquivo de conexão semelhante ao seu disponibilizado.

Nas linhas

$(vTabela):
SQL SELECT * FROM $(vCatalogo).$(vModelo).$(vTabela);
STORE $(vTabela) into $(vCatalogo)_$(vModelo)_$(vTabela).qvd (qvd);
DROP Table $(vTabela);

preciso de uma rotina que apenas gere o qvd se existir registros lidos na tabela, ou seja, se o numero de registros for 0 não gravar qvd.

Consegues me auxiliar?

Atte

Patricia

Re: SQLServer to QVD

fernando_tonial — Fri, 02 May 2014 15:36:43 GMT

Olá, você pode fazer um If com a função NoOfRows('TableName').

$(vTabela):
SQL SELECT * FROM $(vCatalogo).$(vModelo).$(vTabela);

If NoOfRows('$(vTabela)')>0 Then

STORE $(vTabela) into $(vCatalogo)_$(vModelo)_$(vTabela).qvd (qvd);

EndIf

DROP Table $(vTabela);

Abraços.

Tonial

Re: SQLServer to QVD

aderlanrm — Fri, 02 May 2014 18:02:33 GMT

Olá Patricia,

O Tonial já respondeu.

Fico feliz em saber que o arquivo é útil.

Abraço.

Re: SQLServer to QVD

Fri, 02 May 2014 19:58:47 GMT

Excelente conteúdo.

Re: SQLServer to QVD

Wed, 07 May 2014 16:46:25 GMT

Boa tarde!

Muito obrigada Tonial!!

Re: SQLServer to QVD

ruzivao1980 — Fri, 06 Jun 2014 19:27:18 GMT

Não tem nenhum desses para oracle meu amigo?

Re: SQLServer to QVD

aderlanrm — Fri, 06 Jun 2014 21:04:59 GMT

Vou fazer um, mas com esse você já consegue fazer, basta trocar a string de conexão e substituir o select dos nomes das tabelas por uma tabela inline ou arquivo no disco (Excel).

Abraço.

Re: SQLServer to QVD

Anonymous — Mon, 05 Jan 2015 15:13:45 GMT

Aderlan,

fiz todo o procedimento, porem não estou conseguindo transformar em QVD, defini o caminho do into conforme faço em outros trabalhos mais ele não está gerando os QVDs.

Onde devo está errando?

Re: SQLServer to QVD

lucianosv — Mon, 05 Jan 2015 16:24:00 GMT

Boa tarde.

Você têm erros de chave no script como mostra o finalzinho do seu script $ Syn 1.

Se as tabelas tiverem campos com o mesmo nome e for só para extrair, de um store de cada tabela. para qvd após o select e um drop table.

Dessa forma não haverá amarrações de dados.

Re: SQLServer to QVD

Anonymous — Mon, 05 Jan 2015 16:28:05 GMT

Luciano,

Independente da chave não teria que criar os QVDs?

Re: SQLServer to QVD

lucianosv — Mon, 05 Jan 2015 16:31:29 GMT

Na sua execução não mostra nenhuma linha do loop que lê e grava as tabelas:

Let vLinhas = NoOfRows('Tabelas'); // Define o número de objetos que serão exportados

FOR x = 0 to ($(vLinhas)-1) // O -1 é necessário pois o indice começa em zero

Let vCatalogo = Peek('TABLE_CATALOG',$(x)); // Define o nome da base de dados no objeto atual

Let vModelo = Peek('TABLE_SCHEMA',$(x)); // Define o nome do modelo no objeto atual

Let vTabela = Peek('TABLE_NAME',$(x)); // Define o nome do objeto a ser exportado

$(vTabela):

SQL SELECT * FROM $(vCatalogo)$(vModelo)$(vTabela);

STORE $(vTabela) into $(vCatalogo)$(vModelo)$(vTabela).qvd (qvd);

DROP Table $(vTabela);

NEXT;

DROP Table Tabelas;

Não sei o que foi alterado do script original, mas sugiro depurar para verificar se está entrando no loop e resolvendo corretamente as variáveis.

Re: SQLServer to QVD

Anonymous — Mon, 05 Jan 2015 17:58:57 GMT

segue script abaixo:

//*** ATENÇÃO, DEPENDENDO DO TAMANHO DA SUA BASE DE DADOS, ISSO PODE DEMORAR ***//

// String de conexão de exemplo usando o SQL Express e banco de dados fornecido pela Microsoft, o Adventure Works 2008

OLEDB CONNECT32 TO [Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=GRUPOVB;Data Source=SAUTUMN1;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=SAUTUMN1;Use Encryption for Data=False;Tag with column collation when possible=False];

TABLES: // Carrega todos objetos tabelas ou views

SQL select TABLE_CATALOG,

TABLE_SCHEMA,

TABLE_NAME,

TABLE_TYPE

from INFORMATION_SCHEMA.TABLES;

//where TABLE_TYPE = 'BASE TABLE' or TABLE_TYPE = 'VIEW'

//order by TABLE_TYPE, TABLE_NAME;

Let vLinhas = NoOfRows('Tabelas'); // Define o número de objetos que serão exportados

FOR x = 0 to ($(vLinhas)-1) // O -1 é necessário pois o indice começa em zero

Let vCatalogo = Peek('TABLE_CATALOG',$(x)); // Define o nome da base de dados no objeto atual

Let vModelo = Peek('TABLE_SCHEMA',$(x)); // Define o nome do modelo no objeto atual

Let vTabela = Peek('TABLE_NAME',$(x)); // Define o nome do objeto a ser exportado

$(vTabela):

SQL SELECT * FROM $(vCatalogo)$(vModelo)$(vTabela);

STORE $(vTabela) into $(vCatalogo)$(vModelo)$(vTabela).qvd (qvd);

DROP Table $(vTabela);

NEXT;

Grato pela atenção.

Re: SQLServer to QVD

aderlanrm — Fri, 23 Jan 2015 10:54:35 GMT

Olá pessoal,

Desculpem a falta de resposta, a correria tem me deixado longe da comunidade.

Os QVD são gerados na mesma pasta onde você salvou o QVW.

O problema pode ser na string de conexão, é interessante refazer usando o assistente do editor de script e fazer teste. Apesar de fazer a leitura da tabela de informações do banco, o usuário pode não ter permissão de leitura ao banco que está extraindo os dados.

Acrescente o comando "USE [NOME DO BANCO]" para reforçar, se necessário.

Abraço.