VB.net et SQL SERVER - Problème de connexion

Bonjour à tous,

Dire que je suis un débutant est juste un euphémisme; c'est pire que ça. :calim2:

Je travaille en mode RDP sous Windows 7.
Le serveur est sous WINDOWS SERVER 2008 R2.
J'ai (sur le serveur) SQL SERVER 2008.

J'ai une base de donnée avec une seule table et 10 enregistrements, juste pour un test.

Dans Visual Studio, quand j'ouvre l'explorateur de bases de données, que je sélectionne Microsoft SQL SERVER (SqlClient) comme source de données, le nom du serveur SQL apparait bien dans la case Nom du serveur.

Jusque là tout va bien, l'inconvénient c'est que je n'arrive pas à aller plus loin ! :oops:
Que je tente la connexion avec identification Windows ou SQL SERVER, le résultat est le même dès que je teste la connexion:

Code:

---

1 2 3 4 5 6 7 8

Une erreur liée au réseau ou spécifique à l'instance s'est produit 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 correcte et que SQL Server est configurer pour autoriser les connexions distantes. (provider: Named Pipes Provider, erreor:40 - Impossible d'ouvrir une connexion à SQL Server)

---

Pour être totalement honnête, j'ai bien compris qu'il y avait un souci de connexion :aie:, mais je ne comprends pas lequel. :?

Quand je teste avec la connexion SQL, j'utilise un compte administrateur (Windows et SQL), sinon j'ai mon compte permettant de me connecter sur ma machine virtuelle (et là vous comprenez l'étendue incommensurable de mon incompétence :()

Il se peut fortement que ce ne soit pas le bon endroit pour poster cette discussion, et je vous prie de bien vouloir m'en excuser si c'est le cas. :oops:


Mon idée de base est de mettre à disposition un exécutable à même de lire (et remplir) les tables sous SQL Server à partir de nos 5 machines virtuelles sous Windows 7.
SQL sever ne servant que pour stocker les informations. Tous le reste sera fait dans l'applicatif.

Et je ne sais pas encore par quel bout prendre le problème.

Toute aide me sera précieuse.

Cordialement

La même discussion a été ouverte sous le forum SQL-SERVEUR

Le code résultat est :

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 48 49 50 51 52 53 54 55 56

Module Base_OLEDB   Private Const MySqlServer As String = "SERVEUR-VITAME" Private Const MyDataBase As String = "FILM" Private Const MyTableName As String = "Genre"   Private MyConnectionString As String Private MaConnexion As New System.Data.OleDb.OleDbConnection Private MesCommandes As New System.Data.OleDb.OleDbCommand   Public Sub Test() Connecte() Traite() Déconnecte() End Sub   Private Sub Traite() Dim MesEnreg As System.Data.OleDb.OleDbDataReader Dim SQL As String   SQL = "SELECT * FROM " & MyTableName & ";" MesEnreg = SQL_Select(SQL) While MesEnreg.Read() MessageBox.Show("OLEDB -> id:" & MesEnreg("id_genre") & " genre:" & MesEnreg("genre")) End While MesEnreg.Close() End Sub   Private Sub Connecte()   MaConnexion.ConnectionString = "Provider=SQLOLEDB;Integrated Security=SSPI;Data Source=" & MySqlServer & ";Initial Catalog=" & MyDataBase & ";" Try MaConnexion.Open() MesCommandes.Connection = MaConnexion ' Insert code to process data. Catch ex As Exception MessageBox.Show("Ca plante toujours") End Try End Sub   Private Sub Déconnecte() MaConnexion.Close() End Sub   Private Function SQL_Select(ByRef SQL As String) As System.Data.OleDb.OleDbDataReader   SQL_Select = Nothing MesCommandes.CommandText = SQL Try SQL_Select = MesCommandes.ExecuteReader() Catch ex As Exception MessageBox.Show("SQL_Select " & vbCrLf & SQL & vbCrLf & ex.ToString) End Try End Function   End Module

---

Ne me demandez pas pourquoi ça ne marchait pas et pourquoi maintenant ça marche car je n'en sais rien :aie: