IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Windows Forms Discussion :

3tiers en vb.net (documentation)


Sujet :

Windows Forms

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Mars 2008
    Messages
    12
    Détails du profil
    Informations personnelles :
    Âge : 41
    Localisation : France

    Informations forums :
    Inscription : Mars 2008
    Messages : 12
    Par défaut 3tiers en vb.net (documentation)
    salut
    est ce que quelqu'un connait des liens traitant l'architecture 3tiers(client,serveur,serveur base de données) en vb.net
    tous les codes que j'ai trouvés sont relatifs au client serveur
    j'ai voulu appliquer sur 3tiers mais ça n'as pas marché

    mercii

  2. #2
    Membre averti
    Profil pro
    Inscrit en
    Mars 2008
    Messages
    12
    Détails du profil
    Informations personnelles :
    Âge : 41
    Localisation : France

    Informations forums :
    Inscription : Mars 2008
    Messages : 12
    Par défaut
    ok, je reformule ma question peut ça vous intéressera plus et vous me répondrez

    je veux réaliser une application en 3 couches(client+serveur+serveur BD), et les deux couches serveur et serveur BD ont chacune une interface, elles ne sont pas accédées directement

    selon les bouts de codes que j'ai trouvés concernant l'architecture 2tiers
    il y a code qui s'écrit côté serveur
    <code>
    Try
    ' Création d'un nouveau canal d'écoute sur le port 1069
    Dim channel As TcpChannel = New TcpChannel(1069)
    ' Enregistrement du canal
    ChannelServices.RegisterChannel(channel)
    ' Démarrage de l'écoute en exposant l'objet en Singleton
    RemotingConfiguration.RegisterWellKnownServiceType(GetType(RemoteOperation), _
    "RemoteOperation", WellKnownObjectMode.Singleton)
    Console.WriteLine("Le serveur a démarré avec succés")
    Console.ReadLine()
    Catch
    Console.WriteLine("Erreur lors du démarrage du serveur")
    Console.ReadLine()
    End Try
    </code>



    et un au côté client
    <code>
    Dim remoteOperation As RemotingInterfaces.IRemoteOperation
    Dim channel As TcpChannel = New TcpChannel
    ChannelServices.RegisterChannel(channel)
    remoteOperation = CType(Activator.GetObject(GetType(RemotingInterfaces.IRemoteOperation), _
    "tcp://localhost:1069/RemoteOperation"), RemotingInterfaces.IRemoteOperation)
    Catch
    MessageBox.Show("Erreur de connexion au serveur")
    End Try
    </code>


    RemotingInterfaces:projet de dll contenant l'interface IRemoteOperation
    RemoteOperation :classe dans le projet du serveur qui implémente l'interface






    pour le moment ça va
    j'ai voulu appliquer ce qui précède pour l'architecture 3tiers
    j'ai écrit le code 1 dans le projet BD
    le code 2 dans le projt client
    les deux codes dans le projet srv :car il va jouer le client du srvBD et le serveur des clients


    à l'exécution un seul channel s'ouvre(le premier qui s'exécute)

    svp heeeeeeeeeelp

  3. #3
    Membre confirmé Avatar de saraenim
    Profil pro
    Inscrit en
    Octobre 2007
    Messages
    83
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2007
    Messages : 83
    Par défaut
    salut,
    je pense que tu aurai dû utiliser un icpserverchanel et un icpclient chanel c mieu
    j'aivais le même probléme que toi et j'ai reéuissi à le résoudre
    voici le code source
    côté BD

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    Imports System
    Imports System.Collections
    Imports System.Runtime.Remoting
    Imports System.Runtime.Remoting.Activation
    Imports System.Runtime.Remoting.Channels
    Imports System.Runtime.Remoting.Channels.Tcp
    Imports System.Runtime.Remoting.Channels.Tcp.TcpClientChannel
    Imports System.MarshalByRefObject
    Imports accées_métier
    Public Class main_BD
     
     
        <STAThread()> _
        Public Shared Sub Main(ByVal args() As String)
            Try
                ' Création d'un nouveau canal d'écoute sur le port 1069
                Dim channel As TcpClientChannel = New TcpClientChannel()
                ' Enregistrement du canal
                ChannelServices.RegisterChannel(channel, True)
     
                ' Démarrage de l'écoute en exposant l'objet en Singleton
                RemotingConfiguration.RegisterActivatedClientType(GetType(acces_connection.interface_connection), _
              "Accées connection")
                Console.WriteLine("La Base de Données a démarré avec succés")
                Console.ReadLine()
            Catch
                Console.WriteLine("Erreur lors du démarrage de la BD")
                Console.ReadLine()
            End Try
            '--------------------------------------------------------------------------------------------------------------
     
     
     
        End Sub
     
    End Class
    Côté serveur

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    Imports System
    Imports System.Collections
    Imports System.Runtime.Remoting
    Imports System.Runtime.Remoting.Channels
    Imports System.Runtime.Remoting.Channels.Tcp
    Imports System.Runtime.Remoting.Channels.Tcp.TcpServerChannel
    Imports System.MarshalByRefObject
    Public Class main_serveur
     
     
     
        <STAThread()> _
     Public Shared Sub Main(ByVal args() As String)
            Try
                ' Création d'un nouveau canal d'écoute sur le port 1069
                Dim channel As Tcp.TcpServerChannel = New Tcp.TcpServerChannel(1069)
                ' Enregistrement du canal
                ChannelServices.RegisterChannel(channel, True)
                ' Démarrage de l'écoute en exposant l'objet en Singleton
                RemotingConfiguration.RegisterWellKnownServiceType(GetType(accées_métier.admin), _
                "Accées Serveur", WellKnownObjectMode.Singleton)
                Console.WriteLine("Le serveur a démarré avec succés")
                Console.ReadLine()
            Catch
                Console.WriteLine("Erreur lors du démarrage du serveur")
                Console.ReadLine()
            End Try
     
     
            '--------------------------------------------
            Try
     
                Dim a As acces_connection.interface_connection
                Dim channel1 As TcpChannel = New TcpChannel
                ChannelServices.RegisterChannel(channel1, True)
                a = CType(Activator.GetObject(GetType(acces_connection.interface_connection), _
                "tcp://localhost:1069/Serveur"), acces_connection.interface_connection)
     
            Catch
     
                MsgBox("Erreur de connexion au serveur")
     
            End Try
     
        End Sub
     
    End Class
    la prochaine fois utilise la balise code pourque ton code puisse être remarqué

    " # "

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Architecture 3tiers avec vb.net
    Par terminal001 dans le forum Général Dotnet
    Réponses: 1
    Dernier message: 21/04/2008, 18h24
  2. [VB.NET] Documentation DirectVoice
    Par Franck777 dans le forum Visual Studio
    Réponses: 2
    Dernier message: 13/10/2006, 02h45
  3. [VB.NET] Document XML
    Par leSeb dans le forum Windows Forms
    Réponses: 6
    Dernier message: 10/02/2006, 14h46
  4. [VB.NET] documentation comme javadoc ?
    Par lucie.houel dans le forum ASP.NET
    Réponses: 3
    Dernier message: 13/09/2005, 16h17
  5. [.NET] Génération d'un document XML
    Par bart64 dans le forum XML/XSL et SOAP
    Réponses: 2
    Dernier message: 31/05/2005, 13h56

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo