[SOLUCIONADO] Importar tabla de excel completa a un gridview.

[aid_val]

Estoy guardando datos de un archivo de excel en mi base de datos y para cerciorarme que es correcta antes la carga a un Gridview .

La programación esta hecha de la siguiente manera

Código:

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_mostrar0.Click

        Dim rutaArchivo As String = ddl_cargar_nombres.SelectedValue
        Dim dsExcel As New DataSet
        Dim cmdselect As New OleDbCommand

        Try

            Dim cadconex As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & rutaArchivo & " ;Persist Security Info=False;Extended Properties="Excel 12.0 Xml;HDR=YES;IMEX=1""

            Dim conorigen As OleDbConnection
            conorigen = New OleDbConnection(cadconex)

            conorigen.Open()

            Dim adaptador As New OleDbDataAdapter
            Dim nombre_hoja As String
            nombre_hoja = txt_hoja.Text

            cmdselect.Connection = conorigen
            cmdselect.CommandText = "select * from [" & nombre_hoja & "$] where concepto <>''"
            adaptador.SelectCommand = cmdselect
            adaptador.Fill(dsExcel)

            gv_Excel.DataSource = dsExcel
            gv_Excel.DataBind()

            conorigen.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try




    End Sub

pero cuando veo en mi base de datos noto que no me esta trayendo todo el contenido de una celda.

Por ejemplo el contenido real es:

Suministro de tubería de polietileno de alta densidad corrugado para alcantarillado sanitario que cumpla con la norma de hermeticidad NOM-001-CONGUA-2011 y NMX-E-216-1994-SCFI. Incluye: fletes, acarreos y maniobras locales puesto L.A.B. en el almacén de la obra en la localidad, uniones en parte proporcional con 380 mm de diámetro.

y lo que me trae es:

Suministro de tubería de polietileno de alta densidad corrugado para alcantarillado sanitario que cumpla con la norma de hermeticidad NOM-001-CONGUA-2011 y NMX-E-216-1994-SCFI. Incluye: fletes, acarreos y maniobras locales puesto L.A.B. en el almacén de l

Que puedo hacer para que si me cargue todo el contenido.

[jaullo]

Hola,

Mas que problema del sistema diria que es problema de bases de datos. Revisa el tamaño del campo en la base de datos (por ejemplo nvarchar(32) ) y aumentalo, puedes usar MAX. Normalmente cuando el texto a insertar es mayor al tamaño del campo se trunca, de ahi que lo ves cortado.

Saludos,
Jason Ulloa
MCC

[aid_val]

No de hecho el problema no es por dicseño de la base de datos. Es al momento en que lo carga de Excel al gridview. Me puse a imprimir el datatable, datareader, dataset para ver si era alguno de estos objetos y en efectivo cuando los imprimo eso es lo que pasa desde ahi no los carga todos.

[aid_val]

Esta es la solución.

Código VISUAL:

Dim rutaArchivo As String = ddl_cargar_nombres.SelectedValue
        Dim Obj_Excel As Object
        Dim Obj_Libro As Object
        Dim Obj_Hoja As Object
        Dim dtExcel As New DataTable
 
        With dtExcel.Columns
            .Add("codigo", GetType(String))
            .Add("presupuesto", GetType(String))
            .Add("concepto", GetType(String))
            .Add("unidad", GetType(String))
            .Add("cantidad", GetType(String))
            .Add("unitario", GetType(String))
            .Add("importe", GetType(String))
        End With
 
        ' -- Crear nueva instancia de Excel   
        Obj_Excel = CreateObject("Excel.Application")
        ' -- Agregar nuevo libro
        Obj_Libro = Obj_Excel.workbooks.open(rutaArchivo)
        ' -- Referencia a la Hoja activa (la que añade por defecto Excel )
        Obj_Hoja = Obj_Excel.ActiveSheet
 
        Dim fila As Integer = 2
 
        Dim a As Integer = 0
        Dim b As Integer = 0
 
        Do While (Obj_Hoja.cells(fila, 1).value <> "")
            dtExcel.Rows.Add(Obj_Hoja.cells(fila, 1).value, Obj_Hoja.cells(fila, 2).value, Obj_Hoja.cells(fila, 3).value,
                             Obj_Hoja.cells(fila, 4).value, Obj_Hoja.cells(fila, 5).value, Obj_Hoja.cells(fila, 6).value,
                             Obj_Hoja.cells(fila, 7).value)
            fila += 1
        Loop
        gv_Excel.DataSource = dtExcel
        gv_Excel.DataBind()