ERRO NO COMANDO UPDATE ACCESS
Estou usando o access2007 como bd e estou tendo problemas com o comando update, tentei fazer igual no mysql e tbm mudei algumas coisas mais dá erro
o erro que aparece é este [Ô]Tipo de dados incompativel na expressão de critério[Ô]
Dim mycon as New OledbCommand([Ô]Update Contatos set Nome = [ô][Ô] & txtNome.text & [Ô][ô],Telefone = [ô][Ô] & txtTelefone.text & [Ô][ô],Celular = [ô][Ô] & txtcel.text & [Ô][ô],Celular2 = [ô][Ô] & txtCel2.text & [Ô][ô],Email = [ô][Ô] & txtEmail.text & [Ô][ô] where Código = [ô][Ô] & txtCodigo.text & [Ô][ô][Ô],con)
mycon.ExecuteNonQuery
mycon.dispose
con.close
o erro que aparece é este [Ô]Tipo de dados incompativel na expressão de critério[Ô]
Citação:o erro que aparece é este [Ô]Tipo de dados incompativel na expressão de critério[Ô]
Bom, pelo que vejo algum campo do banco de dados não está conseguindo receber um dos valores que você está passando!
Como está no Banco de Dados? Todos os campos estão como Texto?
Tem certeza que o campo [Ô]Código[Ô] é string?
os campos nome,telefone,celular,celular2,email, no bd são texto e o código é um campo autonumerico
Então revise sua SQL, pois você está tratando o campo CODIGO como string.
mais pq no mysql funciona??
Acredito que não esteja ai o problema, pois você só está fazendo uma consulta nesse campo.
Não tenho certeza se isso causa esse erro!
Não tenho certeza se isso causa esse erro!
O MySql é um banco que não leva tão a risca a comparação de tipos de campos nas SQLs.
Já o Access, leva 100%...
Já o Access, leva 100%...
Os campos autonumericos no Access não podem ser imputados, eles são gerados pelo proprio Access, o que você pode fazer é alterar esse campos para inteiro longo. E ir incrementando a medida que isere os dados.
Os campos autonumeração não se repetem.
Espero ter ajudado.
Abraços
Os campos autonumeração não se repetem.
Espero ter ajudado.
Abraços
mais o estranho que eu consigo deletar usando o Código eu faço ex: delete from Contatos where Código = lblcodigo.text então no caso do update não dá
Não tenho o Officce aqui no serviço. Não consigo testar!
Tente dessa forma...
Tente dessa forma...
Dim mycon as New OledbCommand([Ô]Update Contatos set Nome = [ô][Ô] & txtNome.text & [Ô][ô],Telefone = [ô][Ô] & txtTelefone.text & [Ô][ô],Celular = [ô][Ô] & txtcel.text & [Ô][ô],Celular2 = [ô][Ô] & txtCel2.text & [Ô][ô],Email = [ô][Ô] & txtEmail.text & [Ô][ô] where Código = [Ô] & txtCodigo.text,con)
mycon.ExecuteNonQuery
mycon.dispose
con.close
Tópico encerrado , respostas não são mais permitidas