Discussion :

[Invité]

Bonjour,
Pour rapide et clair, je n'arrive pas à me connecter à ma base de données SQL Server.
Je développe mon programme sur un ordinateur et la base de données se trouve sur un server.
J'aurais besoin de vos lumières pour m'aider à m'y connecter.
Erreur dans la chaine de connexion ? Erreur dans la manière de se connecter ? Je ne sais pas.

Voici mon code qui concerne toute la procédure pour avoir accès au logiciel (sachant que je ne souhaite pas utilisé l'authentification windows mais l'authentification SQL Server):

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
Imports System.Data.SqlClient
 
Public Class Base_de_donnees
    Dim sCnx As String
    Dim Cnx As SqlConnection
    Dim da As SqlDataAdapter
    Dim cb As SqlCommandBuilder
    Dim ds As DataSet
    Dim bs As BindingSource
 
    Public Sub Base_de_donnees()
        sCnx = "Persist Security Info=False;User ID=identifiantSqlServer;Password=motDePasseSqlServer;Initial Catalog=nomDeLaBaseDeDonnee;Server=nomDuServer;"
        Try
            Cnx = New SqlConnection(sCnx)
        Catch generatedExceptionName As Exception
            Throw New Exception("Erreur de connexion.")
        End Try
    End Sub
 
    'Cette fonction me permet de vérifier si l'identifiant et le mot de passe entré existe dans la base de donnée et donc si on donne accès au logiciel ou non
    Function verification_login_utilisateur(ByVal id As String, ByVal mdp As String) As Utilisateurs
        Dim utilisateur As New Utilisateurs()
        Dim requete_utilisateur As String
        requete_utilisateur = "select * from utilisateur where id = '" & id & "' and mdp='" & mdp & "'"
        da = New SqlDataAdapter(requete_utilisateur, Cnx)
        cb = New SqlCommandBuilder(da)
        ds = New DataSet("utilisateur")
        da.Fill(ds, "utilisateur")
        'Si aucun enregistrement est trouvé on retourne null
        If ds.Tables.Count = 0 Then
            Return Nothing
        Else
            'Sinon on créer une personne et on la retourne
            For Each table As DataTable In ds.Tables
                For Each row As DataRow In table.Rows
                    utilisateur.PNo_utilisateur = CInt(row(0))
                    utilisateur.PId = DirectCast(row(1), String)
                    utilisateur.PMdp = DirectCast(row(2), String)
                Next
            Next
            Return utilisateur
        End If
    End Function
 
End Class

Merci d'avance.
Si vous avez besoin de plus de renseignements je suis là

[Pol63]

installe studio management sur le poste, si tu n'arrives pas à te connecter depuis c'est que sql server est pas configuré pour les connexions distantes

si ca marche et que ca met plus de 2 secondes avant de passer dans le catch c'est que la chaine de connexion n'est pas bonne

sinon il aurait été intelligent de nous donner le message d'erreur "impossible de localiser l'instance" ou "échec de l'authentification pour le user"

si ton server sql a une instance nommé c'est nom_du_pc_ou_ip\nom_instance

[Invité]

Je pense qu'il n'est pas nécessaire que j'installe studio management sur mon poste car SQL Server est déjà utilisé avec d'autre base de données donc il doit être bien configuré pour les connexions distantes non ?

Ca ne passe pas dans le catch. L'erreur survient au niveau de

Code :

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

da.Fill(ds, "utilisateur")

L'erreur est la suivante:

L'exception InvalidOperationException n'a pas été gérée
Fill: la propriété SelectCommand.Connection n'a pas été initialisée.

Mais le soucis c'est que quand je suis en mode débug et que j'ai lancé mon programme si je passe ma souris sur ma chaine de connexion sCnx il me met Nothing et pareil pour Cnx. Et c'est donc pour cela que l'erreur survient au niveau de da.Fill(ds, "utilisateur") puisqu'il n'a pas pu se connecter. C'est pour cela que je pense que ma connexion ne doit pas être correcte.

Pour ta dernière phrase je n'en sais rien du tout.

Merci pour ton aide.

[Pol63]

pas fait gaffe au code ... il te manque le .open après le new sqlconnection
et il faut appeler la sub qui créé la connexion

[Invité]

Donc j'ai rajouter

Code :

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

Cnx.Open()

après

Code :

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

Cnx = New SqlConnection(sCnx)

dans mon try

Peux-tu m'éclairer plus sur "appeler la sub qui créé la connexion"
Ma Sub Base_de_donnees() crée la connexion mais elle est en public alors pourquoi l'appeler puisque je suis dans la même classe ?

Sinon j'ai toujours Nothing quand je pointe sur Cnx

[Pol63]

impressionnant comme question !

un cours sur vb.net :
http://plasserre.developpez.com/cours/vb-net/
en espérant que ca suffise ...