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

Ver o tópico anterior Ver o tópico seguinte 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: BookmarksDiggRedditDel.icio.usGoogleLiveSlashdotNetscapeTechnoratiStumbleUponNewsvineFurlYahoo!Smarking

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