Estaba tratando de obtener una lista de campos de una vista de una base de datos sqlite pero los métodos "tradicionales" no funcionan, es decir a la vista no la puedo tratar como tabla para hacer tabla.fields, así que explore otras posibilidades y logre obtener la dichosa lista de campos, pero creo que encontré una manera de hacerlo independiente del motor de bases de datos.
De momento lo probé solo con sqlite, pero si alguien que usa otro motor lo puede probar seria interesante saber que funciona.
Public Function ResFieldsList(conDB As Connection, strTable As String) As String[]
Dim stxFields As New String[]
Dim resFields As Result
Dim frdField As ResultField
stxFields.Clear
resFields = conDB.Exec("select * from " & strTable)
For Each frdField In resFields.Fields
stxFields.Add(frdField.Name)
Next
Return stxFields
End
Dim stxFields As New String[]
Dim resFields As Result
Dim frdField As ResultField
stxFields.Clear
resFields = conDB.Exec("select * from " & strTable)
For Each frdField In resFields.Fields
stxFields.Add(frdField.Name)
Next
Return stxFields
End
Saludos.
Albacete
