TIPO DE DADOS INCOMPATIVEL
Tipo de dados incompatÃvel na expressão de critério.
Help!
Pessoal, tenho uma tabela que criei o campo ID do tipo auto numeração (acess.accbd)
Quando faço a leitura beleza, mas quando vou atualizar a tabela passando a informação para where, dá este erro [Ô]Tipo de dados incompatÃvel na expressão de critério.[Ô]
Abaixo meu código, que é para atualização de uma base de dados em acess 2010.
conexao.Open()
progresso.Visible = True
sql = [Ô]select * from CPCreditos order by ID[Ô]
Dim codigo As Integer = 10
Dim wCP220, wCP228 As String
Dim cmd As OleDbCommand = New OleDbCommand(sql, conexao)
Dim leitor As OleDbDataReader = cmd.ExecuteReader()
[ô]Dim s1 As String
Do While leitor.Read()
codigos.Text = (leitor.Item([Ô]ID[Ô])) [ô] Código
wCP220 = (leitor.Item([Ô]CP220[Ô])) [ô] Conta Analitica
wCP228 = wCP220.Substring(0, 7)
Progress.Value += 1
If Progress.Value = 100 Then
Progress.Value = 0
End If
Dim s1 As String = [Ô]UPDATE CPCreditos SET CP228=[ô][Ô] & wCP228 & [Ô][ô] WHERE ID = [ô][Ô] & codigos.Value & [Ô][ô][Ô]
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 sintéticas reorganizadas![Ô])
Antecipamente agradeço!!!
Help!
Pessoal, tenho uma tabela que criei o campo ID do tipo auto numeração (acess.accbd)
Quando faço a leitura beleza, mas quando vou atualizar a tabela passando a informação para where, dá este erro [Ô]Tipo de dados incompatÃvel na expressão de critério.[Ô]
Abaixo meu código, que é para atualização de uma base de dados em acess 2010.
conexao.Open()
progresso.Visible = True
sql = [Ô]select * from CPCreditos order by ID[Ô]
Dim codigo As Integer = 10
Dim wCP220, wCP228 As String
Dim cmd As OleDbCommand = New OleDbCommand(sql, conexao)
Dim leitor As OleDbDataReader = cmd.ExecuteReader()
[ô]Dim s1 As String
Do While leitor.Read()
codigos.Text = (leitor.Item([Ô]ID[Ô])) [ô] Código
wCP220 = (leitor.Item([Ô]CP220[Ô])) [ô] Conta Analitica
wCP228 = wCP220.Substring(0, 7)
Progress.Value += 1
If Progress.Value = 100 Then
Progress.Value = 0
End If
Dim s1 As String = [Ô]UPDATE CPCreditos SET CP228=[ô][Ô] & wCP228 & [Ô][ô] WHERE ID = [ô][Ô] & codigos.Value & [Ô][ô][Ô]
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 sintéticas reorganizadas![Ô])
Antecipamente agradeço!!!
Olhe aqui.
Dim s1 As String = [Ô]UPDATE CPCreditos SET CP228=[ô][Ô] & wCP228 & [Ô][ô] WHERE ID = [ô][Ô] & codigos.Value & [Ô][ô][Ô]
[txt-color=#e80000]Dim s1 As String = [Ô]UPDATE CPCreditos SET CP228=[ô][Ô] & wCP228 & [Ô][ô] WHERE ID = [Ô] & codigos.Value & [Ô][Ô][/txt-color]
Geralmente Access não aceita [ô][Ô] & codigos.Value & [Ô][ô][Ô] aspas deste jeito para o campo ID
Dim s1 As String = [Ô]UPDATE CPCreditos SET CP228=[ô][Ô] & wCP228 & [Ô][ô] WHERE ID = [ô][Ô] & codigos.Value & [Ô][ô][Ô]
[txt-color=#e80000]Dim s1 As String = [Ô]UPDATE CPCreditos SET CP228=[ô][Ô] & wCP228 & [Ô][ô] WHERE ID = [Ô] & codigos.Value & [Ô][Ô][/txt-color]
Geralmente Access não aceita [ô][Ô] & codigos.Value & [Ô][ô][Ô] aspas deste jeito para o campo ID
Tópico encerrado , respostas não são mais permitidas