Extraer tamaño campo Access
Publicado por David (9 intervenciones) el 20/10/2011 14:34:37
Hol@,
Me gustaria extraer la definición de los campos de mi BD de Access.
Tengo una rutina en VB.net 2008 que me recupera los nombres, tipos, etc... Pero no se como puedo ver el tamaño de un campo texto, es decir si el tamaño es de 50, 100 o 2000 caracteres.
Aqui os pongo mi rutina que me muestra el nombre de los campos.
Dim ds As DataSet
ds = New DataSet()
Dim cm As OleDbCommand
cm = New OleDbCommand("SELECT * FROM MIGRACION WHERE 1=1", sconexion)
Dim da As OleDbDataAdapter
da = New OleDbDataAdapter(cm)
da.Fill(ds)
RTxtDatos.Text = ""
Dim i As Integer
For i = 0 To ds.Tables(0).Columns.Count - 1
Me.Lista.Items.Add(ds.Tables(0).Columns(i).ColumnName & vbTab & ": " & ds.Tables(0).Columns(i).DataType.ToString)
Next
Muchas gracias.
David
Me gustaria extraer la definición de los campos de mi BD de Access.
Tengo una rutina en VB.net 2008 que me recupera los nombres, tipos, etc... Pero no se como puedo ver el tamaño de un campo texto, es decir si el tamaño es de 50, 100 o 2000 caracteres.
Aqui os pongo mi rutina que me muestra el nombre de los campos.
Dim ds As DataSet
ds = New DataSet()
Dim cm As OleDbCommand
cm = New OleDbCommand("SELECT * FROM MIGRACION WHERE 1=1", sconexion)
Dim da As OleDbDataAdapter
da = New OleDbDataAdapter(cm)
da.Fill(ds)
RTxtDatos.Text = ""
Dim i As Integer
For i = 0 To ds.Tables(0).Columns.Count - 1
Me.Lista.Items.Add(ds.Tables(0).Columns(i).ColumnName & vbTab & ": " & ds.Tables(0).Columns(i).DataType.ToString)
Next
Muchas gracias.
David
Valora esta pregunta
0