Hola amigos, intento listar las columnas de una tabla de una Base de Datos, y me la lista pero me la deja alfabéticamente, en vez de como están en la tabla de acces.
Si la BD es Bases1 y la Tabla es miTabla con columnas: idA, nombre, apellidos, telefono, al listar en un ListBox me las deja: apellidos, ipA, nombre, telefono en vez de como las cree al principio.
El código utilizado es:
''****************************************** Dim dato As String
Dim i As Integer = 0
dato = miTabla
If conn.State = ConnectionState.Closed Then
conn.Open()
End If
'
dt = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Columns, New Object() {Nothing, Nothing, dato})
For i = 0 To dt.Rows.Count - 1
Me.ListBox1.Items.Add(dt.Rows(i).Item(3).ToString)
Next
conn.Close()
''******************************************y también puedo obtener el mismo resultado utilizando DataView con:
''****************************************** Dim dw As New DataView
Dim drw As DataRowView
dw = dt.DefaultView
For Each drw In dw
Me.ListBox1.Items.Add(drw(3) & " - Nº: " & drw(6))
Next
''******************************************Si me podéis ayudar a que las liste como quiero os lo agradezco, por que le estoy dando bueltas y algo amo mal, por que no lo consigo.
