Discussion :

[bouts]

Bonjour
j'ai essayer de me connecter avec mon serveur sql server avec la chaine de connexion suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Dim connectString As String = "database=expertise;server=192.168.1.162\BSA;Integrated Security=SSPI"

mais le message d'errur suivant s'affiche

echec de l'ouvertir de la session de l'utilisateur ..

si je change l'adresse ip pa le nom de la machine sa tourne

merci

[bouts]

voici mon code complet

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.Data.SqlClient
Public Shared Sub main()
        Dim ReadSQL As SqlDataReader
        Try
            'Chaîne de connexion
            Dim connectString As String = "database=expertise;server=192.168.1.162\BSA;Integrated Security=SSPI"
            'Objet connection
            Dim connexion As SqlConnection = New SqlConnection(connectString)
            'Ouverture
            Dim s As String
            connexion.Open()
              'objet commande
            s = "select* from employer"
            Dim cmd As SqlCommand = New SqlCommand(s, connexion)
            'objet reader
            ReadSQL = cmd.ExecuteReader
            Do While ReadSQL.Read()
                MsgBox(ReadSQL.GetValue(2))
            Loop
            connexion.Close()
        Catch ex As Exception
            'System.Diagnostics.Debug.WriteLine(ex.ToString())
            MsgBox(ex.Message)
        End Try
 
    End Sub

[mactwist69]

Quelle est la chaine de connexion quand tu utilises le nom de la machine...?

Et question bête, mais tu as dû checker de l'adresse ip j'imagine?

[bouts]

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.Data.SqlClient
Public Shared Sub main()
        Dim ReadSQL As SqlDataReader
        Try
            'Chaîne de connexion
            Dim connectString As String = "database=expertise;server=mamachine\BSA;Integrated Security=SSPI"
            'Objet connection
            Dim connexion As SqlConnection = New SqlConnection(connectString)
            'Ouverture
            Dim s As String
            connexion.Open()
              'objet commande
            s = "select* from employer"
            Dim cmd As SqlCommand = New SqlCommand(s, connexion)
            'objet reader
            ReadSQL = cmd.ExecuteReader
            Do While ReadSQL.Read()
                MsgBox(ReadSQL.GetValue(2))
            Loop
            connexion.Close()
        Catch ex As Exception
            'System.Diagnostics.Debug.WriteLine(ex.ToString())
            MsgBox(ex.Message)
        End Try
 
    End Sub