none
Subir excel con celda de mas de 255 caracteres RRS feed

  • Pregunta

  • Hola Estoy subiendo un archivo de excel desde VB y me trunca las celdas con mas de 255 caracteres

    Como se puede quitar?

    Aqui esta el codigo:

     Dim ConexionOleDB As String
    
                    Select Case Extension
                        Case ".xls"
                            ConexionOleDB = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtArchivo.Text & ";Extended Properties='Excel 8.0;HDR=Yes'"
                        Case ".xlsx"
                            ConexionOleDB = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & txtArchivo.Text & "; Extended Properties=Excel 12.0;"
                    End Select
       Dim connExcel As New OleDbConnection(ConexionOleDB)
    
     connExcel.Open()
                    Dim dtExcelSchema As DataTable
                    dtExcelSchema = connExcel.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)
                    Dim SheetName As String = dtExcelSchema.Rows(0)("TABLE_NAME").ToString()
                    connExcel.Close()
    
                    Dim dt As New DataTable()
    
    Using cnn As New OleDbConnection(ConexionOleDB)
                        Try
                            Dim sql As String = "SELECT * FROM [" & SheetName & "]"
    
                            Dim da As New OleDbDataAdapter(sql, cnn)
    
                            da.Fill(dt)
                            dgvSubi.DataSource = dt
                        Catch ex As Exception
                            ok = False
                            MsgBox("Error")
                        End Try
                    End Using
    
    

    Gracias


    Gracias Ing. Salomon Bagdadi

    martes, 11 de junio de 2013 19:02