border
VB 6
 
 
/

Retroceder   VB-MUNDO - Visual Basic, y mucho mas > Programacion > Visual Basic .NET
Olvidó Password? Registrarse!
Registrarse FAQDonate Miembros Calendario Buscar Temas de Hoy Marcar Foros Como Leídos

Visual Basic .NET Todas las Versiones de Visual Basic .NET

El Mejor Hosting .NET Framework 4.0

En VB-MUNDO usamos el increible servicio de SmarterASP

Respuesta
 
LinkBack Herramientas
  #1 (permalink)  
Antiguo 11-03-2010, 21:03:54
Buena Participación en el Foro
 
Registrado: jul 2005
Posts: 54
Créditos: 1.835
jmartinym Valoración +2
Predeterminado Importar Exce a Datagridview

Estimados Sres, queiro pasar la informacion de un archivo excel del 2007, a un datagridview, y al moemento de leer me sale el siguiente error:
"La tabla Externa No tiene el formato esperado"

el codigo es el sigueinte:

strconn = "Provider=Microsoft.Jet.Oledb.4.0; data source= " + ruta + ";Extended properties=""Excel 8.0;hdr=yes;imex=1"""

Dim dAdapter As New OleDbDataAdapter("Select * From [hoja1]", strconn)
Dim ds As New DataSet

dAdapter.Fill(ds)
Me.DtgExcel.DataSource = ds.Tables(0)
en archivo de excel la informacion esta en la hoja1, con sus cabeceras respectivas, necesito que me orienten.

Gracias
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #2 (permalink)  
Antiguo 15-03-2010, 16:45:04
Gran Participación en el Foro
 
Registrado: sep 2004
Posts: 167
Créditos: 1.540
csic20 Valoración +2
Predeterminado Re: Importar Exce a Datagridview

Lo que pasa es que estas haciendo una conexion para excel 2000.

Para el 2007 y anteriores seria + o - asi:

Dim stRuta As String = ""

Dim openFD As New OpenFileDialog()
With openFD
.Title = "Seleccionar archivos"
.Filter = "Archivos Excel(*.xls;*.xlsx)|*.xls;*.xlsx|Todos los archivos (*.*)|*.*"
.Multiselect = False
.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
If .ShowDialog = Windows.Forms.DialogResult.OK Then
stRuta = .FileName
End If
End With

Try

Dim stConexion As String = ("Provider=Microsoft.ACE.OLEDB.12.0;" & ("Data Source=" & (stRuta & ";Extended Properties=""Excel 12.0 Xml;HDR=YES;IMEX=2"";")))

Dim cnConex As New OleDbConnection(stConexion)
Dim Cmd As New OleDbCommand("Select * from [Hoja1$]")
Dim Ds As New DataSet
Dim Da As New OleDbDataAdapter
Dim Dt As New DataTable

cnConex.Open()
Cmd.Connection = cnConex

Da.SelectCommand = Cmd
Da.Fill(Ds)
Dt = Ds.Tables(0)

Me.DtgExcel.DataSource = Dt

Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
End Try


Saludos
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #3 (permalink)  
Antiguo 16-03-2010, 15:01:27
Buena Participación en el Foro
 
Registrado: jul 2005
Posts: 54
Créditos: 1.835
jmartinym Valoración +2
Predeterminado Re: Importar Exce a Datagridview

Efectivamente, el problema era la conexion, ya carga muy bien la informacion desde el excel.
Muchisimas gracias .
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #4 (permalink)  
Antiguo 10-01-2013, 19:57:35
Nuevo Amigo
 
Registrado: sep 2012
Posts: 7
Créditos: 668
Cardila Aun no valorado
Smile Re: Importar Exce a Datagridview

Excelente¡¡¡¡¡

Estaba buscando como hacer esto exactamente y me fue de gra ayuda el codigo de csic20... Muchas Gracias.

+10
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
Respuesta


Herramientas

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado



La franja horaria es GMT. Ahora son las 22:43:40.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO 3.1.0
vBCredits v1.4 Copyright ©2007 - 2008, PixelFX Studios


right
Inactive Reminders By Icora Web Design