none
Copiar campo Access .mdb a una Array RRS feed

  • Pregunta

  • Hola.

    Dim com As New OleDbCommand
    Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;")
    com = New OleDbCommand("SELECT Campo1 FROM Tabla1 WHERE Campo1", con)
    con.Open()
    Dim rdr As OleDbDataReader
    rdr = com.ExecuteReader()
    Do While rdr.Read()
        ListBox1.Items.Add(rdr.Item("Campo1"))
    Loop
    rdr.Close()
    con.Close()

    -El código anterior lo que hace es copiar todo el Campo1 de la Tabla1 de una base de datos a un Listbox.

    Pero necesito que en vez de copiar a un Listbox lo haga a una Array.

    Gracias


    Rafael FM

    viernes, 28 de septiembre de 2018 8:07

Respuestas

  • Puedes usar un ArrayList y pasarlo a un array:

    Dim arrCampo1 As New ArrayList
    Dim com As New OleDbCommand
    Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;")
    com = New OleDbCommand("SELECT Campo1 FROM Tabla1 WHERE Campo1", con)
    con.Open()
    Dim rdr As OleDbDataReader
    rdr = com.ExecuteReader()
    Do While rdr.Read()
        arrCampo1.Add(rdr.Item("Campo1"))
    Loop
    rdr.Close()
    con.Close()

    Dim a() As String = arrCampo1.ToArray()


    Saludos, Javier J

    • Marcado como respuesta Rafael FM viernes, 28 de septiembre de 2018 10:27
    viernes, 28 de septiembre de 2018 8:55

Todas las respuestas

  • Puedes usar un ArrayList y pasarlo a un array:

    Dim arrCampo1 As New ArrayList
    Dim com As New OleDbCommand
    Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;")
    com = New OleDbCommand("SELECT Campo1 FROM Tabla1 WHERE Campo1", con)
    con.Open()
    Dim rdr As OleDbDataReader
    rdr = com.ExecuteReader()
    Do While rdr.Read()
        arrCampo1.Add(rdr.Item("Campo1"))
    Loop
    rdr.Close()
    con.Close()

    Dim a() As String = arrCampo1.ToArray()


    Saludos, Javier J

    • Marcado como respuesta Rafael FM viernes, 28 de septiembre de 2018 10:27
    viernes, 28 de septiembre de 2018 8:55
  • Puedes usar un ArrayList y pasarlo a un array:

    Dim arrCampo1 As New ArrayList
    Dim com As New OleDbCommand
    Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;")
    com = New OleDbCommand("SELECT Campo1 FROM Tabla1 WHERE Campo1", con)
    con.Open()
    Dim rdr As OleDbDataReader
    rdr = com.ExecuteReader()
    Do While rdr.Read()
        arrCampo1.Add(rdr.Item("Campo1"))
    Loop
    rdr.Close()
    con.Close()

    Dim a() As String = arrCampo1.ToArray()


    Saludos, Javier J


    Gracias.

    Rafael FM

    viernes, 28 de septiembre de 2018 10:27