Access inicio | | | | | |
Olá,
Seja Bem Vindo ao Blog.

Conecte-se ou registre-se e utilize gratuitamente este equipamento, temos exemplos referente a criação de banco de dados e desenvolvimento de softwares e programas utilizando o Microsoft Access.


Administração do Blog AccessDoProgramador.

Arquivo de parâmetro para variados critérios de consulta

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

18082011

Mensagem 

Arquivo de parâmetro para variados critérios de consulta






Mais um excelente uso do Arquivo de parâmetros...

Em uma SQL, supondo que seu sistema rode em Filiais... e que para cada filial use Criterios de consultas diferentes....
Pode aplicar isso no Arquivo de paramentros.. e ao instalar o BD em outra filial, so altera o Arquivo de Parâmetros..

Private Sub Report_Open(Cancel As Integer)
Parametros_de_Inicializacao "SysPen.par" 'Neste arquivo externo de parametros há a seguinte linha: 'RegimeAtual: = FECHADO

Dim dbBanco As Database
Dim StrDetento As String
Dim StrPath As String
Dim NomeBD As String
Dim VarReg As String 'Aqui crio a variável para armazenar o texto contido no arquivo de parâmetros

VarReg = RegimeAtual 'Aqui carrego a variável com o texto do Arquivo de parâmetros 'RegimeAtual: = FECHADO

NomeBD = "Syspen_be.accdb"

'String com path para conexão com a base de dados.
StrPath = DirBancoDados & NomeBD
Set dbBanco = OpenDatabase(StrPath)

'RecordSource
StrDetento = "SELECT Detentos.[Nome] & Space (1) & [Sobrenome] As Detento, Detentos.[Nível], Detentos.[Cela], Detentos.[Anotações] FROM Detentos IN '" & StrPath & "'" _
& "WHERE UnidadeRequisitante='Mineiros' and RegimeAtual='" & VarReg & "'" _ 'Aqui faço a leitura da Variável que assume o valor do Texto do Arquivo de Parâmetros.. Ficando o RegimeAtual = Fechado (que é o meu critério de pesquisa)

CONVÉM FRISAR Que não basta o texto estar no arquivo de parâmetros.. ele tem que esta em uma Funçao pública no Módulo Geral, citado no exemplo na origem do tópico


avatar
Harysohn
Facilitador
Facilitador

Brasil


Voltar ao Topo Ir em baixo

- Tópicos similares
Compartilhar este artigo em: BookmarksDiggRedditDel.icio.usGoogleLiveSlashdotNetscapeTechnoratiStumbleUponNewsvineFurlYahoo!Smarking

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum