PERCORRER TABELA ACESS
Boa noite pessoal!
Tenho ai mais uma dúvida...
Estou com um código que faz a leitura em uma tabela acess, numera e precisa gravar em um campo especifico da tabela. Pois funciona perfeitamente, porem grava o mesmo numero para todos os lançamentos.
Não sei se o código que estou postando está correto se devo utilizar desta forma... mas foi o melhor que consegui... kkkkk
Alguem poderia me ajudar...???
Código abaixo:
conexao.Open()
progresso.Visible = True
sql = [Ô]select * from CPCreditos order by CP364[Ô]
Dim numero As Integer
Dim cmd As OleDbCommand = New OleDbCommand(sql, conexao)
Dim leitor As OleDbDataReader = cmd.ExecuteReader()
Dim s1 As String
Do While leitor.Read()
contador.Text = leitor(0)
numero += 1
Progress.Value += 1
If Progress.Value = 100 Then
Progress.Value = 0
End If
codigos.Text = Format(numero, [Ô]000000000000[Ô])
[ô] contador.Text = numero
s1 = [Ô]UPDATE CPCreditos SET CP372=[ô][Ô] & codigos.Text & [Ô][ô][Ô]
Dim cmnd As New OleDbCommand(s1, conexao)
cmnd.ExecuteNonQuery()
cmnd.Dispose()
Loop
conexao.Close() [ô] fecha a conexação com o banco de dados
Progress.Value = 0
progresso.Visible = False
MessageBox.Show([Ô]Contas reorganizadas![Ô])
Tenho ai mais uma dúvida...
Estou com um código que faz a leitura em uma tabela acess, numera e precisa gravar em um campo especifico da tabela. Pois funciona perfeitamente, porem grava o mesmo numero para todos os lançamentos.
Não sei se o código que estou postando está correto se devo utilizar desta forma... mas foi o melhor que consegui... kkkkk
Alguem poderia me ajudar...???
Código abaixo:
conexao.Open()
progresso.Visible = True
sql = [Ô]select * from CPCreditos order by CP364[Ô]
Dim numero As Integer
Dim cmd As OleDbCommand = New OleDbCommand(sql, conexao)
Dim leitor As OleDbDataReader = cmd.ExecuteReader()
Dim s1 As String
Do While leitor.Read()
contador.Text = leitor(0)
numero += 1
Progress.Value += 1
If Progress.Value = 100 Then
Progress.Value = 0
End If
codigos.Text = Format(numero, [Ô]000000000000[Ô])
[ô] contador.Text = numero
s1 = [Ô]UPDATE CPCreditos SET CP372=[ô][Ô] & codigos.Text & [Ô][ô][Ô]
Dim cmnd As New OleDbCommand(s1, conexao)
cmnd.ExecuteNonQuery()
cmnd.Dispose()
Loop
conexao.Close() [ô] fecha a conexação com o banco de dados
Progress.Value = 0
progresso.Visible = False
MessageBox.Show([Ô]Contas reorganizadas![Ô])
s1 = [Ô]UPDATE CPCreditos SET CP372=[ô][Ô] & codigos.Text & [Ô][ô] WHERE ALGUM_CAMPO=ALGUM VALOR[Ô]
como nosso amigo KERPLUNK escreveu vc precisa informar o campo codigo no WHERE E setar um parametro EX: codigo
ou o campo que contem o codigo
ou o campo que contem o codigo
Então!
A falta de Where foi proposital, já que estou numerando a tabela. Já tentei criar um campo ID com numeração automática, mas quando deleto dá erro. Ai pensei na numeração, onde o comando lê a tabela e vai formando uma nova numeração.
Ex:
Campo: CP372 - é o campo ID ou códigos de lançamento, ele está vazio e é preciso numera-lo. Tenho outras referências na tabela, porem é duplicada.
A falta de Where foi proposital, já que estou numerando a tabela. Já tentei criar um campo ID com numeração automática, mas quando deleto dá erro. Ai pensei na numeração, onde o comando lê a tabela e vai formando uma nova numeração.
Ex:
Campo: CP372 - é o campo ID ou códigos de lançamento, ele está vazio e é preciso numera-lo. Tenho outras referências na tabela, porem é duplicada.
Tópico encerrado , respostas não são mais permitidas