Discussion :

[vbnetnet]

Bonjour, je suis débutant en ado.net avec vb.net avec access ça marche bien mais c est pas le cas avec sql server.
voila j ai un code de vb.net dont je veux connecter à ma base de données en sql server mais lors de l'exécution
le programme est échoué et il s'arrête à la commande (MyConnexion.Open()) est il m'informe que:

Code :

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

Une erreur liée au réseau ou spécifique à l'instance s'est produite lors de l'établissement d'une connexion à SQL Server. Le serveur est introuvable ou n'est pas accessible. Vérifiez que le nom de l'instance est correct et que SQL Server est configuré pour autoriser les connexions distantes. (provider: Fournisseur de canaux nommés, error: 40 - Impossible d'ouvrir une connexion à SQL Server)

en + avant de l exécution j ai choisi sur la barre de menu de vb.net le menu outil et je clique sur se connecter à la base de données et je poursuis les étapes jusqu'à l'apparition de

Northwind.sdf

dans l explorateur de les base de données mais la base de donnée que j ai fait sur sql server s appel

examen

alors je sais pas comment se connecter à cette BD

VOILA MON CODE:

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
Imports System
Imports System.Data.SqlClient
Imports System.IO
 
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
 
        Dim MyConnexion As SqlConnection = New SqlConnection("Data Source=localhost;" & "Integrated Security=SSPI;Initial Catalog=northwind")
 
        Dim Mycommand As SqlCommand = MyConnexion.CreateCommand()
        Mycommand.CommandText = "SELECT COUNT(*) FROM QUESTIONS"
        MyConnexion.Open()
 
        Dim myReader As SqlDataReader = Mycommand.ExecuteReader()
        Do While myReader.Read()
            ListBox1.Items.Add(myReader.GetString(0))
        Loop
        myReader.Close()
        MyConnexion.Close()
 
 
    End Sub
End Class

s il vous plait conseillez moi pour sortir de cette impasse.
vu que j ai fais une documentation pas malle .

[ygeeg]

Salut,

"Je crois" que le problème vient de cette ligne :

Code :

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

   Dim MyConnexion AS SqlConnection = New SqlConnection("Data Source=localhost;" & "Integrated Security=SSPI;Initial Catalog=northwind")

Tu as dit que le nom de ta base de données est "examen", donc tu mets examen au lieu de "northwind" .

Et pour le Data source= localhost , quand tu fais fichier > connecter dans le MS SQL Server Management, juste copie le nom de serveur et colle le à la place de "localhost", peut être que ça peut aider.