enabled/disabled menustrip

Version imprimable

Salut,
J'ai créé un menu strip qui contient 2 menus item. Chaque menu est permis(enabled)pour un utilisateur(selon son type)et disabled pour l'autre.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 Private Sub utilisateurs_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim connection As New SqlClient.SqlConnection
        connection.ConnectionString = ""
        Dim cmd As New SqlClient.SqlCommand
        Dim condition1 As Boolean = Convert.ToBoolean("SELECT * FROM Agent WHERE ID_type= 1100 or ID_type= 1200")
        Dim condition2 As Boolean = Convert.ToBoolean("SELECT * FROM Agent WHERE ID_type= 1300 ")
        connection.Open()
        cmd.CommandText = "select ID_type FROM Agent"
        cmd.Connection = connection
        If condition1 = True Then
            GestionArchivesBureauPostalToolStripMenuItem.Enabled = True
            GestionArchivesAdministratifsToolStripMenuItem.Enabled = False
 
        ElseIf condition2 = True Then
            GestionArchivesBureauPostalToolStripMenuItem.Enabled = False
            GestionArchivesAdministratifsToolStripMenuItem.Enabled = True
 
        End If
        connection.Close()
    End Sub

à l'exécution un message d'erreur s'affiche:

Citation:

La chaîne n'a pas été reconnue en tant que Boolean valide.

Merci

06/04/2012, 12h19
mactwist69
Bonjour,

Il y a comme un problème avec la logique de tes requêtes.
Aucune de tes requêtes ne sont exécuter, tu ne récupères aucun résultat de ta base de données.

Code:

Dim condition1 As Boolean = Convert.ToBoolean("SELECT * FROM Agent WHERE ID_type= 1100 or ID_type= 1200")

Ta requête ne vas pas s'executer tout seule... il faut utiliser un datareader ou un dataset pour executer la requete, récupéré le résultat et le mettre dans ta variable...

Pareil pour l'autre:
Code:

1 2 3 connection.Open() cmd.CommandText = "select ID_type FROM Agent" cmd.Connection = connection
Une commande tel que celle là, ne te reoutrnera jamais de résultat. Ce type d'objet permet d'executer une requete, mais qui n'attends pas de résultat.

Va sur le cours de plasserre concernant les connexions aux bases de données... lis un peu, parce que là il te manque quelques chapitres pour que ton code soit viable.

http://plasserre.developpez.com/cour...onnees1#XVII-B

le 1er code est au dessous,puisqu'il ne fonctionne pas je l'ai changé par l'autre

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 Dim connection As New SqlClient.SqlConnection
        connection.ConnectionString = ""
        Dim cmd As New SqlCommand
        Dim ReadSQL As SqlDataReader
        connection.Open()
        If cmd.CommandText = "SELECT * FROM Agent WHERE ID_type= 1100 or ID_type= 1200" Then
            ReadSQL = cmd.ExecuteReader()
            GestionArchivesBureauPostalToolStripMenuItem.Enabled = True
            GestionArchivesAdministratifsToolStripMenuItem.Enabled = False
 
        ElseIf cmd.CommandText = "SELECT * FROM Agent WHERE ID_type= 1300 " Then
            ReadSQL = cmd.ExecuteReader()
            GestionArchivesBureauPostalToolStripMenuItem.Enabled = False
            GestionArchivesAdministratifsToolStripMenuItem.Enabled = True
            ReadSQL.Close()
        End If
 
        connection.Close()

10/04/2012, 10h21
mactwist69

Non mais là... il faut lire le cours... excuse moi mais tu parts de trop loin.

La ce n'est pas un problème technique que tu as, c'est un problème de manque de formation au langage vb.net et de son utilisation. Je peux pas prendre 30 min pour te faire du code
11/04/2012, 14h17
amivb

Nous sommes ici pour apprendre et corriger nos fautes,
merci pour le cours ;)
11/04/2012, 14h41
mactwist69

"Apprendre", je suis pas sur.
Il n'y a pas de sujet du type "Comment me connecter à une base de données" ou alors, ces sujets restent généralement sans réponse.

Après oui, il y a des sujets du type: "Connaissez vous un Tutorial pour apprendre à faire ceci" et les gens redirigent sur un cours.

Mais concrètement, quand tu auras lu le cours, que tu auras tester du code, qu'il sera donc "logique", alors si là il y a un problème technique, bien sur, je reviendrai pour t'aider à éclaircir ce point technique.

Mais concrètement, je peux pas ouvrir la page du cours d'un coté, et te recopier le cours dans le forum, ça sert à rien.

Bon code !