Verifica A Existencia De Um Campo ( Coluna )

[Guest --Luciano --]

Amigos,

To iniciando no VB ...e minha duvida é a seguinte:

Tenho uma função que cria uma coluna em uma determinada tabela só que preciso verificar a existencia dessa coluna antes pois se for criá-la quando ela já existe gera um erro:

A função cria o campo normalmente só que preciso só verificar a existencia do campo...

O código é esse:

Dim cat As New ADOX.Catalog

Dim tbl As ADOX.Table

adoc.RecordSource = "Select * from Fornecedores where nome='" & txtNome.Text & "'"

cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\banco.mdb;Persist Security Info=False"

Set tbl = cat.Tables("tabela")

tbl.Columns.Append txtNome.Text, adSmallInt

Set cat = Nothing

Exit Sub

Ainda não encontrei nada no forum a respeito.

alguém pode ajudar?

[]´s

Luciano

[Graymalkin]

Percorra a coleção Columns com um For Each.

Abraços,

Graymalkin

[baloweb]

Obrigado por responder Gray...

Fiz o que pediu...

porem quando perceorre a tabela ele localiza uma coluna diferente da que informei e executa a função...

Exemplo, tenho as colunas existentes: maça , banana, uva, pera, mamão.

ele localiza a coluna "uva" e diz ser igual ao que está no textbox e executa:

segue o codigo com o for each:

txtnome.text = "ggg"

Set Tbl = cat.Tables("Tabela")

For Each Columns In Tbl.Columns

If Columns = txtNome.Text Then

MsgBox ("NOme Igual as textbox")

else

MsgBox ("Nome diferente")

' cria a coluna como nome informado...

Tbl.Columns.Append txtNome.Text, adSmallInt

Set cat = Nothing

Exit Sub

End If

Next column

[Graymalkin]

Acho que aqui...

For Each Columns In Tbl.Columns
    If Columns = txtNome.Text Then
...

... deveria ser...

For Each Columns In Tbl.Columns
    If Columns.Name = txtNome.Text Then
...

... não?

Abraços,

Graymalkin

[baloweb]

Não....

Run-time error '424':

Object Required

na linha

If Columns.Name = txtNome.Text Then

[]´s

Luciano

[kuroi]

acho que você tem que declarar a variavel Columns, não??

[Graymalkin]

Os nomes estão certos? Da caixa de texto, por exemplo?

Graymalkin

[baloweb]

Sim estão....

estamos no caminho certo...pelo que notei ao posicionar o mouse sobre:

If Columns.Name = txtNome.Text Then

em Columns.Name retorna o nome de uma coluna que existe, e em txtnome.text a coluna que informei...

ou seja, sempre quando informo um nome de coluna que sei que existe na tabela ele sai da condição....

sendo assim , não esta percorrendo todas as colunas como deveria....

[]'s

Luciano

[Graymalkin]

Coloca novamente o código todo que você está usando, que aí fica mais fácil para ajudar.

Abraços,

Graymalkin

[baloweb]

Solucionado...

Ocorria que ele percorria apenas o primeiro campo (coluna) e saí da condição do loop.

Optei por colocar uma condição diferente para cada loop..funcionou...

segue:

Set Tbl = cat.Tables("Tabela")

For Each Columns In Tbl.Columns

If Columns = txtNome.Text Then

MsgBox ("Nome igual da textbox")

Exit Sub

End If

Next 'Se nome for igual pula pra proxima coluna

For Each Columns In Tbl.Columns

If Columns <> txtNome.Text Then

MsgBox ("Nome diferente cria coluna com o nome então...")

Tbl.Columns.Append txtNome.Text, adSmallInt

Set cat = Nothing

Exit Sub

End If

Next

Obrigado a todos pela atenção!

[]´s

Luciano

[Graymalkin]

Seria melhor então você fazer assim:

Set Tbl = cat.Tables("Tabela")

achou = False

For Each coluna In Tbl.Columns
    If coluna.Name = txtNome.Text Then
        achou = True
        Exit Sub
    End If
Next

If Not achou Then
    Tbl.Columns.Append txtNome.Text, adSmallInt
End If

Apenas um loop e um if.

Abraços,

Graymalkin