[Jornada em Desvinculos]Sala de situação, carregamento de ComboBox

Olá meus caros Programadores,

Observando ser um desafio para muitos a curva de aprendizagem sobre desvinculo, conexões a bancos externos e tal. Abro esse tópico com o propósito de ensaiarmos maneiras de se trabalhar de forma desvinculada. Tem o objetivo principal, coletar as práticas possíveis no funcionamento desacoplado da base de dados.

Por toda a internet, vemos muitos códigos e teoria de como fazer, no entanto, raramente contemplamos exemplos aplicados na prática.

Ora o exposto, convido a nos desafiarmos e construir exemplos que funcionam desacoplados. Valendo nessa jornada, podemos produzir ensaios com front's vinculados e não vinculados; acessos com DAO, ADO, SQL, ou seja, a imaginação proverá a construção.

Após certo tempo, esse tópico mudará de nome e será movido para a sala Documentação.

Vamos começar por combobox, depois que esse se concluir, abriremos um novo para trabalhar outro objeto.

Eu apresentarei o meu até terça-feira com certeza!

Amigos, O desafio está lançado!

Noberto, que bom que achou interessante.

Essa é a primeira etapa de uma jornada. Essa jornada correrá todos os objetos que se possa aplicar desvinculo. Vamos começar pela combobox e depois outro e depois mais outro.

A visão é juntar um acervo que facilite o aprendizado da comunidade, que profissionalize o iniciante e fortaleça os intermediários e avançados.

Vamos que vamos no desafio!

Bem Amigos vou puxar a fila...

Segue exemplo de carregar uma combo via SQL e com a possibilidade de filtrar a mesma atraves de uma inputbox(pode ser uma caixa texto tambem) com as iniciais do nome..

O CÓDIGO

Private Sub Form_Load()
Dim Tmp1 'Variáveis da consulta SQL para usar no preenchimento da CboExemplo
Dim Tmp2 'Variável que filtra o Campo Nome de acordo com o que se digitar na inputbox
Dim Tmp2 'Variável que filtra o Campo Nome - * = Todos, pode-se colocar por iniciais
Dim VarLetra As String 'Variável que recebe o valor da inputbox

VarLetra = InputBox("Digite a inicial do nome", "Pesquisar")

intCurrButton = UCase(intCurrButton)


Tmp1 = Left(intCurrButton, 1)
TMP3 = "Like (" & Chr(34) & Tmp1 & "*"")"

'Carrego a variável com o operador LIKE e o conteudo da InputBox
Tmp2 = "Like (""[" & VarLetra & "]*"" )"

'Carrego a variável com valores pré-definidos para a segunda combo, no caso a letra J
TMP3 = "Like (""[jJ]*"") " 'Filtro para a letra J

'Carrego a variável Tmp1 com a SQL adicionando ao final a variável do filtro(Tmp2) com o operador LIKE
Tmp1 = "SELECT tbl_Exemplo.ID, Tbl_Exemplo.Nome As Nome, Tbl_Exemplo.Endereco,tbl_Exemplo.Cidade"
Tmp1 = Tmp1 & " FROM Tbl_Exemplo "
Tmp1 = Tmp1 & " WHERE ((Tbl_Exemplo.Nome) " & Tmp2 & ")"
Tmp1 = Tmp1 & " ORDER BY Tbl_Exemplo.Nome;"

Me![CboExemplo].RowSource = Tmp1
Me![CboExemplo].ColumnCount = 4
Me![CboExemplo].ColumnWidths = "0cm; 5cm; 7cm; 3cm"

