none
Excepción no controlada del tipo 'System.Data.OleDb.OleDbException' en System.Data.dll RRS feed

  • Pregunta

  • Ayuda porfavor no encuentro el fallo

    GRACIAS

    'CARGA LA TABLA DE ALIMENTOS
    Dim Conec_Alimentos As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & My.Application.Info.DirectoryPath & "\Alimentos\Alimentos.accdb" & ";Persist Security Info=False;")

    Dim ds_Alimentos As New DataSet
    Dim dt_Alimentos As New DataTable
    Dim strsql_Alimentos As String = "select * from Alimentos"
    Dim ADP_Alimentos As New OleDb.OleDbDataAdapter(strsql_Alimentos, Conec_Alimentos)
    ds_Alimentos.Tables.Add("Alimentos")
    ADP_Alimentos.Fill(ds_Alimentos.Tables("Alimentos"))
    Conec_Alimentos.Open()
    'Añade Nombres de Alimentos al Combobox del Datagridview1
    Dim AddidF As OleDb.OleDbCommand
    Dim drF As OleDb.OleDbDataReader
    AddidF = New OleDb.OleDbCommand("Select Nombre_del_producto from Alimentos ", Conec_Alimentos)
    drF = AddidF.ExecuteReader(CommandBehavior.SingleRow)
    While drF.Read()
    Nombre_Alimento.Items.Add(drF(0))
    End While
    drF.Close()
    'Añade Nombres de Alimentos al Combobox del Datagridview1
    DGV_ALIMENTOS.DataSource = ds_Alimentos.Tables("Alimentos")
    DGV_ALIMENTOS.Columns("ID").Visible = False 'OCULTA LA COLUMNA DE UN DATAGRIDVIEW
    DGV_ALIMENTOS.Columns(1).HeaderText = "Nombre del Alimento"
    Conec_Alimentos.Close()
    'CARGA LA TABLA DE ALIMENTOS

    • Cambiado Enrique M. Montejo viernes, 13 de junio de 2014 4:05 Pregunta relacionada con el acceso a datos.
    jueves, 12 de junio de 2014 8:47

Respuestas

  • Supongo que ese error te dará información adicional que te indicará la causa.

    Veo que has puesto un espacio detrás del nombre la tabla, quítalo :

    AddidF = New OleDb.OleDbCommand("Select Nombre_del_producto from Alimentos", Conec_Alimentos)


    Saludos, Javier J

    • Marcado como respuesta JETET domingo, 16 de octubre de 2016 19:26
    jueves, 12 de junio de 2014 9:36
  • ¿Puedes poner la solución?


    Saludos, Javier J

    • Marcado como respuesta JETET domingo, 16 de octubre de 2016 19:26
    jueves, 12 de junio de 2014 9:51

Todas las respuestas

  • ¿En que línea da el error?

    Saludos, Javier J

    jueves, 12 de junio de 2014 8:53
    1. ¿En que línea da el error?

      Saludos, Javier J

      CARGA LA TABLA DE ALIMENTOS
      Dim Conec_Alimentos As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & My.Application.Info.DirectoryPath & "\Alimentos\Alimentos.accdb" & ";Persist Security Info=False;")

      Dim ds_Alimentos As New DataSet
      Dim dt_Alimentos As New DataTable
      Dim strsql_Alimentos As String = "select * from Alimentos"
      Dim ADP_Alimentos As New OleDb.OleDbDataAdapter(strsql_Alimentos, Conec_Alimentos)
      ds_Alimentos.Tables.Add("Alimentos")
      ADP_Alimentos.Fill(ds_Alimentos.Tables("Alimentos"))
      Conec_Alimentos.Open()

      'Añade Nombres de Alimentos al Combobox del Datagridview1
      Dim AddidF As OleDb.OleDbCommand
      Dim drF As OleDb.OleDbDataReader
      AddidF = New OleDb.OleDbCommand("Select Nombre_del_producto from Alimentos ", Conec_Alimentos)

       drF = AddidF.ExecuteReader(CommandBehavior.SingleRow) -------> EN ESTA

      While drF.Read()
      Nombre_Alimento.Items.Add(drF(0))
      End While
      drF.Close()
      'Añade Nombres de Alimentos al Combobox del Datagridview1

      DGV_ALIMENTOS.DataSource = ds_Alimentos.Tables("Alimentos")
      DGV_ALIMENTOS.Columns("ID").Visible = False 'OCULTA LA COLUMNA DE UN DATAGRIDVIEW
      DGV_ALIMENTOS.Columns(1).HeaderText = "Nombre del Alimento"
      Conec_Alimentos.Close()
      'CARGA LA TABLA DE ALIMENTOS



    • Editado JETET jueves, 12 de junio de 2014 9:07
    jueves, 12 de junio de 2014 9:06
  • Gracias a todos -----> pero ya lo e solucionado
    jueves, 12 de junio de 2014 9:25
  • Gracias a todos -----> pero ya lo e solucionado
    jueves, 12 de junio de 2014 9:26
  • Supongo que ese error te dará información adicional que te indicará la causa.

    Veo que has puesto un espacio detrás del nombre la tabla, quítalo :

    AddidF = New OleDb.OleDbCommand("Select Nombre_del_producto from Alimentos", Conec_Alimentos)


    Saludos, Javier J

    • Marcado como respuesta JETET domingo, 16 de octubre de 2016 19:26
    jueves, 12 de junio de 2014 9:36
  • ¿Puedes poner la solución?


    Saludos, Javier J

    • Marcado como respuesta JETET domingo, 16 de octubre de 2016 19:26
    jueves, 12 de junio de 2014 9:51
  • ¿cual fue la solución?
    jueves, 29 de marzo de 2018 19:07