[SOLUCIONADO] connectionstring

[maialenlopez]

hola,

Tengo problemas con el connectionString, es para que me coja datos de un archivo xls que le paso. Que es lo que puede pasas?

Este es mi connectionString:

Código vb.net:

xls_cn.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + xlsx + ";Extended Properties='Excel 12.0;HDR=YES'")
 

y me lanza el siguiente error:
Referencia a un objeto no establecida como instancia a un objeto.

[javidotnet]

Hola maialenlopez

me gustaría tener más código para ver qué hay antes de la línea que mencionas, pero me imagino que está faltando el famoso DIM ... AS NEW ...
es decir:
DIM xls_cn AS NEW objeto_connection '¿OleDBConnection?

Espero haberte ayudado.

Saludos cordiales.

[maialenlopez]

Iniciado por javidotnet

Hola maialenlopez

me gustaría tener más código para ver qué hay antes de la línea que mencionas, pero me imagino que está faltando el famoso DIM ... AS NEW ...
es decir:
DIM xls_cn AS NEW objeto_connection '¿OleDBConnection?

Espero haberte ayudado.

Saludos cordiales.

Hola,

Muchas gracias! era eso.
Pero ahora me da otro error: La tabla externa no tiene el formato esperado. Y por lo que veo es porque no tengo el archivo excel abierto. Una vez que lo abro si me sigue adelante.
¿Sabrías como abrir un archivo excel?

[maialenlopez]

Ya está, lo hice así, dejo el código por si a alguien le resulta útil:

Código vb.net:

Dim xls_cn As New OleDbConnection
Dim xls_cmd As New OleDbCommand
Dim xls_reader As New OleDbDataAdapter
Dim m_Excel As Microsoft.Office.Interop.Excel.Application
Dim strExtension As String = ""
Dim nombreXls As String
 
nombreXls = Path.GetFileName(xlsx)
strExtension = Path.GetExtension(xlsx)
If strExtension = ".xls" Or strExtension = ".xlsx" Then
  'MsgBox("es un archivo excel")
  If (File.Exists(xlsx)) Then
    xls_cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + xlsx + ";Extended Properties='Excel 8.0;HDR=Yes;IMEX=0'"
    'xls_cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.12.0;Data Source=" + xlsx + ";Extended Properties='Excel 12.0;HDR=YES'"
    Using xls_cn
 
       m_Excel = CreateObject("Excel.Application")
       m_Excel.Workbooks.Open(xlsx)
       xls_cn.Open()
       xls_cmd.CommandText = "SELECT * FROM [Hoja1$]"
       xls_cmd.Connection = xls_cn
       xls_reader.SelectCommand = xls_cmd
    End Using
 
    'Eliminamos la instancia de Excel de memoria
    If Not m_Excel Is Nothing Then
       m_Excel.Quit()
       m_Excel = Nothing
    End If
   End If
  Else
   MsgBox("Introduzca un archivo .xls o .xlsx .")
   Exit Sub
  End If
End If
 

[javidotnet]

Hola maialenlopez

¡¡ Excelente !!

Me alegro que hayas solucionado el problema.

Muchas gracias por compartir tu código; a mí me es muy útil para aprender cómo manipular estos archivos excel y porque precisamente tengo pensado comenzar un proyecto para manejar este tipo de archivos.

¡ Feliz Programación !

Saludos cordiales.