Conectando-se ao DB2

Conectando-se ao DB2

Abaixo está uma pequena rotina VBA executada no MS Excel para consultar uma tabela usando o driver de ODBC. Precisa limpar um pouco, declarar minhas variáveis, etc, mas funciona.

Eu sempre achei difícil deixar um exemplo completo disso na Web. Tenho certeza que existe algum exemplo completo disso por aí, mas quis deixar minha contribuição breve. Essa versão é boa devido ao usuário precisar de uma conexão ODBC em sua máquina. Automaticamente limitando o acesso cliente a um login que deva funcionar.

Sub transfer()

Dim varState As String

Set CS = CreateObject(“ADODB.Connection”)Set RS = CreateObject(“ADODB.Recordset”)

‘Retrieve values from Cells on the sheet to use as selections in the query belowvarState = ActiveSheet.Range(“C2”).ValuevarFrom_Date = ActiveSheet.Range(“B3”).ValuevarTo_Date = ActiveSheet.Range(“B4”).Value‘ ISeries connection String‘ConnectString = “Driver={ISeries Access ODBC Driver};System=10.1.4.1;Uid=xxxxx;Pwd=xxxxx;Library=PWRDTA41;QueryTimeout=0”ConnectString = “Driver={ISeries Access ODBC Driver};System=10.1.4.1;Library=PWRDTA41;QueryTimeout=0”

CS.Open (ConnectString)

SqlString = “SELECT hhicusn , C.FFDCNMB, C.FFDSTEB, hhiclsn, SUM(hhiqysa), SUM(hhiexsn), SUM(hhiexac) ” & _” FROM pwrdta41.hhiorddp ” & _” left outer join PWRDTA41.FFDCSTBP c” & _” ON hhicusn = c.ffdcusn and” & _” hhidivn = c.ffddivn and” & _” c.ffdcmpn = hhicmpn and” & _” c.ffddptn = hhidptn” & _” WHERE hhidtei between ” & varFrom_Date & ” and ” & varTo_Date & _” and hhiclsn = ‘105’ and c.ffdsteb = ‘” & varState & “‘” & _” GROUP BY hhicusn, c.ffdcnmb, c.ffdsteb, hhiclsn” & _” ORDER BY hhicusn”

‘Message box can be used for debugging the SQL statement‘MsgBox (SqlString)

RS.Open SqlString, CS

‘Clear Previous contents of CellsCells.SelectActiveSheet.Range(“A7:Z65535”).ClearContents‘copy the Recordset to excel sheet starting at A7ActiveSheet.Range(“A7”).CopyFromRecordset RS

‘Close Connection and RecordSetRS.CloseCS.Close‘Reset cell back to A1ActiveSheet.Range(“A1”).Select

End Sub

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

            

Ranking: DB-Engines - Classificação dos Sistemas de Gerenciamento de Banco de Dados

Ranking: DB-Engines - Classificação dos Sistemas de Gerenciamento de Banco de Dados

O DB-Engines Ranking classifica os sistemas de gerenciamento de banco de dados de acordo com a sua popularidade.

Método de Cálculo

O DB-Engines Ranking é uma lista de sistemas de gerenciamento de banco de dados classificados por sua atual popularidade. Medimos a popularidade de um sistema usando os seguintes parâmetros:

O número de menções do sistema em sites, foi medido como número de resultados em consultas dos motores de busca. No momento, usou-se o Google, Bing e Yandex para esta medição. Para contar apenas resultados relevantes, procurou-se <nome do sistema> em conjunto com o banco de dados, por exemplo, "Oracle" e "base de dados".

Interesse geral no sistema. Para esta medição, usamos a frequência de buscas em Google Trends.

Frequência de discussões técnicas sobre o sistema. Usou-se o número de questões, e o número de usuários TI interessados nos bem-conhecidos site de relacionados Q&A Stack Overflow e DBA.

Número de ofertas de emprego, em que o sistema é mencionado. Usou-se também o número de ofertas sobre os principais motores de busca de emprego.

Número de perfis em redes profissionais, em que o sistema é mencionado. Usamos a mais popular e internacionalmente profissionais redes LinkedIn e Upwork.

Relevância em redes sociais. Contou-se o número de tweets no Twitter quando o sistema foi mencionado.

Calculou-se o valor a popularidade de um sistema por meio da padronização, calculando a média dos parâmetros individuais. Estas transformações matemáticas são feitas de uma forma tal que a distância dos sistemas individuais é preservada. Isso significa que, quando o sistema A tem o dobro do tamanho de um valor nos DB-Engines Ranking como o sistema B, então é duas vezes mais popular quando calculados sobre os critérios de avaliação individuais.

