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 |
