Conectar Banco de Dados a ComboBox.

[Danleonhart]

Seguinte pessoal...

Criei um pequeno Bando de dados e quero conectá-lo a um ComboBox, de maneira que quando clique na rolagem, apresente as opções que estão no banco de dados...

Conseguí a conexão usando o caminho: Projet > Components > e selecionando a opção: "Microsoft ADO Data Control 6.0(OLEDB)",

porém a barra de rolagem é horizontal, e preciso que seja vertical(tipo ComboBox), onde apareça a lista das informações contidas no BD (banco de dados) quando acionada a rolagem...

INFOS:

- Usei conexão Microsoft Jet 4.0 OLE DB Provider;

- O Banco de Dados foi criado no VISDATA, igual aos do Access.

Se alguém puder me ajudar aí fico grato.

[Matheus-vb6]

Amigo... esse objeto do oledb serve somente para criar a conexão... você n precisa deixa-lo no formulário... simplesmente insira e apague q seu formulário já estará com estrutura para trabalhar com conexao ado...

Vamos supor que sua conexao seja na tabela itens e o arquivo se chame combo.mdb...

o código será assim:

'Módulo
Global cn As ADODB.Connection
Global rs As ADODB.Recordset

Public Function abrebanco()
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\combo.mdb;jet oledb:database password=SUASENHA"
End Function

Public Function fechabanco()
cn.Close
End Function

'No form_load
Private sub form_load()
abrebanco
Set rsdados = New Recordset
rsdados.Open "SELECT * FROM itens", cn
Do While rsdados.EOF = False
combo1.additem rsdados("Combo")
rsdados.MoveNext
Loop
fechabanco
end sub

Foto do banco de dados

Não cheguei a testar, mas creio q esteje correto!!

Abraços... duvidas poste ai!

edit----

Não tinha visto essa parte

- O Banco de Dados foi criado no VISDATA, igual aos do Access.

Nunca cheguei a ver VISDATA... mas se for trabalhar com access o código é dessa forma, tente adaptar a linha do cn... ou se não utilize o proprio access

--edit²--

Editei o código pois tinha esquecido da linha "rsdados.MoveNext"

Editado Setembro 30, 2010 por Matheus-vb6