Usando o controle DataRepeater

Usando o controle DataRepeater no VB 6.0

Você sabia que no VB 6.0 existe um controle chamado DataRepeater ? Não sabia ? Então ficou sabendo agora ....

Para que serve este desconhecido ? Bem , ele converte qualquer controle ActiveX em um controle de Grade ou sub formulário que você pode repetir no seu formulário. Com o DataRepeater você pode usar um controle ActiveX (até um que você mesmo criou ) e, sem ter uma relação de um para muitos exibir uma relação dos controles vinculados aos dados que escolheu para exibir. Entendeu ???

Bem , as vezes falar não ajuda muito , então vamos mostrar....

Vamos usar o DataRepeater para exibir o código e o nome dos autores da tabela Authors do banco de dados Biblio.mdb ( oh saco de pancadas...). Para fazer isto iremos nós mesmos criar um controle ActiveX e vincular os dados ao DataRepeater. Mãos a obra...

Criando o Controle ActiveX

Se você ainda tem dúvidas sobre como criar controles ActiveX leia : Criando Controles ActiveX I e II .

Inicie um projeto do tipo controle ActiveX no VB
Altere o nome do Construtor Usercontrol ( controle do usuário ) para ListaAutores e salve o projeto com o nome de AutorCtrl.
No construtor Usercontrol , crie duas caixas de texto para representar os campos Au_Id (código ) e Author ( nome do autor ). Veja abaixo a aparência do projeto:

A seguir crie os procedimentos de propriedade publicos para o controle correspondentes as caixas de texto e aos campos que desejamos exibir. O código é exibido a seguir:

Option Explicit

Public Property Get au_id() As Integer
    au_id = txtau_id
End Property
Public Property Let au_id(ByVal intnew As Integer)
   txtau_id = intnew
   PropertyChanged "au_id"
End Property

Public Property Get Author() As String
     Author = txtauthor.Text
End Property
Public Property Let Author(ByVal strnew As String)
    txtauthor.Text = strnew
    PropertyChanged "Author"
End Property

Agora marque os procedimentos de propriedade criados como vinculados aos dados. Para isto selecione no menu Tools | Procedure Attributes e clique no botão Advanced>>
Agora indique que ambas as propriedades : au_id e Author tem o reconhecimento de dados clicando no quadro de seleção "Property is data-bound" e selecionando o quadro "Show in DataBindings Collection at design Time". Veja figura abaixo:

Agora vamos compilar nosso controle. Selecione no menu File|Make AutorCtrl.ocx..

Montando o Projeto com o DataRepeater

Agora vamos criar um novo projeto padrão ( Standard EXE ) para usar o controle DataRepeater com nosso controle ActiveX - AutorCtrl.ocx.

Inicie um novo projeto padrão no VB
Faça uma referência na caixa de diálogo Project|Components a Microsoft DataRepeater Control 6.0 (OLEDB)
Crie uma instância do controle no formulário padrão.
Na propriedade RepeatedControlName do controle DataRepeater , selecione o nome de controle que criamos - AutorCtrl.ocx. Se você fez tudo certo o controle será exibido mais vezes no controle DataRepeater. Veja abaixo:

Agora insira um construtor DataEnvironment conectado ao banco de dados Biblio.mdb.( Para saber como usar o DataEnvironment leia : Usando o DataEnvironment Designer )
Atribua a propriedade DataSource do DataRepeater ao nome do construtor DataEnvironment. Atribua o nome DataMember do controle a tabela Authors.
Clique com o botão direito do mouse em DataRepeater e na caixa de diálogo de propriedades e clique na ficha RepeaterBindings . No quadro combo PropertyName selecione au_id e a seguir o nome do campo que deseja vincular (Au_ID) repetindo para cada propriedade e campo a ser exibido.
Clique no botão Add
Finalmente execute a aplicação. Veja o resultado abaixo:

Você não precisa necessariamente usar um controle de sua autoria com o DataRepeater, pode usar qualquer controle com reconhecimento de dados. O controle MaskedEdit é um deles.... Entendeu agora ????

Acabei...