Discussion :

[Marie_7]

Bonsoir, SVP j'ai besoin de l'aide pour compléter ce code
La form2 contient 2 boutons qui s'activent selon la colonne file associé au login et au mot de passe tapés dans la form Connexion

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.Data.SqlClient
Public Class form1
    Dim con As New SqlConnection
    Dim cmd As New SqlCommand
    Dim dr As SqlDataReader
Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        
        con.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\dell\Documents\Visual Studio 2008\Projects\file1\file1\Database2.mdf;Integrated Security=True;User Instance=True"
        cmd.Connection = con
        con.Open()
        cmd.CommandText = "select file from connexion where Login= '" & Connexion.TextBox1.Text & "' and MotPasse= '" & Connexion.TextBox2.Text & "'"
        dr = cmd.ExecuteReader
        If dr.HasRows Then
            If (si la colonne file de la table connexion contient a le bouton1 est activé)
                Me.Button1.Enabled = True
            ElseIf (si la colonne file de la table connexion contient b le bouton 2 est activé)
                Me.Button2.Enabled = True
            End If
        End If

    End Sub
End Class

merci d'avance

[chaparo]

Bonjour Marie_7,

Si tout le reste fonctionne,

Code :

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

1
2
3
 
If Not reader.IsDBNull(0) Then 
    If reader.GetString(0).Equals("a") Then

EDIT !!!
Je n'avais pas lu ta requête mais utilise des requêtes paramétrées pour éviter les injections SQL.
Regarde le Tuto de Webman c'est très bien expliqué.

C'est en C# mais tu peux trouver des convertisseurs (exemple ici)

[Marie_7]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
cmd.CommandText = "select file from connexion where Login= '" & Connexion.TextBox1.Text & "' and MotPasse= '" & Connexion.TextBox2.Text & "'"
        dr = cmd.ExecuteReader
        If dr.HasRows Then
            Me.Label1.Text = dr.GetString(0)
            If Me.Label1.Text = "a" Then
                Me.Button1.Enabled = True
            ElseIf Me.Label1.Text = "b" Then
                Me.Button3.Enabled = True
            End If
        End If

J'ai essayé de faire ceci en affichant le résultat de la requete dans un label mais j'ai obtenu cet erreur

Code :

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

1
2
 
Tentative non valide de lecture lorsque aucune donnée n'est présente.

[chaparo]

Pardon j'avais oublié une ligne ce matin

Code :

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

1
2
3
4
5
6
 
Dim Ret as string
If reader.HasRows Then
    reader.Read()
    If Not reader.IsDBNull(0) Then ret = reader.GetString(0)
End If

Et pense à changer ta requête en requête paramétrée.