none
Por que me sale este error Data type mismatch in criteria expression. RRS feed

  • Pregunta

  • Hola ando trabajando con excel pero ala hora que deseo agregar un dato me sale este error Data type mismatch in criteria expression.

    les maestro el codigo que estoy utilizando para guarder los datos  espero pueda decirme a que se debe este error

    Dim cadena As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= 'baser02_1801201745.xlsx'; 
                   Extended Properties = Excel 12.0 Xml;"
    
            Dim conn As New OleDbConnection(cadena)
            conn.Open()
    
            Dim bs As New BindingSource
            bs.DataSource = dtMateriales
    
            bs.Filter = "Id ='0'"
    
            If bs.Count > 0 Then
                Dim cmd As New OleDbCommand("update [Sheet2$] set Id='" & TxtId.Text & "',Clave='" & txtClaveExcel.Text & "',Descripcion='" & TxtDescripcion.Text & "' where Id='0'", conn)
                cmd.ExecuteNonQuery()
            Else
    
                Dim cmd As New OleDbCommand("Insert into [Sheet2$] (Id,Clave,Descripcion) values('" & TxtId.Text & "','" & txtClaveExcel.Text & "' ,'" & TxtDescripcion.Text & "')", conn)
                cmd.ExecuteNonQuery()
            End If
    
            conn.Close()
            Llenar()

    viernes, 27 de julio de 2018 14:32