dataSet - dataTable

[Adolfiten]

Código:

Dim conectora As New Conectoras.ConexionMySQL
Dim ds As New DataSet

ds = conectora.EjecutarSQL("SELECT * FROM persona")

Dim dt As New DataTable
dt = ds.Tables(0)

Dim dtc As New DataColumn   'INSTANCIO LA NUEVA COLUMNA A AGREGAR
dtc.ColumnName = "EDAD"      'LE PONGO NOMBRE A LA COLUMNA

dt.Columns.Add(dtc)                'LA AGREGO A LA TABLA

'AHORA PARA FIJARME DE QUE SE HAYA AGREGADO BIEN IMPRIMO LA CANTIDAD
'DE CAMPOS DE LA TABLA. SI SE AGREGO BIEN DEBERIA HABER UN CAMPO MAS,
'SINO VA A IMPRIMIR LA CANTIDAD DE CAMPOS DE LA TABLA PERSONA QUE 
'ESTA EN LA DB

MsgBox("CANTIDAD DE CAMPOS DE TABLA: " & dt.Columns.Count)