Discussion :

[saraenim]

salut,
j'ai un probléme dans l'ouverture en paralléle de mon SGBD( sql server 2000) et mon serveur
moi j'ai besoin que les deux s'ouvrent en même temps mais lors de l'exécution je ne peux ouvrir que l'un des deux sachant que je travail sous SQL server 2000 et VB.net
voici le code du main de la console 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
 
imports System
Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting.Channels.Tcp
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 TcpChannel = New TcpChannel(1069)
            ' Enregistrement du canal
            ChannelServices.RegisterChannel(channel, True)
            ' Démarrage de l'écoute en exposant l'objet en Singleton
            RemotingConfiguration.RegisterWellKnownServiceType(GetType(acces_connection.interface_connection), _
    "Accées connection", WellKnownObjectMode.Singleton)
            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

et celui du main de la console du 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
 
Imports System
Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting.Channels.Tcp
 
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 34
            Dim channel As TcpChannel = New TcpChannel(34)
            ' 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
    End Sub
 
End Class

je sais pas c'est quoi la faute( personnelement je pense que la faute est dans le choix du port : moi je travail en full duplex)
NB:

• quand j'éxécute c'est celui que j'appel en premier qui se connecte et l'autre m'affiche impossible de s'ouvrir
• je travaille avec une architecture 3 tiers et tous les exemples de remoting que j'ai trouvé sont du type 2 tiers et quand j'ai voulu l'appliqué ça ne fonctionne pas

merci d'avance

[saraenim]

c'était un vrai casse tête mais j'ai trouver la solution voila le code
coté Base de données

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
 
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
48
49
 
 
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

peut être qu'un jour quelqu'un aura le même probléme
Ciao