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

mprim

[vb6] combo box e base de dados

1 mensagem neste tópico

boas pessoal, tenho uma base de dados access numa aplicação que é controlada através de um data control.

nessa base de dados existe uma tabela com o nome de cartao, que por sua vez possui 735 dados.

o que eu gostava de saber era como passar os 735 nomes dos individuos para uma combo box sem ser atraves do combo1.additem ......

até porque nem isso era suportado, dizia logo: too many lines ou qualquer coisa do genero

ah, e quando escolhesse o nome na combo, automaticamente aparecessem os dados do individuo

o code que tenho pra fazer a procura de dados é este: (procura por numero do registo)

Private Sub procnum_Click()

Dim criterio As String

Dim sql_procurar As String

If Data1.Recordset.RecordCount = 0 Then

    MsgBox "Não Existem Registos!", vbInformation, "GestOld 1.0"

Else

    criterio = InputBox("Procurar por Número de Utente", "Procurar Utente")

    b = Data1.Recordset.Bookmark

    If criterio <> Empty Then

        a = "ncartao='" & criterio & "'"

        Data1.Recordset.FindFirst (a)

        If Data1.Recordset.NoMatch Then

           Data1.Recordset.Bookmark = b

           MsgBox "O Utente que introduziu não se encontra registado!", vbInformation, "GestOld 1.0"

        End If

        If Data1.Recordset.RecordCount = 0 Then

        End If

     End If

End If

End Sub

e este procura pelo nome:

Private Sub procnome_Click()

       

Dim criterio As String

Dim sql_procurar As String

If Data1.Recordset.RecordCount = 0 Then

    MsgBox "Não Existem Registos!", vbInformation, "GestOld 1.0"

Else

    criterio = InputBox("Procurar por Nome de Utente", "Procurar Utente")

    b = Data1.Recordset.Bookmark

    If criterio <> Empty Then

        a = "nome='" & criterio & "'"

        Data1.Recordset.FindFirst (a)

        If Data1.Recordset.NoMatch Then

           Data1.Recordset.Bookmark = b

           MsgBox "O Utente que introduziu não se encontra registado!", vbInformation, "GestOld 1.0"

        End If

        If Data1.Recordset.RecordCount = 0 Then

        End If

     End If

End If

End Sub

alguma ajuda? :D

obrigado

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