[Resolvido]ListBox lenta para carregamento de dados

Boa tarde,

como popular uma listbox de forma rápida e fácil, hoje faço a consulta direto nela mas o BD ja esta bem grande com muitos utilizadores simultâneos

obrigado

Boa tarde


Você esta Usando conexão Vinculada ou Via ADODB?


Att
José

vinculada

up!

Boa tarde

Melhor vc desvincular...
Use este método

Bom dia

Crie um Módulo e cole esse Código:

Dim connection As New ADODB.connection

Public result_set As ADODB.Recordset

Public data_reader As ADODB.Recordset
'Método para abrir a conexao
Public Sub Abrir_Conexao()
Dim database_provider As String
Dim connection_string As String
Dim database_local As String
Dim database_nome As String
Dim database_senha As String

database_provider = "Microsoft.Jet.OLEDB.4.0;" 'extensão .mdb
'ou
database_provider = "Microsoft.ACE.OLEDB.12.0;" 'extensão .accdb

database_local = "pasta do local do banco de dados\"

database_nome = "nome do banco de dados e a extensão "

connection_string = "Provider =" + database_provider + "Data Source ="+ database_local + database_nome + "Jet OLEDB:Database Password =" & database_senha

Set Connection = New ADODB.Connection
Connection.CursorLocation = adUseClient
Connection.Open url_data_base
End Sub
'Método para fechar a conexao
Public Sub Fechar_Conexao()
Connection.Close
Set Connection = Nothing
End Sub
'Método para executar os comandos CRUD
Public Sub Executar_Query(query As String)
Set result_set = New ADODB.Recordset
Abrir_Conexao
result_set.Open query, Connection, adOpenStatic
Set result_set = Nothing
Fechar_Conexao
End Sub
'Método para executar o Select
Public Sub Executar_Data_Reader(query As String)
Set data_reader = New ADODB.Recordset
data_reader.Open query, Connection, adOpenStatic
End Sub
'Método para fechar o Select
Public Sub Fechar_Data_Reader()
data_reader.Close
Set data_reader = Nothing
Fechar_Conexao
End Sub

Depois é só instanciar o objeto da Classe conexão nos formulários que quiser, exemplo:

Option Compare Database
Dim conexao As New Cls_Conexao

Sub Preencher_lst_medicacao()
Dim query As String

query = "SELECT * " & _
" FROM sua tabela " & _
" WHERE condição ;"

conexao.Abrir_Conexao
conexao.Executar_Data_Reader (query)

Set Me!lst_medicacao.Recordset = Nothing
Set Me!lst_medicacao.Recordset = conexao.data_reader

conexao.Fechar_Data_Reader
End Sub


Então no evento Form_Load() chame o Método

vou testar aqui obrigado.

Desculpa a ignorancia, mas nao tenho muito conhecimento em sql, da uma olhada nos erros que esta dando

montei um modelo de teste na raiz do C:

pasta teste

Capa_Front.accdb
Tab_Back.accdb


obrigado!

up

up

De um compactar e reparar no banco de dados back-end ta tabela que esta lenta só para testar.
Embora também prefiro utilizar formularios desvinculados!

Mandei um Exemplo

Perfeito, vou estudar bastante o exemplo.

Muito obrigado!