UPDATE/SALVAR DATA NO ACCESS
Estou tentando realizar um update no campo data (abreviada) e estou tendo oxeguinte erro: Tipo de dados imcompatÃvel na expressão de critério.
porem se altero o campo para texto salva normalmente
segue o codigo que estou tentando utilizar
SQLstring = [Ô]update tb_orcamentos set [Ô] & _
[Ô]dt_envio_manutencao=[ô][Ô] & mask_dt_envio.Text & [Ô][ô][Ô] & _
[Ô],valor_orcamento=[ô][Ô] & TextBox2.Text & [Ô][ô][Ô] & _
[Ô],dt_receb_orcamento=[ô][Ô] & mask_dt_orc.Text & [Ô][ô][Ô] & _
[Ô],status_orcamento=[ô][Ô] & ComboBox1.Text & [Ô][ô][Ô] & _
[Ô],dt_receb_coletor_assist=[ô][Ô] & mas_dt_rec_manut.Text & [Ô][ô][Ô] & _
[Ô],observacoes=[ô][Ô] & txt_observacoes.Text & [Ô][ô][Ô] & _
[Ô] Where codigo= [Ô] & txt_ultimo_registro.Text
Call ExecutarComando(SQLstring)
MessageBox.Show([Ô]atualizado[Ô])
fyunção executar comando no modulo
Public Sub ExecutarComando(ByVal sql As String)
Dim objcon As New OleDb.OleDbConnection(conexao2)
Dim objcmd As New OleDb.OleDbCommand(sql, objcon)
objcon.Open()
objcmd.ExecuteNonQuery()
objcon.Close()
End Sub
porem se altero o campo para texto salva normalmente
segue o codigo que estou tentando utilizar
SQLstring = [Ô]update tb_orcamentos set [Ô] & _
[Ô]dt_envio_manutencao=[ô][Ô] & mask_dt_envio.Text & [Ô][ô][Ô] & _
[Ô],valor_orcamento=[ô][Ô] & TextBox2.Text & [Ô][ô][Ô] & _
[Ô],dt_receb_orcamento=[ô][Ô] & mask_dt_orc.Text & [Ô][ô][Ô] & _
[Ô],status_orcamento=[ô][Ô] & ComboBox1.Text & [Ô][ô][Ô] & _
[Ô],dt_receb_coletor_assist=[ô][Ô] & mas_dt_rec_manut.Text & [Ô][ô][Ô] & _
[Ô],observacoes=[ô][Ô] & txt_observacoes.Text & [Ô][ô][Ô] & _
[Ô] Where codigo= [Ô] & txt_ultimo_registro.Text
Call ExecutarComando(SQLstring)
MessageBox.Show([Ô]atualizado[Ô])
fyunção executar comando no modulo
Public Sub ExecutarComando(ByVal sql As String)
Dim objcon As New OleDb.OleDbConnection(conexao2)
Dim objcmd As New OleDb.OleDbCommand(sql, objcon)
objcon.Open()
objcmd.ExecuteNonQuery()
objcon.Close()
End Sub
Para campos data no banco, você tem que usar a tralha para salvar.
Por exemplo:
Por exemplo:
dt_envio_manutencao = #[Ô] & mask_dt_envio.Text & [Ô]# [Ô] & _
obrigadooo
Tópico encerrado , respostas não são mais permitidas