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
|
Dim UserInput
On Error Resume Next
msg01 = msgbox("Bonjour ! Cet utilitaire permet l'ajout d'un client dans la base de données. Êtes-vous sûr de vouloir continuer ?",4+64+4096,"Ajout CLT BDD")
If msg01 = 6 Then
wscript.sleep 500
CLT = (InputBox ("Merci d'entrer le numéro du client à ajouter dans la base de données.", "Ajout CLT BDD", "Entrez une valeur à trois chiffres"))
wscript.sleep 500
PVT = (InputBox ("Merci d'entrer maintenant le point de vente de ce client.", "Ajout CLT BDD", "Entrez une valeur à trois chiffres"))
wscript.sleep 500
NOMFAC = (InputBox ("Merci d'entrer maintenant le nom lié à la facture (Utiliser des majuscules non accentuées).", "Ajout CLT BDD", "Entrez un nom en lettres majuscules"))
wscript.sleep 500
ADDFAC = (InputBox ("Merci d'entrer maintenant la ville de l'adresse de facturation (Utiliser des majuscules non accentuées).", "Ajout CLT BDD", "Entrez une ville en lettres majuscules"))
wscript.sleep 500
NOMLIV = (InputBox ("Merci d'entrer maintenant le nom lié à la livraison (Utiliser des majuscules non accentuées).", "Ajout CLT BDD", "Entrez un nom en lettres majuscules"))
wscript.sleep 500
ADDLIV = (InputBox ("Merci d'entrer maintenant la ville de l'adresse de livraison (Utiliser des majuscules non accentuées).", "Ajout CLT BDD", "Entrez une ville en lettres majuscules"))
' Méthode 1 - Connecteur ODBC :
connstring = "DRIVER={MySQL ODBC 5.3 ANSI Driver};Server=IP_Serveur;Data Source=Nom_Connecteur;Database=Nom_DB;User=USER;Password=PASS"
Set Conn = CreateObject("ADODB.Connection")
Conn.Open (connstring)
SQL = "INSERT INTO Nom_DB.Nom_Table (CLT, PVT, LIV_NOM, LIV_BUR_DISTRIB, FAC_NOM, FAC_BUR_DISTRIB) VALUES ('"& CLT &"', '"& PVT &"', '"& NOMLIV &"', '"& ADDLIV &"', '"& NOMFAC &"', '"& ADDFAC &"');"
Conn.Execute (SQL)
Conn.Close
Set Conn = Nothing
' Méthode 2 - Outil mysql.exe via CMD :
'Set ShellObj = CreateObject("WScript.Shell")
'ShellObj.Run "cmd"
'WScript.Sleep 500
'ShellObj.SendKeys "c:\wamp\bin\mysql\mysql5.5.24\bin\mysql.exe -u USER --password=PASS -e ""INSERT INTO Nom_DB.Nom_Table {(}CLT, PVT, LIV_NOM, LIV_BUR_DISTRIB, FAC_NOM, FAC_BUR_DISTRIB{)} VALUES {(}'"& CLT &"', '"& PVT &"', '"& NOMLIV &"', '"& ADDLIV &"', '"& NOMFAC &"', '"& ADDFAC &"'{)}"" {enter}exit{enter}"
wscript.sleep 500
msg02 = msgbox("Merci. La mise à jour a été effectuée avec succès. Cet utilitaire va maintenant se fermer. A bientôt !",0+64+4096,"Ajout CLT BDD")
End If
If msg01 = 7 Then
msg03 = msgbox("Aucune mise à jour n'a été effectuée. Cet utilitaire va maintenant se fermer. A bientôt !",0+64+4096,"Ajout CLT BDD")
End If |
