Hola.
He estado pidiendo ayuda más de lo normal xD
Bueno tengo el siguiente problema.
Necesito obtener los nombres de los campos de unas tablas que tengo en un archivo de access (mdb).
El problema no es obtener los campos, sino que el resultado lo ordena de manera alfabética y los requiero como se encuentra en la tabla.
Estuve leyendo pero no logro conseguirlo.
Por ejemplo de esta tabla en access
CREATE TABLE Users
(
[ID] AUTOINCREMENT,
[Name] TEXT(50),
[LastName] TEXT(50),
[DateCreate] DATETIME
);
El resultado obtenido es DataCreate, ID, LastName, Name y lo necesito en el orden en como se encuentra en la tabla (ID, Name, LastName, DateCreate)
Intenté de esta forma. (un ejemplo pequeño)
*Supongamos que mi archivo se llama "Users.mdb" y además se encuentra en el directorio del proyecto por ejemplo "C:\Users\1mpuls0\Documents\Visual Studio 2010\Projects\ApplicationUsers\ApplicationUsers\bin\Debug\Users.mdb"
Imports System.Data.OleDb
Public Class Users
Dim fileName As String = "Users.mdb"
Dim stringConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & fileName
Private Sub Users_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim connectionFields As New System.Data.OleDb.OleDbConnection(stringConnection)
connectionFields.Open()
Dim dataTable As DataTable = connectionFields.GetOleDbSchemaTable(OleDbSchemaGuid.Columns, New Object() {Nothing, Nothing, "Users", Nothing})
dataTable.DefaultView.Sort = "ORDINAL_POSITION"
Dim columns(dataTable.Rows.Count - 1) As String
For fieldNumber As Integer = 0 To dataTable.Rows.Count - 1
columns(fieldNumber) = dataTable.Rows(fieldNumber)(3)
MessageBox.Show(columns(fieldNumber))
Next
End Sub
End Class
También lo he intentado de esta forma. Pero obtengo el mismo resultado :'/
Imports System.Data.OleDb
Public Class Users
Dim fileName As String = "Users.mdb"
Dim stringConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & fileName
Private Sub Users_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim connectionFields As New System.Data.OleDb.OleDbConnection(stringConnection)
Dim str2$(0)
connectionFields.Open()
Dim dataTable As DataTable = connectionFields.GetOleDbSchemaTable(OleDbSchemaGuid.Columns, New Object() {Nothing, Nothing, "Users", Nothing})
Dim columns(dataTable.Rows.Count - 1) As String
For fieldNumber As Integer = 0 To dataTable.Rows.Count - 1
ReDim Preserve str2(fieldNumber)
str2(fieldNumber) = dataTable.Rows(fieldNumber)!COLUMN_NAME.ToString
MessageBox.Show(str2(fieldNumber))
Next
End Sub
End Class
Alguien sabe como puedo hacerlo?.
Solución:Imports System.Data.OleDb
Public Class Users
Dim fileName As String = "Users.mdb"
Dim stringConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & fileName
Private Sub Users_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim connectionFields As New System.Data.OleDb.OleDbConnection(stringConnection)
connectionFields.Open()
Dim dataTable As DataTable = connectionFields.GetOleDbSchemaTable(OleDbSchemaGuid.Columns, New Object() {Nothing, Nothing, "Users", Nothing})
Dim DataRowArray() As DataRow = dataTable.Select(Nothing, "ORDINAL_POSITION", DataViewRowState.CurrentRows)
For Each dr As DataRow In DataRowArray
MsgBox(dr.Item("COLUMN_NAME"))
Next
End Sub
End Class
Llevaba algunos días con este tema. Me costó 2 y la mitad del otro xD
Gracias
Mostrar Mensajes
