ALTERAR REGISTRO NO ACCESS

MAXGUIMEL 11/02/2011 10:31:51
#365096
Amigos, o que esta errado nesta rotina?

Me retorna o erro de sintese

[ô]cria um objeto command e grava registro no banco
OleCidades = New OleDbCommand([Ô]Update Cidade set (NomeCidade, Estado) [Ô] & _
[Ô]Values([ô][Ô] & TxtCidade.Text & [Ô][ô],[ô][Ô] & TxtEstado.Text & [Ô][ô])[Ô] & _
[Ô]Where Id = [ô][Ô] & MaskCodigo.Text & [Ô][ô][Ô], OpenDB)
[ô]define um data adapter
AdapterCidades = New OleDbDataAdapter()
AdapterCidades.SelectCommand = OleCidades
TbCidades = New DataTable()
AdapterCidades.Fill(TbCidades)
gravou = 1
Limpa_Cidade() &
FecharBanco()

Ja mudei pra tudo quanto foi jeito e o erro é sempre o mesmo.
RODRIGOFERRO 11/02/2011 14:50:02
#365151
Amigão analise a String que o OleDbCommand esta criando, pegue ela e cole no banco de dados em forma de consulta e veja se ela executa por la!!!

Abraços
MAXGUIMEL 11/02/2011 14:57:24
#365153
Não entendi Zerocal

Tentei fazer assim tambem mas da o erro:

Tipo de dados imcompatível na expressão de critério.

[ô]cria um objeto command e altera registro no banco
OleCidades = New OleDbCommand([Ô]Update Cidade Set NomeCidade = [ô][Ô] & NomeCid & [Ô][ô],[Ô] & _
[Ô]Estado = [ô][Ô] & Estado & [Ô][ô][Ô] & _
[Ô]Where Id = [ô][Ô] & CodCid & [Ô][ô][Ô], OpenDB)

[ô]define um data adapter
AdapterCidades = New OleDbDataAdapter()
AdapterCidades.SelectCommand = OleCidades
TbCidades = New DataTable()
AdapterCidades.Fill(TbCidades)
gravou = 1
Limpa_Cidade()
FecharBanco()
MITSUEDA 11/02/2011 15:02:59
#365154
Tente tirar as aspas de [ô][Ô] & CodCid & [Ô][ô][Ô]

Talvez esse campo seja numerico.

Abraço
MAXGUIMEL 11/02/2011 17:07:17
#365177
Ja resolvi por aqui pessoal vou postar pra quem precisar um dia.

Private Sub BtSalvar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtSalvar.Click


If TxtCidade.Text = [Ô][Ô] Then
MessageBox.Show([Ô]Por Favor, Informe a Cidade![Ô], [Ô]..::Cadastro::..[Ô], MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
TxtCidade.Focus()
End If

If TxtEstado.Text = [Ô][Ô] Then
MessageBox.Show([Ô]Por Favor, Informe o Estado![Ô], [Ô]..::Cadastro::..[Ô], MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
TxtEstado.Focus()
End If

NomeCid = TxtCidade.Text
Estado = TxtEstado.Text
CodCid = MaskCodigo.Text


If LblIdentifica.Text = [Ô]Alterar[Ô] Then

If TxtCidade.Text = [Ô][Ô] And TxtEstado.Text = [Ô][Ô] Then
MessageBox.Show([Ô]Por Favor, Digite as informações para serem gravadas![Ô], [Ô]..::Cadastro::..[Ô], MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
TxtCidade.Focus()
Else

[ô]cria um objeto command e altera registro no banco
Dim sql As String = [Ô]Update Cidade Set NomeCidade = [ô][Ô] & NomeCid & [Ô][ô],[Ô] & _
[Ô]Estado = [ô][Ô] & Estado & [Ô][ô][Ô] & _
[Ô] Where Id = [Ô] & CodCid

OleCidades = New OleDbCommand(sql, OpenDB)

[ô]define um data adapter
AdapterCidades = New OleDbDataAdapter()
AdapterCidades.SelectCommand = OleCidades
TbCidades = New DataTable()
AdapterCidades.Fill(TbCidades)
gravou = 1
Limpa_Cidade()
FecharBanco()

End If

Else

If TxtCidade.Text = [Ô][Ô] And TxtEstado.Text = [Ô][Ô] Then
MessageBox.Show([Ô]Por Favor, Digite as informações para serem gravadas![Ô], [Ô]..::Cadastro::..[Ô], MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
TxtCidade.Focus()
Else
[ô]cria um objeto command e grava registro no banco
OleCidades = New OleDbCommand([Ô]insert into Cidade(NomeCidade,Estado) values([ô][Ô] & TxtCidade.Text & [Ô][ô],[Ô] & _
[Ô][ô][Ô] & TxtEstado.Text & [Ô][ô])[Ô], OpenDB)
[ô]define um data adapter
AdapterCidades = New OleDbDataAdapter()
AdapterCidades.SelectCommand = OleCidades
TbCidades = New DataTable()
AdapterCidades.Fill(TbCidades)
gravou = 2
Limpa_Cidade()
FecharBanco()
End If

End If

ConsCidades.ListCidades.Refresh()
ConsCidades.Show()

If gravou = 1 Then
MessageBox.Show([Ô]Alterado com Sucesso![Ô], [Ô]..::Banco de Dados::..[Ô], MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If

If gravou = 2 Then
MessageBox.Show([Ô]Gravado com Sucesso![Ô], [Ô]..::Banco de Dados::..[Ô], MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If

Close()

End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar