Lendo colunas de uma tabela

[Lilian B 0]

Boa tarde!

 

Preciso de ajuda no seguinte:

Faço uma pesquina no banco e são retornados registros, mas o que eu quero é que ele passe para ler de coluna a coluna (Campo) ao invés de linha a linha (registros).

 

Como fazer?

 

Valeu http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[cassitos 2]

Se você estiver utilizando ADO para trabalhar com banco de dados, você pode utilizar o objeto Field (ADODB.Field) ex:

Dim Banco As New ADODB.Connection

Dim RsResultado As New ADODB.Recordset

Dim Campo As ADODB.Field

 

Banco.CursorLocation = adUseClient

Banco.Open "DSN=DBTESTE"

 

RsResultado.Open "SELECT * FROM usuario", Banco

Text1.Text = ""

For Each Campo In RsResultado.Fields

Text1.Text = Text1.Text + "Nome do campo: " + Campo.Name + vbCrLf

Next

RsResultado.Close

Banco.Close

Desta forma você consegue passar em cada campo.

;)