Como faço tipo em meu combo com dados carregado de uma tabela.

 

quando eu digitar uma letra ele me trazer a palavra completa.

'primeiro crie uma tabela no access com o nome "tabela" depois crie umitem na tabela 'com o nome "nome", salve o db com o nome "dados.mdb" e salve no diretório do exe. 'Feito isso crie um form com uma combobox com o nome "combo1" com a opção 'style= Dropdown list

'Cole no form:

 

Private Sub AbrirBD()
Dim TB As Object
Dim DB As Object
Set oldws = DBEngine.Workspaces(0)
BANCO$ = App.Path + "dados.MDB"
Combo1.Clear
Set DB = oldws.OpenDatabase(BANCO$, False, False, ";PWD=" & um & "")
Set TB = DB.OpenRecordset("Tabela", dbOpenTable)
TB.MoveMin
Do Until TB.EOF
    Combo1.AddItem TB("NOME")
        TB.MoveNext
Loop
End Sub

 

 

'Para chamar a função:

 

AbrirBD

 

 

'Pronto ao carregar os dados para o combo1 é dó digitar a primeira letra que ira 'aparecer o primeiro registro com a mesma.

 

 

Se for só pra carregar faça assim:

dim db as new adodb.connection

dim rs as new adodb.recordset

 

db.connectionstring = Rotina de Abertura da base

db.open

 

sql ="Select * from tabela"

rs.open sql,db

 

while rs.eof=false

combo1.additem rs!campo

rs.movenext

wend

 

rs.close

 

Abraços Moncerra!!!!

 Na linha:

BANCO$ = App.Path + "BARRAdados.MDB"

Corrige-a colocando a barra para a esquerda pois ao postar nao sei pq ela desapareceu.

Ah , nao esqueça de fazer a referencia para o DAO .

Té mais...

Moncerra,

Vc pode utilizar o DBCOMBO e associa-lo a um recordset. Funciona beleza e o recordset pode ser desconectado utilizando o MDAC 2.5 ou posterior. Utilizava com o SQL Server 7.0/2000.

A questão da procura pode ser por uma letra ou pelas primeiras letras digitadas. Ele tem uma propriedade de pesquisa que determina isso.