Dbgrid

[Guest - Gustavo -]

Olá pessoal,

Sou estagiário em um empresa e necessito fazer que um DBGrid seja populado por um loop, mas não estou conseguindo. Se vc´s puderem me ajudar eu agradeço.

O fonte está mais ou menos assim:

Set rs = conexao.Execute(teste)

i = 1

While Not rs.EOF

'dbGridNaoProc.text = rs.Fields("cod_oc")

rs.MoveNext

i = 1 + 1

Wend

[Guest - Gustavo -]

Olá pessoal,

Sou estagiário em um empresa e necessito fazer que um DBGrid seja populado por um loop, mas não estou conseguindo. Se vc´s puderem me ajudar eu agradeço.

O fonte está mais ou menos assim:

Set rs = conexao.Execute(teste)

i = 1

While Not rs.EOF

'dbGridNaoProc.text = rs.Fields("cod_oc")

rs.MoveNext

i = 1 + 1

Wend

Ninguém sabe???

[cassitos]

preencher DBGrid manualmente, se não me engano, não dá.

Ele é apropriado para conexão via DataControl por Exemplo.

Um que você pode preencher manualmente é o FlexGrid.

[Graymalkin]

Set rs = conexao.Execute(teste)

Pelo código pude notar que você está utilizando ADO. No entanto, a DBGrid só é utilizável com DAO. Para o ADO utiliza-se (geralmente) a DataGrid e atribuindo-se o recordset à propriedade DataSource da mesma:

set datagrid1.datasource = rs

Para o preenchimento manual, faça como o cassitos falou, ou seja, usando a FlexGrid.

Abraços,

Graymalkin