Discussion :

[HULKHULK83]

Bonjour à tous,

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

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 !
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 :

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

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 , 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.


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

[HULKHULK83]

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

Le code résultat est :

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