Adox Vb6

[ricmrq]

oi pessoal

alguem sabe trabalhar com o ADOX do VB6?
nao percebo muito disto e estou a obter erros no seguinte codigo:

Dim cat1 As New ADOX.catalog
Dim tbl1 As ADOX.Table
Dim vew1 As ADOX.View
Dim col1 As ADOX.Column

cat1.ActiveConnection = ConODBC

For Each vew1 In cat1.Views
If vew1.Name = List1.Text Then
(...)
For Each col1 In tbl1.Columns
(...)
Next col1
End If
Next vew1


obtenho erro na linha "For Each col1 In tbl1.Columns"
erro: "Object variable or With block variable not set"

alguem sabe porque?

cumps

 

[Armadillo]

tenta so com "next"
fica o link com detalhes do adox se precisares: http://www.codeguru.com/cpp/data/mfc_database/ado/article.php/c4343/

 

[ricmrq]

obrigado!

e ja agora, tenho mais uma linha de codigo q é: "instSQL = vew1.Command"

instSQL é uma variavel string e o vew1 é uma variavel ADOX.View

obtenho o erro "Type mismatch"
na minha ideia deveria obter a instruçao SQL ou nao?
isto porque tenha outra linha de codigo "tabela = vew1.Name" e obtenho o nome da consulta sem qualquer problema!!

cumps

 

[Armadillo]

o comando "command" permite-te executar um SQL e nao obter a instruçao sql de um qualquer objecto da BD.

 

[ricmrq]

é possivel saber a instruçao SQL e o nome das tabelas que estao a ser utilizadas numa dada consulta com o ADOX

ja estive a explorar o link que Armadillo postou mas nao diz como...

cumps

EDIT: resolvido!
a instruçao SQL nao consegui obter mas para o nome da tabela pode ser utilizado o nome da consulta