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.

Carregamento de combobox utilizando arquivo de parametro

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

18082011

Mensagem 

Carregamento de combobox utilizando arquivo de parametro






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


Amigos... Aqui coloco um exemplo de carregamento de ComBox utilizando o SYSPEN.PAR


'************************************************************
'AUTOR: Harysohn  - Paz, Justiça e Liberdade
'************************************************************

'Carrega as ComBox's usadas no Form
Private Sub CarregaCombo()
Parametros_de_Inicializacao "SysPen.par" 'Neste arquivo externo de parametros há a seguinte linha: DirBancoDados: = C:\SysPen\
Dim NomeBD As String 'Aqui crio uma variável onde aplicarei o nome do Banco de dados
Dim StrCboDetento As String 'Aqui crio uma variável para a ComBox
Dim StrPath As String 'Aqui crio uma variável para receber o caminho da base 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 NomeBD

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

'Aqui o carregamento da ComBox
'ComBox CboDetento
StrCboDetento = "SELECT Detentos.ID, Detentos.[Nome] FROM Detentos IN '" & StrPath & "'" _ 'Note que aqui esta o caminho do BD Caminho no Syspen.Par + Variável NomeBD (C:\Syspen\Syspen_be.Accdb)
& "WHERE UnidadeRequisitante='Mineiros' and RegimeAtual='Fechado';" 'Filtros para dados em campos na tabela
Me.CboDetento.RowSource = StrCboDetento 'Aqui chama a variável StrCboDetento que contem a Tabela + o StrPath (que é o caminho para o BD)
Me![CboDetento].ColumnCount = 4 'Quantidade de colunas na ComBox
Me![CboDetento].ColumnWidths = "0cm;7cm;0cm;0cm" 'Tamanho das colunas, dependendo da quantidades de campos no Sql StrCboDetento


End Sub

PERFECT..... dessa forma caso queira muda o BD de endereço é so alterar o Caminho no Syspen.Par colocando o caminho que desejar sem precisar mexer no Sistema...




Harysohn Pina - Piloto
Paz, Justiça e Liberdade!
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