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.

Via RecordSet, campos fixos usando arquivo de parâmetro

Ir em baixo

18082011

Mensagem 

Via RecordSet, campos fixos usando arquivo de parâmetro






Seção de origem no Blog: Diretório, Pastas & Parametrização


Amigos.. aqui outro exemplo da utilidade do Arquivo de Parâmetros...

em um relatorio:
1 - Visualizar os registros
2 - Colocar valores fixos em campos via RecordSet (Tipo Nome da empresa, endereço etc..)


Private Sub Report_Load()
'************************************************************
'AUTOR: Harysohn - Paz, Justiça e Liberdade

'************************************************************

'*******************************************************************************
'Popula Campos fixos da unidade no Relatório
'*******************************************************************************
Dim dbLocal As DAO.Database 'Variável para o local do Banco de Dados
Dim ws As DAO.Workspace 'Variável para Conexão DAO
Dim rsAdm As DAO.Recordset 'Variável para o Recordset
Parametros_de_Inicializacao "SysPen.par" 'Neste arquivo externo de parametros há a seguinte linha: DirBancoDados: = C:\SysPen\
Set ws = DBEngine.Workspaces(0)
Set dbLocal = ws.OpenDatabase(DirBancoDados & "\Syspen_Be_Local.accdb", False, False, "MS Access;PWD=senha") 'Aqui onde especifico a conexão com o BD, aplico o contido no Arquivo de Parâmetros Syspen.par fazendo a junção com o nome do BD - DIrBancodados é o caminho gravado no Sypen.Par - DirBancoDados: = C:\SysPen\)

strSQLAdm = "SELECT * FROM Administração" 'Carrego a vsariável com a instrução SQL
Set rsAdm = dbLocal.OpenRecordset(strSQLAdm) 'Seto o RecordSet para abri-lo juntamente com a vsariável strSQLAdm

'**********************************************************
'Para o redorsetcrsAdm
'**********************************************************
Me.TxtUnidade = rsAdm![Nome da Unidade] 'Aqui faço a inserção do recorset em campos "Não acoplados" no relatório

'Fecho o RecordSet e finalizo a conexão com o BD
rsAdm.Close
Set rsAdm = Nothing
Set dbLocal = Nothing
End Sub

Private Sub Report_Open(Cancel As Integer)
Parametros_de_Inicializacao "SysPen.par" 'Neste arquivo externo de parametros há a seguinte linha: DirBancoDados: = C:\SysPen\
Dim dbBanco As Database 'Váriável para o Banco de Dados
Dim StrDetento As String ''Aqui crio uma variável para a a tabela a ser pesquisada
Dim StrPath As String 'Aqui crio uma variável para receber o caminho da base de dados
Dim NomeBD As String ' 'Aqui crio uma variável onde aplicarei o nome do Banco de dados

NomeBD = "Syspen_be.accdb" ' Aqui aplico o nome do Banco de dados à Variável


StrPath = DirBancoDados & NomeBD 'String com path para conexão com a base de dados, aqui adicionei o caminho contido no Syspen.Par + o nome da dase de dados contidos na Váriável
Set dbBanco = OpenDatabase(StrPath) 'Aqui Abro O BD através do caminho contido na variável StrPath, que é o Caminho no Syspen.Par + Variável NomeBD

'Carrega a Váriável com o SQL
StrDetento = "SELECT Detentos.[Nome] & Space (1) & [Sobrenome] As Detento, Detentos.[Nome Contato Emergência], Detentos.[Nome Contato Emergência1]," _
& "Detentos.[Relação do Contato de Emergência], Detentos.[Relação do Contato de Emergência1], Detentos.[Telefone 1 do Contato de Emergência], " _
& "Detentos.[Telefone 1 do Contato de Emergência1], Detentos.[Telefone 2 do Contato de Emergência], Detentos.[Telefone 2 do Contato de Emergência1]" _
& "FROM Detentos IN '" & StrPath & "'" _ 'Note que aqui esta o caminho do BD Caminho no Syspen.Par + Variável NomeBD (C:\Syspen\Syspen.Accdb)
& "WHERE UnidadeRequisitante='Mineiros' and RegimeAtual='Fechado' And ([Nome Contato Emergência] Is Not Null or [Nome Contato Emergência1] Is Not Null) ;" 'Filtros para dados na tabela


Me.RecordSource = StrDetento 'Aqui carrega o relatório Via recordSource com a variável StrDetento, que contem A tabela e o seu endereço via StrPath

End Sub


Assim voce terá em seu relatório todos os registros especificados em em todas as páginas a exibição de apenas 1 registro que nesse caso é no rodape ou cabeçalho do report

Enjoy!


avatar
Harysohn
Facilitador
Facilitador

Brasil


Voltar ao Topo Ir em baixo

- Tópicos similares
Compartilhar este artigo em: diggdeliciousredditstumbleuponslashdotyahoogooglelive

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