1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Adox Vb6

Discussão em 'Programação' iniciada por ricmrq, 8 de Fevereiro de 2008. (Respostas: 4; Visualizações: 681)

  1. ricmrq

    ricmrq Power Member

    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
     
  2. Armadillo

    Armadillo Folding Member

  3. ricmrq

    ricmrq Power Member

    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" :confused:
    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
     
  4. Armadillo

    Armadillo Folding Member

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

    ricmrq Power Member

    é 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 ;)
     
    Última edição: 11 de Fevereiro de 2008

Partilhar esta Página