Salut à tous

Voici mon problème...

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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
 
'Déclaration de la variable associée à la connexion
Dim cnx1 As ADODB.Connection
'Instanciation
Set cnx1 = New ADODB.Connection
 
'Constantes liées à la connexion
Const NomUtilisateur = "root"
Const MotDePasse = ""
Const NomServeur = "127.0.0.1"
Const NomBaseDeDonnées = "ProjetRichet"
 
'Définition de la chaîne de connexion
cnx1.ConnectionString = "UID=" & NomUtilisateur & ";PWD=" & MotDePasse & ";" & "DRIVER={MySQL ODBC 3.51 Driver};Server=" & NomServeur & ";Database=" & NomBaseDeDonnées & ";"
 
'Ouverture de la base de données
cnx1.Open
 
Select Case CmbType
 
    Case "Sélectionnez le type de logiciel"
 
        MsgBox " Vous n'avez pas séléctionné type de logiciel !"
        Exit Sub
 
    Case "Comptabilité"
 
        CleType = 1
 
    Case "Systéme"
 
        CleType = 2
 
    Case "Antivirus"
 
        CleType = 3
 
    Case "Messagerie"
 
        CleType = 4
 
    Case "Développement"
 
        CleType = 5
 
    Case "Internet"
 
        CleType = 6
 
End Select
 
 
Select Case CmbEdit
 
    Case "Sélectionnez l'éditeur"
 
        MsgBox " Vous n'avez pas séléctionné d'éditeur !"
        Exit Sub
 
    Case "Microsoft"
 
        CleEdit = 1
 
    Case "Sun"
 
        CleEdit = 2
 
    Case "MicroApplication"
 
        CleEdit = 3
 
    Case "IBM"
 
        CleEdit = 4
 
End Select
 
 
sSql = "Insert into Logiciel(NomLog,NumEdit,NumTypeLog) values ('" & TxtNom & "', '" & CleType & "','" & CleEdit & "') "
cnx1.Execute sSql
 
sSql = "Insert into Licence(NumLic) values ('" & TxtLicence & "') "
cnx1.Execute sSql
 
cnx1.Close
Donc là j'ai essayé de contourner le problème en utilisant un select case
Sachant que cette "solution" est assez limitée ,j'aimerai savoir comment faire autrement pour obtenir la CléPrimaire de l'éditeur ou du logiciel...

Merci de votre aide