A fim de eliminar efeitos causados ​​por uma mudança na quantidade das fontes de dados elas mesmas, a pontuação popularidade é sempre um valor relativo, que deve ser interpretado, em comparação com apenas outros sistemas.

O DB-Engines Ranking não mede o número de instalações dos sistemas, nem a sua utilização no âmbito dos sistemas de TI. Pode-se esperar, que o aumento da popularidade de um sistema (por exemplo, em debates ou ofertas de emprego) precede uma ampla utilização correspondente do sistema por um determinado fator tempo. Devido a isso, os DB-Engines Ranking podem atuar como um indicador precoce. 

Este ranking é atualizado mensalmente. Leia mais sobre o método de cálculo das pontuações.

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

            

Tips - Dashboards - Flynet Xcelsius Server 2010

| Blog Office VBA | Blog Excel | Blog Access |

O Flynet Xcelsius Server 2010 é uma escolha interessante para Dashboards de pequenas e médias empresas que desejam ter um diferencial permanente à frente da concorrência, fornecendo conhecimentos práticos por meio de Dashboards que oferecem uma visão holística do seu desempenho empresarial.

Oferecer integrações 'fora da caixa' com o Microsoft SharePoint e IBM WebSphere, bem como conexão em qualquer fonte de dados ODBC, como o SQL Server, MySQL, IBM DB2 permitindo que você rapidamente amplie os seus investimentos de TI com essa visualização interativa.

Veja alguns exemplos dos Dashboards 

Estes exemplos interativos de Dashboards mostram como o Flynet Xcelsius Server 2010 pode ser facilmente usado para criar a conectividade e interação necessárias que os Dashboards requerem. 

Clique em cada thumbnail (pequena imagem) para visualizar os Dashboards abertos. 

South Connexions Regional Neet Performance

Os escritórios da Connexions e os seus órgãos associados são capazes de ver em tempo real as estatísticas de desempenho regionais a partir de qualquer lugar do mundo, usando este painel. Ele é alimentado pelo Flynet Xcelsius Server. Para obter uma lista completa de painéis Connexions, veja esta página.

Environment Agency Monitoring

O órgão ambiental publica as detalhadas estatísticas de cada município no Reino Unido. Estes são apresentados usando Dashboards, onde as medições e as tendências podem ser acessadas? visualmente utilizando um mapa!

National Music Sales

O volume das vendas e dos negócios deste varejista de mídia nacional podem ser vistos por região, cidade, gênero e formato neste Dashboard.

Lime Records - Daily Performance Report

Lime Records é uma loja de música independente, também com presença online. Usando os controles no Dashboard, o gerente da loja é capaz de alocar recursos diariamente, com base no desempenho mensal, a fim de atender às metas estabelecidas.

What If?

O seu Dashboard mostra como ajustar valores numa série de variáveis, com cenários de negócios diferentes, executando previsões?

Daily Executive Report

Este agradável Dashboard, permite aos executivos avaliar a performace regional, seus recursos e a satisfação do cliente em base diária.

Monthly Sales Analytic

O desempenho dos representantes de vendas individuais podem ser monitorados, e comparados com os seus respectivos objetivos.

Referências: flynetviewer.com

Tags: Dashboard, Flynet, Xcelsius, IBM WebSphere, ODBC, SQL Server, MYSQL, DB2, 

MS Excel – Formulários Transparentes (Transparent (See through) userforms in Excel)

| Blog Office VBA | Blog Excel | Blog Access |

Este é um recurso útil para utilização em formulários utilizados como Splash
ou em outras áreas onde sua imaginação o tornar aplicável.
O que importa é que vc saiba como fazê-lo.
No módulo do formulário acrescente:
'==============================================================================================
' Microsoft® Office Excel by A&A - In Any Place.
' Copyright© A&A – In Any Place. All Rights Reserved.
'==============================================================================================
Private Declare Function SetWindowLong _
Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes _
Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function FindWindow _
Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong _
Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2&
Public hWnd As Long
Option Explicit
No evento de inicialização do seu formulário, faça uma chamada a função a seguir:
Function OpacityNow()
' Author: Date: Contact:
' André Bernardes 24/11/2008 10:09 bernardess@gmail.com
' Deixando o formulário transparente.
Dim bytOpacity As Byte
Let bytOpacity = 195 ' Nível de opacidade.
Let hWnd = FindWindow ("ThunderDFrame", Me.Caption)
Call SetWindowLong (Me.hWnd, GWL_EXSTYLE, GetWindowLong(Me.hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED)
Call SetLayeredWindowAttributes (Me.hWnd, 0, bytOpacity, LWA_ALPHA)
End Function
Boa diversão!