CLASSIFICACAO

USUARIO.EXCLUIDOS 28/08/2007 13:56:48
#233099
Preciso urgente de ajuda na seguinte questão:

Tenho 12 tabelas em Access, uma para cada mes, com apenas um campo, nome. No entanto, alguns nomes se repetem em varias delas. Preciso gerar uma 13 tebela, contendo apenas os nomes diferentes de todas elas.Como faço isso em uma rotina de VB. Tentei isso mais não funcionou:

Private Sub Form_Load()

Ado1.Refresh

X = Ado1.Recordset.RecordCount

For I = 1 To X

    Nome(1) = Ado1.Recordset.Fields(0)
    Iguais
    
    Ado1.Recordset.MoveNext
    
Next I

Exit Sub

[c]Sub Iguais()

Ado2.Refresh
Ado2.Recordset.MoveFirst
AdoNomes.Refresh

For J = 1 To Ado2.Recordset.RecordCount

    Nome(2) = Ado2.Recordset.Fields(0)
    If Nome(1) = Nome(2) Then

        AdoNomes.Recordset.AddNew
        AdoNomes.Recordset.Fields(0) = Nome(1)
        AdoNomes.Recordset.Update
        
        Exit Sub
    
    End If

Ado2.Recordset.MoveNext

Next J

AdoNomes.Recordset.AddNew
AdoNomes.Recordset.Fields(0) = Nome(2)
AdoNomes.Recordset.Update

End Sub


grato desde já
TUNUSAT 28/08/2007 16:27:04
#233126
LEMANRUS,

Pelo que entendi seu problema é dividido em duas partes:

1º) Criar uma tabela dentro de um arquivo do Access usando código VB6 e não usando o Access para fazer isto.
2º) Fazer uma busca cruzando todas as tabelas? Arghhh!

Fazer estes dois é meio trabalhoso e um pouco complexo, mas vou mostrar o caminho, se vc não conseguir fazer sozinho veremos o que posso fazer (ou se algum caçador-de-estrelas se habilitar será bem vindo ... pode dar com os despojos para ele (os pontos p/ estrela)) ...
==============

1º) Se vc vai criar uma tabela dentro do access usando o VB6, precisa aprender a usar um "ADOX" (ADO Extension for DDL and Security).

Ele cria o banco de dados inteiro e também cria as tabelas dentro do banco de dados. é ótimo para construir a estrutura completa do access no código na intalação do sistemas sem enviar o arquivo ".mdb".

Você pode aprender a usar o bem o ADOX nesta página:

======================
ADOX - Gerenciando o seu banco de dados
http://www.macoratti.net/adox.htm
======================

Tem um exemplinho bem básico aqui no VBMania tb. Digite ADOX no "localizar" acima e clique no botão da lupa com papel (pesquisar).


2º) Para buscar os nomes diferentes, sugiro você jogar TODOS os nomes em uma collection ou array e ir deletando os nomes que encontra a medida que compara com cada taleba aberta.
Bom ... é uma idéia ...

Resumindo:
A) Monta uma grande collection ou array colocando TODOS os nomes dentro (de todas as tabelas.
B) Fica comparando a collection ou array INTEIRINHA excluido os nomes que na comparação são idênticos ... o que sobrar é o que NÃO tem em nenhuma tabela.


Acho que é isto ...
[]'s,
Tunusat.
Tópico encerrado , respostas não são mais permitidas
Voltar