✔ Programação GLOBAL®: VBA Access - Inserindo SQL Dinâmico na Query - Access 2013 Generate dynamic SQL statements

VBA Access - Inserindo SQL Dinâmico na Query - Access 2013 Generate dynamic SQL statements

DESENVOLVO APLICAÇÕES VBA

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

MIS - Usufruindo a excelência na análise das suas Informações

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba 3 Calendários Customizáveis de 2013 em Excel

Usando Gauges em Dashboards no MS Access

Você tem direito as informações da sua empresa

O MS Access é tão flexível e dinâmico, que nos permite facilidades criativas inimagináveis. Bem, agora são imagináveis. Veja a seguir...

Antigamente, a dois ou três anos atrás, quando desejávamos alterar uma query que não servia mais aos nossos propósitos, usávamos a velha técnica de apagá-la, criando uma nova com os comandos SQL que desejávamos.

De fato, isso não causava grandes transtornos dentro do banco de dados, uma vez que não ocorresse excessivamente, transformando-se numa ação de processamento paralelo. Mas (sempre há um mas), se esta ação fosse constante e requeresse processamento contínuos, essa técnica não se aplicaria tão bem, trazendo transtornos tais como a corrupção do banco, dependendo do tipo de código SQL que estivermos gerando.

A versão do MS Access 2013 permiti-nos aplicar uma técnica mais simples, avançada, e eficiente. Esta não trará quaisquer transtornos e tão trará morosidade as nossas aplicações.

Qual o segredo?

Reflitamos um pouco:

Uma query nada mais é do que mais um objeto dentro do banco de dados.

Ao alinharmos esse conceito básico, podemos começar a ter ideias. Por exemplo, todo objeto é composto por propriedades.

O código que compõe o objeto é, de certo modo, parte das suas propriedades. E se pudermos trocar o valor da propriedade?

Sim, podemos fazer isso. Como?

Execute as seguintes funcionalidades:

Dim nSQL01 as String

Let nSQL01 = "Select * from Tbl_Bernardes"

' Criando a query fisicamente.

'Call ShowProcess ("Criando a query fisicamente: 'qry_01_Bernardes'", nSQL01) ' Essa função mostra uma mensagem na tela.

Call UpdateQuery ("qry_01_Bernardes", nSQL01)

Sub UpdateQuery (QueryName, SQL)

' Author: André Luiz Bernardes - Bernardess@gmail.com.

' Date: 22/01/2013 - 09:30.

' Application: Bernardess Application

' Functionality: Criando fisicamente uma query.

' Usa o nome e a String SQL, caso a query não exista altera o conteúdo dela.

If IsNull(DLookup("Name", "MsysObjects", "Name='" & QueryName & "'")) Then

'' cria-a ...

CurrentDb.CreateQueryDef QueryName, SQL

Else

'' Caso contrário, altera o seu conteúdo.

Let CurrentDb.QueryDefs(QueryName).SQL = SQL

End If

End Sub