• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Ricardo999

[vb6] Buscar dados a bd e colocar como caption no command button

2 mensagens neste tópico

boas...

Estou a fazer um projecto e no qual tenho um array de command button, e gostaria de colocar com caption desses commands os dados que estao na base de dados...Ja consegui colocar num botao um dado com este codigo:

Private Sub Form_Activate()

Dim msg As String

msg = "select nomeproduto from aperitivos "

Adodc1.RecordSource = msg

Adodc1.Refresh

Command1(0).Caption = Adodc1.Recordset.Fields("nomeproduto").Value

Adodc1.Refresh

End Sub

agora gostaria de colocar o resto dos produtos no resto dos botoes....Aguardo uma resposta.... ;):thumbsup:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Usas o seguinte código:

Private Sub Form_Activate()
    Dim msg As String
    msg = "select nomeproduto from aperitivos"
    Adodc1.RecordSource = msg
    Adodc1.Refresh
    For I = 0 To Adodc1.Recordset.RecordCount - 1
        Command1(I).Caption = Adodc1.Recordset.Fields("nomeproduto").Value
        Adodc1.Recordset.MoveNext
    Next
    Adodc1.Refresh
End Sub

Cumps :D

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora