Problemas para conectarme a excel
Hola disculpa tengo un problema para conectarme con excel estoy utilizando visual basic 2008 express edition.
Lo que pasa es que estoy haciendo una aplicación que me importe datos sacados de un archivo de excel a una base de datos de mysql.
Por el momento extoy experimentando en mostrar primero mis datos en un datagrid por lo que tengo este código
Sub Cargar(ByVal Libro As String, ByVal hoja As String, Optional ByVal rango As String = "")
Dim conexion As ADODB.Connection, rs As ADODB.Recordset
conexion = New ADODB.Connection
****en esta linea me marca error por lo que no hace la conexion*******************
conexion.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Libro & "; Extended Properties=Excel 12.0"";HDR=Yes;") **********************************************************************
If rango <> ":" Then
hoja = hoja & "$" & rango
End If
rs = New ADODB.Recordset
rs.Open("SELECT * FROM [" & hoja & "]", conexion)
DataGrid1.DataSource = rs
End Sub
Por favor si puedes ayudarme te lo agradecería o si tienes alguna otra solución para hacer mi aplicación también t lo agradecería
Lo que pasa es que estoy haciendo una aplicación que me importe datos sacados de un archivo de excel a una base de datos de mysql.
Por el momento extoy experimentando en mostrar primero mis datos en un datagrid por lo que tengo este código
Sub Cargar(ByVal Libro As String, ByVal hoja As String, Optional ByVal rango As String = "")
Dim conexion As ADODB.Connection, rs As ADODB.Recordset
conexion = New ADODB.Connection
****en esta linea me marca error por lo que no hace la conexion*******************
conexion.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Libro & "; Extended Properties=Excel 12.0"";HDR=Yes;") **********************************************************************
If rango <> ":" Then
hoja = hoja & "$" & rango
End If
rs = New ADODB.Recordset
rs.Open("SELECT * FROM [" & hoja & "]", conexion)
DataGrid1.DataSource = rs
End Sub
Por favor si puedes ayudarme te lo agradecería o si tienes alguna otra solución para hacer mi aplicación también t lo agradecería
1 respuesta
Respuesta de exechapur
1