COLUNA DINAMICA COMO FAZER UPDATE?

JHONFAIPQA 01/06/2011 09:03:11
#375528

Boas,
Estou construindo um formulário que grava em uma tabela que vai incrementando colunas com o passar do tempo, porém quando vou atualizar os dados dessa coluna o VB.NET diz que nenhum registro foi encontrado. como posso fazer para que ele entenda que a variável que pus tenha o nome do campo que quero atualizar?
segue o código :
Dim colunac As String = Me.ColumnHeader4.Text
Dim SQL5 As String = [Ô]UPDATE hfornecimento SET codigo=@codigo,fornecedor=@fornecedor,Produto=@produto,[ô][Ô] & colunac & [Ô][ô]=@coluna WHERE codigo=label4.text[Ô]
Dim command5 As New OleDb.OleDbCommand(SQL5, db_conecta)
command5.Parameters.AddWithValue([Ô]@codigo[Ô], Label4.Text)
command5.Parameters.AddWithValue([Ô]@fornecedor[Ô], Label5.Text)
command5.Parameters.AddWithValue([Ô]@produto[Ô], Label6.Text)
command5.Parameters.AddWithValue([Ô]@coluna[Ô], TextBox2.Text)
If conecta.State = ConnectionState.Closed Then conecta.Open()
command5.ExecuteNonQuery()
MsgBox([Ô]Alterado[Ô], MsgBoxStyle.Information, [Ô]Informação do Sistema[Ô])
Dim coluna, colunab As String
coluna = Mid(LCase(ComboBox1.Text), 1, 3)
colunab = Mid(TextBox1.Text, 3, 2)
colunac = coluna + [Ô]_[Ô] + colunab
Limpo(Me)
ListView1.Visible = True
Me.ColumnHeader4.Text = colunac
EncheLV(colunac)
Desde já agradeço pelas valiosas ajudas que tenho de todos!