Interfacce e DataTable tipizzati

Public Class Clienti
    Inherits CollectionBase

    Private _adapter As AdapterClienti

    Sub New()
        _adapter = New AdapterClienti
        Popola()
    End Sub

    Private Sub Popola()
        For Each cl As ICliente In _adapter.GetClienti
            Dim c As Cliente = New Cliente(CType(cl,ICliente))
            Me.List.Add(c)
        Next
    End Sub
End Class

Public Interface IClienti
    Function GetClienti() As ICliente()
End Interface

Public Class AdapterClienti
    Implements IClienti
    ...
    Public Function GetClienti() As ClientiDB Implements IClienti.GetClienti
      ...
    End Function
    ...
End Class

  public class Ordine
  {
      public string Tipo { get; set; }
      public int Numero { get; set; }
      public string CodiceCliente { get; set; }
      ....
  }

        
public class OrdineDataProvider
{
        public IList<Ordine> GetTutti()
        {
                List<Ordine> ordini = new List<Ordine>();
                using (SqlConnection conn = new SqlConnection(...))
                {
                    SqlCommand cmd = conn.CreateCommand();
                    cmd.CommandText = "SELECT tipologia,numero,codiceCliente...FROM...";
                     
                    conn.Open();
                    DbDataReader rd = cmd.ExecuteReader();
                    while (rd.Read())
                        ordini.Add(BuildOggetto(rd));
                }
             
               return ordini; 
       }


       protected Ordine BuildOggetto(IDataRecord rd)
        {
            Ordine ordine = new Ordine();
            ordine.Tipo                = Convert.ToString(rd["tipologia"]);
            ordine.Numero           = Convert.ToInt32(rd["numero"]);
            ordine.CodiceCliente  = Convert.ToString(rd["codiceCliente"]);
            ....
            return ordine;
       }

 Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra

Public Class Clienti
    Inherits CollectionBase

    Private _provider As IClienti

    Sub New()
        _provider = New IClienti <---PROBLEMA!!!
        Popola()
    End Sub

    Private Sub Popola()
        For Each cl As ICliente In _Provider.GetClienti
            Dim c As Cliente = New Cliente(CType(cl, ICliente))
            Me.List.Add(c)
        Next
    End Sub
End Class

    internal class FactoryProvider
    {
        static IDataProviderFactory factory;
        static FactoryProvider()
        {
            string nome = "NomeAssembly";
            Assembly assembly = Assembly.Load(nome);
            factory = (IDataProviderFactory)assembly.CreateInstance(nome + 
                                                    ".DataProviderFactory"); 
        }

        internal static IArticoloDataProvider GetArticoloDataProvider()
        {
            return factory.GetAccountDataProvider();
        }
        ....

   public class DataProviderFactory : IDataProviderFactory
    {

        public virtual IArticoloDataProvider GetArticoloDataProvider()
        {
            return new ArticoloDataProvider();
        }
          ...
          tutti i metodi che servono a farti tornare le istanze reali
          dei vari DataProvider che mi serve
          ....
    }

   public class ArticoloDataProvider : IArticoloDataProvider 
    {
       ...

>P.S.: Non c'è problema per C# Grazie!!!

Public Interface ICliente
    ReadOnly Property Codice() As String
    ReadOnly Property RagioneSociale() As String
    ReadOnly Property Indirizzo() As String
    ReadOnly Property PartitaIVA() As String
    '... ecc...
End Interface

Public Interface IClienti
    Function GetClienti() As List(Of MyCommon.ICliente)
    '...ecc...
End Interface

 Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra

 Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra

Public Class Cliente
    Private _cliente As MyCommon.ICliente

    Public Sub New(ByVal cli As MyCommon.ICliente)
        _cliente = cli
    End Sub

    Public ReadOnly Property Codice() As String
        Get
            Return _cliente.Codice.ToString.Trim
        End Get
    End Property

    Public ReadOnly Property RagioneSociale() As String
        Get
            Return _cliente.RagioneSociale.ToString.Trim
        End Get
    End Property
    '... ecc...
End Class

Public Class Clienti
    Inherits CollectionBase

    Private _adapter As List(Of MyCommon.ICliente)

    Sub New()
        Try
            _adapter = (New MyCommon.MyFactoryClienti).GetClienti '<---QUI USO IL FACTORY
        Catch ex As Exception
            Throw ex
        End Try
        Popola()
    End Sub

    Private Sub Popola()
        For Each cl As MyCommon.ICliente In _adapter
            Me.List.Add(New Cliente(CType(cl, MyCommon.ICliente)))
        Next
    End Sub
    '... ecc...
End Class

Public Class MyForm
    Dim bs As BindingSource

    Private Sub MyForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            Dim cc As Clienti = New Clienti
            bs = New BindingSource
            bs.DataSource = cc
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

        dgv.DataSource = bs
    End Sub
    '... ecc...
End Class

 Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra