INstrução Sql dando o erro: "Tipo de dados incompatível na expressão de critério"

Question

Dim cn As New OleDb.OleDbConnection
        cn.ConnectionString = "Provider=Microsoft.Jet.OleDb.4.0; Data Source=" & caminho & ""
        cn.Open()

        Dim st As Long

        st = TXTId.Text

        Dim myCmd As New OleDb.OleDbCommand
        myCmd.Connection = cn

        myCmd.CommandText = "UPDATE Processo SET Ano = '" + Me.TXTAno.Text + "'," + "Autos = '" + Me.TXTAutos.Text + "'" + "WHERE Id ='" + Me.TXTId.Text + "'"
        myCmd.ExecuteNonQuery()
        MsgBox("Dados Alterados com sucesso!")

        cn.Close()
        CarregaDados()

Answer 1

Faltou espaço antes do WHERE...

" WHERE Id ='" 

---

Carlos Eduardo Ferreira

Answer 2

Paras as colunas numéricas você não precisa colocar a aspa simples na instrução.

Dim cn As New OleDb.OleDbConnection cn.ConnectionString = "Provider=Microsoft.Jet.OleDb.4.0; Data Source=" & caminho & ""
        cn.Open()

        Dim st As Long

        st = TXTId.Text

        Dim myCmd As New OleDb.OleDbCommand
        myCmd.Connection = cn
	Dim vSql as string

        vSql = "UPDATE Processo " +
	      " SET   Ano   = " + Me.TXTAno.Text + 
              " ,     Autos = '" + Me.TXTAutos.Text + 
              " WHERE Id = " + Me.TXTId.Text 

        myCmd.CommandText = vSql;
        myCmd.ExecuteNonQuery()
        MsgBox("Dados Alterados com sucesso!")

        cn.Close()
        CarregaDados()

---

Natan

Answer 3

Obrigado a todos, as respostas me foram úteis.