Muy buenas comunidad! El siguiente problema ya lo habia experimentado antes cuando hacia modificaciones (UPDATES) a la hoja de excel, pero siempre le encontraba alguna solucion... pero... ahora no... y lo mas gracioso que estoy siguiendo al pie de la letra los pasos que menciona microsoft en su pagina oficial (esta en ingles): https://support.microsoft.com/en-us/kb/316934
With ADO.NET, you can insert and update records in a workbook in one of three ways: Directly run a command to insert or update records one at a time. To do this, you can create an OLEDbCommand object on your connection and set its CommandText property to a valid command to insert records
INSERT INTO [Sheet1$] (F1, F2) values ('111', 'ABC')
or a command to update records
UPDATE [Sheet1$] SET F2 = 'XYZ' WHERE F1 = '111'
and then call the ExecuteNonQuery method.
En mi programa tengo funciones y metodos que colectan la hoja dependiendo de la columna que se le pasa como parametro, y funciones que devuelven la posicion exacta de una celda vacia o con errores (A1,B2,C15...) he comparado cientos de veces si las funciones estan devolviendo bien lo que se desea, y pues si... todos estan trabajando bien... entonces el problema seria la misma funcion de sustitucion...
Protected Friend Sub reemplazarDato(ByVal DColumn As String, ByVal headerCell As String, ByVal cell As String, ByVal dato As String)
Dim hoja As String = obtenerHojaActual(DColumn)
Dim comando As New OleDbCommand
comando.Connection = conexion
comando.CommandText = "UPDATE [" & hoja & "$] SET [" & cell & "]=@dato WHERE [" & headerCell & "]=@DColumn"
comando.Parameters.Add("@dato", OleDbType.Date).Value = dato
comando.Parameters.Add("@DColumn", OleDbType.VarChar).Value = DColumn
MsgBox(comando.CommandText)
MsgBox("Dato nuevo: " + comando.Parameters(0).Value + " en la columna: " + comando.Parameters(1).Value)
conexion.Open()
Try
comando.ExecuteNonQuery()
Catch ex As Exception
cajaMensaje("Error inesperado", ex.Message, My.Resources._error).ShowDialog()
End Try
conexion.Close()
comando.Dispose()
End Sub
Esos message box se los inserte para comprobar que los datos se estan insertando bien y la consulta esta siendo bien escrita. Voy a citar un ejemplo que estoy intentando ahora... estoy intentando cambiar el valor de la celda C2 de esta hoja de excel:
El commandText que imprime el mssgbox del programa...
Notese la similitud al de microsoft: UPDATE [Sheet1$] SET F2 = 'XYZ' WHERE F1 = '111'
¿Sera que los parametros no estan almacenando los valores?, pues si lo hacen.
Y antes que me respondan "es que tienes que removerle los corchetes a los valores que representen columnas", pues no, ya se los he removido y no funciona igual (ademas, la misma pagina sugiere que se utilizen a la hora de marcar columnas), tambien intente haciendo una consulta regular con concatenaciones e igual, nada (tambien la misma pagina sugiere que se utilizen consultas con parametros a la hora de escribirlos)...
Que podria ser este extraño problema?
ACTUALIZACION
Leyendo por la web acerca del problema, encontre algo mas; Necesitas desactivar la propiedad HDR para poder modificar una celda especifica. Inserte un parametro en la propiedad de la coneccion String para señalar si se activara o desactivara en determinada operacion.
Protected Friend Property setConnection(ByVal hdr As String) As String
Set(value As String)
Try
conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & value & ";Extended Properties='Excel 8.0;HDR=" & hdr & ";IMEX=0;TypeGuessRows=0;'"
Catch ex As Exception
cajaMensaje("Error inesperado", ex.Message, My.Resources._error).ShowDialog()
End Try
End Set
Get
Return conexion.ConnectionString
End Get
End Property
Tambien encontre que se debia señalar un rango para modificar dicha celda. Hice lo siguiente pero no me funciono (Me arroja el mismo error...) y sinceramente no llegue a comprender eso del rango. El metodo entonces quedo de la siguiente manera:
Protected Friend Sub reemplazarDato(ByVal DColumn As String, ByVal cell As String, ByVal dato As String)
Dim hoja As String = obtenerHojaActual(DColumn)
Dim comando As New OleDbCommand
setConnection("NO") = setRuta
MsgBox(conexion.ConnectionString)
comando.Connection = conexion
comando.CommandText = "UPDATE [" & hoja & "$" & cell & ":" & cell & "] SET [" & cell & "]=@dato"
MsgBox(comando.CommandText)
comando.Parameters.Add("@dato", OleDbType.VarChar, dato.Length).Value = dato
conexion.Open()
Try
comando.ExecuteNonQuery()
Catch ex As Exception
cajaMensaje("Error inesperado", ex.Message, My.Resources._error).ShowDialog()
End Try
conexion.Close()
comando.Dispose()
End Sub
ConnectionString
? ¿Probaste poniendo?
en lugar de los nombres de los parámetros@dato
y@DColumn
?UPDATE [" & hoja & "$] SET [" & cell & "]=? WHERE [" & headerCell & "]=?
Así tal vez funcione.Excel 8.0
, debería decirExcel 12.0 xml
, para mayor seguridad fijate en Microsoft ACE OLEDB 12.0. Aparte de eso parece que en 64 bits no funciona, para más detalle, fijate en Jet for Access, Excel and Txt on 64 bit systems