Discussion :

[LJL51]

Bonjour,

Je n'arrive pas à me connecter à SQL Server via Visual Basic 2008 Express Edition.

Voici ma ConnectionString :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Imports System.Data
Imports System.Data.SqlClient
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim MyConnexion As SqlConnection = New SqlConnection("Server=localhost;Trusted_Connection=Yes;Database=Archives; ")
        MyConnexion.Open()
        ...
    End Sub
    ...
End Class

Dans le fichier app.Config connectionString est comme ceci:

Code :

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

1
2
3
4
5
<connectionStrings>
        <add name="Base_de_données.My.MySettings.ArchivesConnectionString"
            connectionString="Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Archives.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"
            providerName="System.Data.SqlClient" />
    </connectionStrings>

Quang je débogue mon projet la ligne

Code :

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

MyConnexion.Open()

est surlignée et je reçois le message d'erreur suivant :

Une erreur s'est produite lors de l'établissement d'une connexion au serveur. Lors de la connexion à SQL Server 2005, cet échec peut être dû au fait que les paramètres par défaut de SQL Server n'autorisent pas les connexions à distance. (provider: Fournisseur de canaux nommés, error: 40 - Impossible d'ouvrir une connexion à SQL Server)

Bon, j'ai essayé de suivre le conseil de dépannage mais je me suis retrouvé très vite au pied du mur

A part ça ma base de donnée est Archives.mdf, j'utilise SQL Server 2005 Express Edition et ma base de donnée est sur le PC sur lequel je travaille.

Merci pour votre aide

[tomlev]

pourquoi tu n'utilises pas la chaine de connexion qui est dans app.config ?

[LJL51]

En fait je débute en VB et je n'y avais pas pensé. Quelle est la syntaxe?

[LJL51]

finalement j'ai trouvé, voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim MyConnexion As SqlConnection = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=D:\jljerome\Projet\Base de données\Base de données\Archives.mdf;Integrated Security=True;Connect Timeout=15;User Instance=True")
        MyConnexion.Open()
 
     'suite du code
 
    End Sub
 
End Class

Merci pour ton aide