Views

Important:

Quaisquer necessidades de soluções e/ou desenvolvimento de aplicações pessoais/profissionais, que não constem neste Blog podem ser tratados como consultoria freelance à parte.

...

18 de agosto de 2014

DONUT PROJECT - VBA - Access - Criando uma Query com Parâmetros

DONUT PROJECT - VBA - Access - Criando uma Query com Parâmetros





Essa técnica pode ajudá-lo em projetos nos quais precise de certa agilidade para criar bases de dados para análises.

O código abaixo o ajudará a fazer isso.

Sub CrieQueriesComParametros()
    '      Author: André Bernardes
    '        Date: 18/08/14 - 10:38
    '      Action: Cria uma query com Parâmetros.
    ' Application: ****®

    Dim dbs As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim strSQL As String

    Set dbs = CurrentDb
    Set qdf = dbs.CreateQueryDef("nQuery")
    Application.RefreshDatabaseWindow

    Let strSQL = "PARAMETERS Param1 TEXT, Param2 INT; "
    Let strSQL = strSQL & "SELECT * FROM [Table1] "
    Let strSQL = strSQL & "WHERE [Field1] = [Param1] AND [Field2] = [Param2];"
    Let qdf.SQL = strSQL

    qdf.Close

    Set qdf = Nothing
    Set dbs = Nothing
End Sub

Nenhum comentário:

Postar um comentário

eBooks VBA na AMAZOM.com.br

Vitrine