(Resolvido) Ler cada linha da tabela

[Matheus-vb6]

Ola pessoal....

Vou resumir bem...

Tenho que fazer uma impressao dos dados de cada linha da tabela....

exemplo: linha 1 - Matheus

linha 2 - Teste

só não sei como fazer o programa ler cada linha da tabela... eu gostaria de fazer com um do while...

alguém pode ajudar??

Abraços

Edited October 11, 2011 by Matheus-vb6

[kuroi]

q tabela é essa??

tabela do banco de dados?? tabela do word??

e você diz, imprimir na impressora mesmo??

se for uma tabela do banco de dados, selecione todas as linhas num recordset, e equanto não for .EOF, va usando o .MoveNext pra percorrer todas as linhas.

[Danleonhart]

Fala Matheus !

Você usa algo para gerar relatório ? tipo o Data Report ?

eu utilizo o Active Reports 2.0 p/ VB-6...nele gero os relatórios onde posso imprimir e também exportar para Excel, PDF, TXT e outros...

mas se for só para imprimir mesmo o Data Report que vem no VB-6 dá pra fazer...avisa aê que trocamos dicas...

VALEU !!!

[Matheus-vb6]

Acho que falei errado, seria uma lista... os valores da lista são obtivos pelo banco de dados, só n sei ler a lista... (listbox)

[Danleonhart]

Se você quer pegar todas as linhas da ListBox então pode ser assim:

Private Sub cmd1_Click()
Dim L As Integer

For L = 0 To List1.ListCount - 1
 MsgBox List1.List(L)
Next L

End Sub

Adapta para fazer o que deseja na parte onde tem o MsgBox... Se você quiser fazer apenas com a Linha selecionada na ListBox fica assim:

Private Sub cmd2_Click()
Dim L As Integer

For L = 0 To List1.ListCount - 1
  If List1.Selected(L) = True Then
   MsgBox List1.List(L)
  End If
Next L
End Sub

Dica:

Se você deixar a Propriedade do ListBox "MultiSelect = 2", poderá selecionar mais de uma linha...até mesmo alternada.

Qualquer coisa tamos aê !

VALEU !

[Matheus-vb6]

Funcionou cara :D, maldito For, um dia aprenderei kkkkk

Resolvido