COMBO-BOX
Programa em VB6 (SP 6) com base de dados em MS-Access.
A base de dados possui 2 tabelas:
a) Tabela de Eventos com:
1) Nome do Evento
2) Numero do Orçamento
b) Tabela Contábil com
1) Numero do Orçamento (igual ao da tabela de Eventos)
2) Itens do Orçamento ([Ô]n[Ô] itens para cada orçamento)
Obs.: Nem todos os eventos da tabela de Eventos, possuem dados na tabela contábil
Eu preciso criar um combo-box com os Nomes da tabela de Eventos para os Orçamentos que existam na tabela contábil.
Alguma idéia ?
Antecipadamente grato,
A base de dados possui 2 tabelas:
a) Tabela de Eventos com:
1) Nome do Evento
2) Numero do Orçamento
b) Tabela Contábil com
1) Numero do Orçamento (igual ao da tabela de Eventos)
2) Itens do Orçamento ([Ô]n[Ô] itens para cada orçamento)
Obs.: Nem todos os eventos da tabela de Eventos, possuem dados na tabela contábil
Eu preciso criar um combo-box com os Nomes da tabela de Eventos para os Orçamentos que existam na tabela contábil.
Alguma idéia ?
Antecipadamente grato,
não entendi sua duvida!
DUHHH,
Por exemplo: A tabela contábil possui os seguintes dados:
Numero Orçamento Itens
============== ====
123 1
123 2
123 3
155 1
155 2
A tabela de Eventos possui os seguintes dados:
Numero Orcamento Evento
=============== =====
121 A
122 B
123 C
124 D
155 E
160 F
O Combo-box ficaria assim (os Eventos da tabela de Eventos para os quais existe um número de Orçamento correspondente na tabela Contábil)
Numero Orcamento Evento
================ ======
123 C
155 F
Assim, na tabela contábil existe os números de orçamento 123 e 155 os quais corresponde aos eventos C e F na tabela de Eventos.
Espero ter esclarecido.
Por exemplo: A tabela contábil possui os seguintes dados:
Numero Orçamento Itens
============== ====
123 1
123 2
123 3
155 1
155 2
A tabela de Eventos possui os seguintes dados:
Numero Orcamento Evento
=============== =====
121 A
122 B
123 C
124 D
155 E
160 F
O Combo-box ficaria assim (os Eventos da tabela de Eventos para os quais existe um número de Orçamento correspondente na tabela Contábil)
Numero Orcamento Evento
================ ======
123 C
155 F
Assim, na tabela contábil existe os números de orçamento 123 e 155 os quais corresponde aos eventos C e F na tabela de Eventos.
Espero ter esclarecido.
Vc ta usando qual métdo de conexão ao banco?
SINKERTEC
Sub subConectarBanco()
Set CN = New Connection
With CN
.Provider = [Ô]Microsoft.Jet.OLEDB.4.0[Ô]
.ConnectionString = strNomeBanco
.Open
End With
End Sub
onde [Ô]strNomeBanco[Ô] contém o caminho completo.
SDS
Sub subConectarBanco()
Set CN = New Connection
With CN
.Provider = [Ô]Microsoft.Jet.OLEDB.4.0[Ô]
.ConnectionString = strNomeBanco
.Open
End With
End Sub
onde [Ô]strNomeBanco[Ô] contém o caminho completo.
SDS
Vc pode fazer algo assim
Tente setar um recordset com a sql abaixo
Select Contabil.NumOrça as Orça1, Eventos.NumOrça as Orça2, Eventos.Evento From Eventos Inner Join Contabil On Eventos.NumOrça = Contabil.NumOrça
AÃ depois monte o combo
For X = 1 To Rs.RecordCount
Combo.Additem Rs!Orça1 & [Ô] [Ô] & Rs!Evento
Rs.MoveNext
Next X
entendeu mais ou menos a idéia?
SINKTERC,
Obrigado.
Obrigado.
Tópico encerrado , respostas não são mais permitidas