Hola a tod@s
Tengo un problema que no se como solucionar!!! estoy creando un dataset obteniendo los datos de una hoja excell y quiero guardar este dataset como una hoja xml.
El código que tengo funciona, pero me da error con los numeros enteros. Si el dato de la columna no tiene decimales me lo convierte en null.
Os paso el codigo que utilizo a ver si alguien me puede dar alguna solución gracias.
Dim Conexion As New OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" & "D:\preus.xls" & "; " & _
"Extended Properties='Excel 8.0; HDR=yes'")
Dim Datos As New DataSet()
Dim AdaptadorCataleg As New OleDbDataAdapter("SELECT * FROM [FULL1$]", Conexion)
AdaptadorCataleg.Fill(Datos, "FULL1")
Dim filename As String = "FULL1Doc.xml"
Dim myFileStream As New System.IO.FileStream _
(filename, System.IO.FileMode.Create)
Dim myXmlWriter As New System.Xml.XmlTextWriter _
(myFileStream, System.Text.UTF8Encoding.UTF8)
Datos.WriteXmlSchema("FULL1Doc.xsd")
Datos.WriteXml(myXmlWriter)
myFileStream.Close()
Conexion.Close()
DataGrid1.DataSource = Nothing
DataGrid1.Refresh()
Dim myDatatView As New DataViewManager(Datos)
myDatatView.DataViewSettings("FULL1").RowFilter = "*"
DataGrid1.DataSource = myDatatView
DataGrid1.DataMember = "FULL1"
Expllicación del error
DATOS HOJA EXCELL --CONVERISON -> DATOS DOC XML
1,2 ----> 1,2
0,45 ----> 0,45
1 ----> NULL
3,5 ----> 3,5
6 ----> NULL
Espero que haya explicado bien el problema,
Si me podeis ayudar lo agradeceria mucho.
Gracias
