PRENCHENDO COMBOBOX

ZANDOTC 04/08/2010 15:07:33
#349426
tenho um banco de dados com 11 tabelas, eu preciso que um combo box seja preenchido com essas 11 tabelas e quando eu selecionar umas delas um outro combo box seja preenchido com os dados da tabela selecionada como eu poderia fazer?
ZANDOTC 04/08/2010 15:24:38
#349427
Esdtou usando o seguinte código... Porém quando eu seleciono a tababela vem o erro [Ô]Invalid use os null[Ô]



Option Explicit
Dim Db As ADODB.Connection [ô].Recordset
Dim Rst As ADODB.Recordset
Dim Tabela As ADODB.Recordset
Dim X As Integer
Dim Texto As String
Dim Campo As String

Private Sub Combo1_Click()
Dim rsTemp As New ADODB.Recordset
[ô]Abrir a tabela selecionada no Combo que contém as Tabelas
rsTemp.Open Combo1.List(Combo1.ListIndex), Db, adOpenForwardOnly, adLockReadOnly
[ô]Combo que será preenchido com o telefone
Combo2.Clear
[ô]Percorrer toda a tabela
Do While Not rsTemp.EOF
[ô]Popular o combo
Combo2.AddItem rsTemp.Fields([Ô]50x65[Ô])
rsTemp.MoveNext
Loop
[ô]Fechar o Recordset temporário
rsTemp.Close
End Sub


Private Sub Form_Load()
Set Db = New Connection
Db.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=dados.mdb;[Ô]
Combo1.Clear
[ô]listar todas as TABELAS da base de dados
Set Rst = Db.OpenSchema(adSchemaTables) [ô](adSchemaTables) retorna quantidade existente
Do Until Rst.EOF
[ô]eliminar as tabelas do próprio ACCESS
If Rst.Fields(3) = [Ô]TABLE[Ô] Then Combo1.AddItem Rst.Fields(2)
[ô](3) são tipos e (2) o nome
Rst.MoveNext
Loop
Rst.Close
Set Rst = Nothing
End Sub
ZANDOTC 04/08/2010 15:46:39
#349431
Resolvido....
Tópico encerrado , respostas não são mais permitidas
Voltar