CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Problemas Al Listar Las Columnas De Una Bd

(1/1)

junahu:
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.
 :comp:

jodijo5:
realmente es un problema muy raro,   :huh: , porque no intentas con hacer una consulta así:
<!--sql--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>SQL </td></tr><tr><td id='CODE'><!--sql1-->[color=blue;font-weight]select[/color] idA, nombre, apellidos, telefono from miTabla <!--sql2--></td></tr></table><div class='postcolor'><!--sql3-->
si no funciona asi, pos, tons, no se que pueda ser, lo que si te recomiento, es que asi te salgan de "desorden", no las llames por el numero de columna, sino por el nombre de la columna que es diferente. B)


--- Código: Text --- For i = 0 To dt.Rows.Count - 1Me.ListBox1.Items.Add(dt.Rows(i).Item(&#34;apellidos&#34;).ToString)Nextconn.Close()  

Navegación

[0] Índice de Mensajes