'Em uma texBox conto os registros que foram carregados na combo através do listCount, se caso for = ou < que 0 emite mensagem, caso contrário emite mensagem com a quantidade de registros encontrados.
If Me.txtReg <= 0 Then
MsgBox "Não foi encontrado registros para este inicial", vbInformation, "Atenção"
Else
MsgBox "Foram encontrados """ & Me.txtReg & """ Registro(s) para esta Inicial", vbInformation, "Atenção"
End If

'Este SQL popula a segunda ComBox, utilizando o criterio de filtro Tmp3 = "Like (""[jJ]*"") "

Tmp1 = "SELECT tbl_Exemplo.ID, Tbl_Exemplo.Nome As Nome, Tbl_Exemplo.Endereco,tbl_Exemplo.Cidade"
Tmp1 = Tmp1 & " FROM Tbl_Exemplo "
Tmp1 = Tmp1 & " WHERE ((Tbl_Exemplo.Nome) " & TMP3 & ")"
Tmp1 = Tmp1 & " ORDER BY Tbl_Exemplo.Nome;"

Me![CboExemplo1].RowSource = Tmp1
Me![CboExemplo1].ColumnCount = 4
Me![CboExemplo1].ColumnWidths = "0cm; 5cm; 7cm; 3cm"
End Sub



http://dl.dropbox.com/u/26441349/Combo_SQL.rar


Espero ter contribuido. Cumprimentos

Eu de minha parte vou deixar duas formas de se carregar uma combo desvinculada: via SQL e via Recordset usando o método AddItem.

Como poderão observar, há uma diferença bastante significativa tanto em termos de tempo de carregamento quanto em termos de quantidade de registros que a combo consegue carregar ao se escolher entre um ou outro tipo de método.

Nos meus testes, a combo carregada via Recordset levou aproximadamente 1 minuto e 20 segundos para ser carregada. Já via SQL carregou em menos de um segundo. Ambas buscando registros em uma tabela com 200 mil registros.

Essa diferença acontece porque o método AddItem necessita fazer um Loop pela tabela, aonde adiciona um registro, pesquisa e adiciona o registro seguinte. Já por SQL a combo busca todos os registros que ela consegue carregar de uma única vez, sem ter que passar um a um.

No quesito quantidade de registro, o carregamento via SQL consegue carregar cerca de 31 vezes mais registros do que via Recordset. Mesmo via SQL, a quantidade de registros carregada não é lá muito grande, pois ela carrega cerca de 65.535 registros. Uma boa dica é filtrar a combo de acordo algum critério.

Exemplo aqui

Criquio, uso o Access 2007 e ao abrir seu exemplo da erro como:

1 - não foi encontrado o Barcodex.ocx - versão 1.0
2 - não foi encontrado o Mswinsck.ocx - versão 1.0

e com a falta dessas 02 ocx os formulário exemplos Sql e Recordset não localiza o projeto ou biblioteca.

Será que essas ocx tem no Office só faltando registrá-las ou não tem e é preciso adquiri-las.

Creio que nos pcs de outros colegas podem apresentar o mesmo problema com a falta dessas ocx.

Será que podem disponibilizarem ou qual será o caminho para resolver o problema visto que esse asunto é muito importante para todos do mundo Access.

João, abra o módulo vba de um dos formulários, vá no menu Ferramentas e escolha a opção Referências. Deve ter alguma(s) escrito AUSENTE. Desmarque-a(s) e teste novamente.

Criquio resolvido o problema Desmarcado o Ausente funcionou bacana.

Trabalhando com Sql ganhamos velocidade em nossas aplicações.


Obrigado Criquio

Pessoal, carregar com Front-End vinculado foi mole mole

Nas propriedades da combo:
Numeros de colunas = 2
Largura das colunas = 0cm; 2,501cm

O 0cm está ocultando o campo "CdPais" que é chave primária; ele não pode aparecer na listagem.

Eis o código aplicado no evento "Ao Carregar" do formulário:

'Acionará o módulo "modDeletaTabelas" que deletará todas as tabelas vinculadas no Front-End
Call DeletaTabelas

'Acionará o módulo "modVinculaTabelas" que criará uma nova vinculação no Front-End
Dim strDb As String
strDb = CurrentProject.Path & "\banco\BackEnd.mdb"
Call Importa(strDb)

'Carregará a ComboBox com os dados da tabela Paises
nSQL = "SELECT * FROM Paises ORDER BY Pais;"
cboDesvinculada.RowSource = nSQL

Obviamente, num sistema completo, você utilizará neste evento apenas a rotina que carrega a ComboBox, uma vez, que as rotinas "Call DeletaTabelas" e "Call Importa(strDb)" você utilizará no formulário que inicializa o banco.

Baixe o exemplo:
Download

Até o fechamento do tópico estarei postando o acesso com o Front-End totalmente desvinculado. Acho que usarei DAO, vamos ver ...

Usando a mesma base do Criquio


Vinculando a tabela eu usaria assim:

Me.cboClientes.RowSource = "SELECT tblClientes.Nome FROM tblClientes ORDER BY Nome"

Criquio, se fosse possivel colocar seu exemplo também em 2003, agradeceria muito.

Com o Front-End totalmente desvinculado, escrevi SQL no VBA e resultou bem:

'Declarando a variável que receberá o caminho do banco de dados:
Dim nPATH As String
'Declarando a variável que receberá os registros:
Dim nSQL As String


'Armazenando o caminho do banco de dados na variável nPATH:
nPATH = CurrentProject.Path & "\banco\BackEnd.mdb"
'Armazenando os registros na variável nSQL:
nSQL = "SELECT Pais FROM Paises IN" & " '" & nPATH & "'" & "ORDER BY Pais;"


'Populando a ComboBox através da variável nSQL:
cboDesvinculada.RowSource = nSQL

Baixe o exemplo:
Download

Comecei escrever utilizando DAO, mas, não consegui outra forma de carregamento que não fosse com o método AddItem. Não gostaria de utilizar este método pois ele provoca lentidão no carregamento com tabelas que possui muitos dados. visto que ele realiza a gravação dos dados na combo, uma vez que ela está com sua propriedade "Tipo de origem da linha" = Lista de valores.

Vou continuar tentando ...

Quanta informação neste tópico!
Quantos posts seriam necessários para eu aprender tudo isso?!
Que iniciativa inspirada!

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...


Link para o post do arquivo externo de parametros

Arquivo de Parametros

No meu exemplo uso recordset desconectado DAO com senha na base de dados (simples e funcional).

Dim strBanco As String
Dim MinhaPassword As Variant
Dim Arquivo
Dim str

Sub PovoarCEDENTE()
Dim Db As DAO.Database
Dim RsCED As DAO.Recordset

DoCmd.Hourglass True
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
strBanco = DLast("[LocBanco]", "[db_Servidor]")
MinhaPassword = DLast("[Senha]", "[db_Servidor]")
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Arquivo = strBanco
Set Db = DBEngine.OpenDatabase(Arquivo, False, False, ";PWD=" & MinhaPassword)

Set RsCED = Db.OpenRecordset("SELECT * From DB_CEDENTE ORDER BY CED_Nome")

Me.M_CEDENTE.RowSourceType = "Value List"
Me.M_CEDENTE.ColumnCount = 3
Me.M_CEDENTE.ColumnWidths = "0cm;13cm;7cm"
Me.M_CEDENTE.RowSource = ""
Me.M_CEDENTE.Requery

Do Until RsCED.EOF
Me.M_CEDENTE.AddItem RsCED.Fields("CED_NS") & ";" & _
RsCED.Fields("CED_Nome") & ";" & _
RsCED.Fields("CED_CpfCnpj")
RsCED.MoveNext
Loop

Set RsCED = Nothing

Db.Close

DoCmd.Hourglass False

End Sub

Como já foi dito acima esse assunto esta muito bom.
Mais surgem algumas duvidas que é bom esclarecer em quanto o assunto esta sendo abordado por pessoas que entende do assunto.

Devido o bd access ter limite no armazenamento de dados e as vezes é necessário ter um front_end vinculado em dois Beck_end.

Nesse caso como ficaria a vinculação dos bd se meu Front_end tem um formulário com duas combos buscando informações de tabelas de dois beck_end distintos.

No meu caso, é só trocar o nome do banco de dados base. Dê uma olhada no código.

Eu tenho um aplicativo que consta de 3 backends, sendo um para os dados da movimentação da empresa, um com uma tabela de CEP e outra com uns outros detalhes. Fica tudo sem vínculo "físico" nos frontends. Nenhuma tabela e nenhuma consulta. A tática é a mesma, só muda o nome do backend.

Jungli seu exemplo possui as tabelas no própio banco.

Criquio vou testa utilizando agora com as consultas.

Visto que os exemplos só apareceram com as tabelas.

Caro joão afonso, nāo há necessidade de fazer uma consulta para carregar a combo, e claro que uma consulta poderia ser caregada como a tabela posto que nada mais e do que a representacao/simulaçao de uma ou mais tabelas.

Ja que estamos trabalhando com desvinculo e via vba, a consulta poderia ser feita por vba tambem... te moatrarei um exemplo de uma consulta em vba baseada em duas tabelas..

Veja alguns exemplos:

'todos os registos da tabela 1 com os registos da tabela 2 correspondentes SELECT * FROM Tabela1 LEFT JOIN Tabela2 ON Tabela1.CampoX=Tabela2.CampoY ...

'todos os registos da tabela 2 com os registos da tabela 1 correspondentes SELECT * FROM Tabela1 RIGHT JOIN Tabela2 ON Tabela1.CampoX=Tabela2.CampoY ...

'registos da tabela 1 com os registos da tabela 2 apenas em caso de correspondência SELECT * FROM Tabela1 INNER JOIN Tabela2 ON Tabela1.CampoX=Tabela2.CampoY ...

Harysohn entendi, muito obrigado pela explicação.

Carregando a combobox usando ADO num Front-End desvinculado acessando dados de um Back-End com senha:

Download