Discussion :

[Salaye1090]

Bonjour cher tous,
Quelqu'un peut m'aider à décanter une situation qui me tracasse depuis ce matin (VB.NET)?
J'utilise l'environnement Vs 2017.
Quand je tente de me connecter pour accéder à mon interface d'accueil, j'ai un message d'erreur (cf image).

[B-Pascal]

Bonjour cher tous,
Quelqu'un peut m'aider à décanter une situation qui me tracasse depuis ce matin (VB.NET)?

Bonjour Salaye,

Comme il semble que ta question soit trop compliquée pour les membres de cette communauté, je t'invite à découvrir cette vidéo :

Plus sérieusement je pense que tu n'as pas eu de réponse parce que tu n'as pas assez détaillé ton problème.
Tu aurais du mettre la chaine de connexion (sans les vrais mots de passe et identifiants);
les raisons de ton problèmes peuvent être multiples, et plus tu donnes d'informations dans ce genre de forum, plus les personnes y participant seront enclins à t'aider.

Je sais que tu es en VB.NET et que la vidéo que je te présente est en ASP.NET MVC, mais tu as aussi du code avec du SqlDataAdapter si tu la regardes bien.

La vidéo que je t'ai mis, même si elle ne répond pas directement à ta question, devrait d'aider à décanter ta situation.

Cordialement.

[Salaye1090]

Merci B-PASCAL.
Allons y plus en détail alors.


Dans un module, j'ai crée

Code VB.NET :

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

1
2
3
4
5
6
  Public Sub opensql(ByVal req As String, ByVal tb As String)
        da = New SqlDataAdapter(req, cnx)
        da.Fill(ds, tb)
        dt = ds.Tables(tb)
        da.Dispose()
    End Sub

Derrière le bouton connecter, j'ai mis ceci:

Code VB.NET :

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
 p = -1
        If TextBox1.Text = "" Or TextBox2.Text = "" Then
            MsgBox("Entrer votre Login et mot de passe!!", MsgBoxStyle.Exclamation, "Attention")
        Else
            opensql("select Nom,LOGIN,pass,Type_compte from utilisateur ", "utilisateur")
 
            For i As Integer = 0 To dt.Rows.Count - 1
                If TextBox1.Text = dt.Rows.Item(i)("Login").ToString And TextBox2.Text = dt.Rows.Item(i)("pass").ToString Then
                    p = i
 
 
                    Exit For
                End If
            Next
            If p = -1 Then
                MsgBox("Login ou /et mot de passe incorrect!!", MsgBoxStyle.Exclamation, "Connect")
                TextBox1.Clear()
                TextBox2.Clear()
            Else
                MsgBox("bienvenue Mr/Melle " & dt.Rows.Item(p)("Nom") & "", MsgBoxStyle.Information, " Bien connecté")
                Hide()
                Menu_general.Show()
 
            End If
 
        End If
        ds.Clear()

C'est ce script qui me donne le message d'erreur que j'ai posté en haut. merci

[Salaye1090]

Merci beaucoup.
Le problème vient d’être résolu en suivant la vidéo.
J'en profite pour vous demander une orientation sur les procédures stockés (PS).
Je veux bien écrire une PS d'ajout, de modification et de suppression dans le SGBD et les appelées juste derrière les boutons.
Merci d'avance.