Visual Basic - Mostrar los nombres de los campos de la tabla

Life is soft - evento anual de software empresarial
 
Vista:

Mostrar los nombres de los campos de la tabla

Publicado por Juan Carlos (24 intervenciones) el 22/04/2006 09:58:34
Hola a tod@s,
Quisiera mostrar en un listview los nombres de los campos de una tabla de Sql Server, pero no se me ocurre nada.
En Access si lo que he llegado a hacer, pero no se si se puede hacer con Sql.
Agradeceria que si se puede hacer que me dejarais un ejemplo.

Muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Mostrar los nombres de los campos de la tabla

Publicado por Cecilia Colalongo (3116 intervenciones) el 22/04/2006 15:05:39
Con ADOX, sería:

Dim objCatalog As Catalog, objTable As Table, objColumn As Column

Set objCatalog = New Catalog
Set objCatalog.ActiveConnection = TuObjetoConnectionADO

Set objTable = objCatalog.Tables.Item("MiTabla")

For Each objColumn In objTable.Columns
Debug.Print objColumn.Name
Next

Con OpenSchema de ADO:

Set objRecordset = TuObjetoConnection.OpenSchema(adSchemaColumns,Array(Empty,Empty,"MiTabla"))
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Mostrar los nombres de los campos de la tabla

Publicado por JUAN CARLOS (24 intervenciones) el 22/04/2006 17:21:54
Gracias por responder.
Yo utilizo adodb
Podrias explicarme un poco como seria con el openschema de ado??
Una vez inicializo el recordset cómo tu me indicas, como podria poner los nombres de los campos en un listview??

Muchas gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Mostrar los nombres de los campos de la tabla

Publicado por JUAN CARLOS (24 intervenciones) el 22/04/2006 17:44:30
Ya lo he conseguido.
Gracias de todas formas.
Os dejo el código:

Set rsDatos = CnnSqlServer.OpenSchema(adSchemaColumns, Array(Empty, Empty, "Nombre de la tabla"))

Do Until rsDatos.EOF
For i = 0 To rsDatos.RecordCount - 1
List1.AddItem rsDatos!column_NAME, i
rsDatos.MoveNext
Next i
Loop
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar