3tiers en vb.net (documentation)

Version imprimable

06/04/2008, 15h19
terminal001

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
07/04/2008, 00h20
terminal001

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

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 :mrgreen:
voici le code source
côté BD

Code:

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:

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é

" # "