Usando o BrEntityCrud

BrEntityCrud iniciou com o nome de EFContextoDB, trata-se de um pequeno frameworkinicialmente desenvolvido para ser utilizado com o MySQL.
O seu uso é bastante simples, estão disponíveis duas classes, conexao contexto.

O componente tomou formas depois que utilizei em aplicativos pessoais e após alguns testes resolvi compartilha-o com outros desenvolvedores, e assim poder melhorar algumas funcionalidades e claro quem tiver interesse em adota-lo fique à vontade.

Segue o link para download do componente e um exemplo de uso em vb.net:

[Download]

Abaixo um pequeno exemplo de uso em vb.net:

1º) Adicione as suas referências o arquivo: BrEntityCrud.dll
2º) Importar o namespace: imports BrEntityCrud

Exemplo1:

Class clientes
   'Os campos contidos nesta entidade devem ser identicos aos do banco de dados caso contrário
   'Causará uma excessão.
   Property id as integer
   Property nome as string
   Property foto as image
End class

Obs: Após criar o banco de dados tem um método disponível na classe contexto chamado 
CriarTabela, Ele cria uma tabela com o nome da classe ex: clientes e os campos campos 
correspondentes nesta classe inclusive o seu tipo de dados ficando de fora apenas o tamanho 
do campo. Caso não queira o nome da classe é possível configurar o nome no campo 
NomeTabela da classe contexto. desta forma ele ignora o nome da classe.

Sub salvar()
   'Abaixo a declaração do objeto que contem as informações necessárias para comunicação com 
   'o MySQL
   Dim con as new conexao("server=localhost;port=3306;database=nomebd;uid=root;password=123;")
   Dim ctx as new contexto
   ctx.db = con'
  
   Dim cli as new clientes
   cli.nome = "fulano da silva"
   cli.foto = picturebox1.image 'Não precisa converter a foto para salvar no banco de dados.
   ctx.salvar(cli)

   if cli.id > 0 then
       Msgbox("salvo com secesso!")
   Eles
       Msgbox("falhou !")
   End iF

End Sub

Sub Pesquisar()
   Dim con as new conexao("server=localhost;port=3306;database=nomebd;uid=root;password=123;")
   Dim ctx as new contexto
   Dim cli as new clientes

   ctx.db = con
   ctx.WhereCampo = "ID"

   cli.ID = 1 'Id referente ao registro manipulado.
   ctx.Selecionar(cli)

   if cli.ID > 0 then
       txt_COD.text =  cli.id
       txt_NOME.text = cli.nome
       picturebox1.image = cli.foto 'Não precisa converter a foto para ler do banco de dados.
   else
       Msgbox("Nenhum registro encontrado !")
   End if
End Sub

Exemplo2:
Com herança.

Class clientes
   inherits contexto
   Property id as integer
   Property nome as string
   Property foto as image
End class

Sub salvar()
   Dim con as new conexao("server=localhost;port=3306;database=nomebd;uid=root;password=123;")
   Dim cli as new clientes
   cli.db = con
    
   cli.nome = "fulano da silva"
   cli.foto = picturebox1.image
   cli.salvar

   if cli.id > 0 then 'O campo cli.id já retorna com o id do registro salvo.
       Msgbox("salvo com secesso!")
   Eles
       Msgbox("falhou !")
   End iF
End Sub

Sub Pesquisar()
   Dim con as new conexao("server=localhost;port=3306;database=nomebd;uid=root;password=123;")
   Dim cli as new clientes

   cli.db = con
   cli.WhereCampo = "ID"
   cli.ID = 1 'Id referente ao registro manipulado.
   cli.Selecionar

   if cli.ID > 0 then
       txt_COD.text =  cli.id
       txt_NOME.text = cli.nome
       picturebox1.image = cli.foto
   else
       Msgbox("Nenhum registro encontrado !")
   End if
End Sub

Dúvidas, Críticas e/ou sugestões serão bem vindas.

Exibições: 185

Comentar

Você precisa ser um membro de DevBrasil para adicionar comentários!

Entrar em DevBrasil

Comentário de Ewerson Felix Suênia Dias em 25 abril 2014 às 16:48

Compatível com MySQL e SQL Server por enquanto.

© 2017   Criado por Ramon Durães.   Ativado por

Badges  |  Relatar um incidente  |  Termos de serviço