Ver Mensaje Individual
  #1 (permalink)  
Antiguo 04/04/2007, 08:52
krnes
 
Fecha de Ingreso: abril-2007
Mensajes: 19
Antigüedad: 17 años, 11 meses
Puntos: 0
datagridview con excel

Saludos.
Mi primer post, hace mucho que entraba a la pagina pero solo para leer ejemplos tambien en la de php y ajax y esta muy buena felicidades .
Por mas que busque un ejemplo de llenar un datagrid view con un archivo de excel no encontre uno que realmente me sirviera aqui les deje el codigo que me funciono por si les sirve, lo saque de una pag. de mokosoft.

' Crear la variable de la cadena de conexión. Modificar el parámetro "Data Source" según
' corresponda para el entorno.
Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=C:\Approba.xls" _
& ";" & "Extended Properties=Excel 8.0;"
Dim objConn As New OleDbConnection(sConnectionString)
' Abrir la conexión con la base de datos.
objConn.Open()

' En el código siguiente se usa un comando SELECT de SQL para mostrar
'los datos de la hoja de cálculo.

' Crear un OleDbCommand para devolver los datos de la hoja de cálculo.
Dim objCmdSelect As New OleDbCommand("SELECT * FROM [Hoja1$]", objConn)

' Crear un nuevo OleDbDataAdapter que se use para crear un DataSet
' basado en la instrucción SELECT de SQL anterior.
Dim objAdapter1 As New OleDbDataAdapter()

' Pasar el comando Select al adaptador.
objAdapter1.SelectCommand = objCmdSelect

' Crear un DataSet para contener la información de la hoja de cálculo.
Dim objDataset1 As New DataSet()

' Rellenar el DataSet con la información de la hoja de cálculo.
objAdapter1.Fill(objDataset1, "XLData")

' Crear una tabla a partir de los datos originales.
Me.DataGridView1.DataSource = objDataset1.Tables(0).DefaultView

' Limpiar los objetos.
objConn.Close()