Generic Dal in WCF using VB.NET

In this article I would just give a tip on how to improve on the Generic DAL which we just finished in this Series . I already posted the C# code of the Service Layer.

To see: http://www.c-sharpcorner.com/Authors/Mahadesh/mahadesh-mahalingappa.aspx

For Visual Basic Guys I am doing it now .

Though the Generic DAl which we had designed worked well. We still were not able to create a 100% Generic Solution in the previous article . Inorder to achieve a 100% Generic Method , We need to take the Help of Reflection . We would need to call the method CreateObjectSet using Reflection .

This is how the Service Layer needs to be modified .

Imports GenericDAL
Imports System.Data.Objects
Imports System.Reflection

' NOTE: You can use the "Rename" command on the context menu to change the class name "Service1" in code, svc and config file together.

Public Class Service1
    Implements IService1
     Public Function [Get](ByVal entity As TEntity) As TEntity Implements IService1.Get
        Dim x1 As IEnumerable(Of TEntity) = GetObjectSet(entity)
        Return x1.First()
   End Function

     Public Function GetObjectSet(ByVal entity As TEntity) As Object
        Dim context As New MCSEntities()
        Dim typeArgs As Type() = {ObjectContext.GetObjectType(entity.[GetType]())}
        Dim typObjectContext As Type = context.[GetType]()
        Dim NoParams As Type() = {}
        Dim meth As MethodInfo = typObjectContext.GetMethod("CreateObjectSet", NoParams)
        Dim methGeneric As MethodInfo = meth.MakeGenericMethod(typeArgs)
          Return methGeneric.Invoke(context, Nothing)
    End Function
End Class 
 

The Service Contract Looks as below :
 

Imports GenericDAL
<ServiceContract()>
Public Interface IService1  
    <OperationContract()> _
    Function [Get](ByVal entity As TEntity) As TEntity
End Interface  
The TEntity Class looks as below :
Imports System.Runtime.Serialization
Imports System.Data.Objects.DataClasses
<KnownType(GetType(MCS_CR_Company))> _
<KnownType(GetType(MCS_CR_Product))> _
<Serializable()> _
<DataContractAttribute(IsReference:=True)> _
Public Class TEntity
    Inherits EntityObject
End Class

Client Code :

Imports Client.DataServiceReference
Module Module1
      Sub Main()
        Dim client As New Service1Client()  
        Dim entity As TEntity = New Article()
      Dim company As TEntity = client.Get(entity)
          Console.ReadKey()
      End Sub
End Module

I will soon try to post the Entire project . Till then happy Coding .