Convertir du SQL d'Access en requête MySQL

Version imprimable

Bonjour j'aimerais convertir du sql access en mysql:

Code:

1
2
3
4
5
6
7
OuiNon = MsgBox("Est-ce que le matériel est déjà retourné ?", vbYesNo)
If OuiNon = vbYes Then
    strmysql = "UPDATE Abonnements SET Abonnements.Statut_Abo = ""Non Affecté"""
    strmysql = strmysql & " WHERE (Abonnements.Num_SIM = """
    strmysql = strmysql & Numero_puce
    strmysql = strmysql & """);"
    Me.Statut_Affectation = "Non Affecté"

et j'aimerais savoir comment l'intégré a un bouton
Merci de vos réponses

07/04/2017, 09h15
StringBuilder

Aux détails près que :
- En SQL, le séparateur de chaînes de caractères est le ' et non le "
- Afin d'éviter des problèmes d'injection SQL et de performances il faut utiliser des requêtes paramétrées
- Les parenthèses sont inutiles

La requête est bonne.

Pour ajouter au bouton, voyez dans la section VB.
07/04/2017, 11h21
vinkey_33

Merci pour cette confirmation
comment voir en vb?
07/04/2017, 11h58
StringBuilder

Je parle du forum consacré au VB(.NET)
07/04/2017, 12h22
vinkey_33

d'accord je vois
une dernière question comment peut-on mettre les caractère spéciaux sur php?
07/04/2017, 13h48
StringBuilder

Echappement en PHP : précéder un caractère spécial par un anti-slash \. Pour faire un anti-slash il suffit de l'échapper lui-même : \\. Pour stocker une " dans une chaîne de caractères, on utilise donc "\"" (un " à chaque extréminté plus un " échappé avec un \)

Echappement en SQL : doubler le caractère spécial. Ainsi, ' devient '' (et donc pour faire une chaîne de caractères qui contient ', on utilise '''' (un ' à chaque extrémité, plus un ' doublé)

j'ai réaliser des modification sur la requete SQL mais le seul soucis pour ma part est le la variable "Numero_puce = Me.Num_SIM" je sais pas comment l'écrire autrement voici le code

Code:

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
Numero_puce = Me.Num_SIM
 
OuiNon = MsgBox("Est-ce que le matériel est déjà retourné ?", vbYesNo)
If OuiNon = vbYes Then
    strmysql = "UPDATE Abonnements SET Abonnements.Statut_Abo = ''Non Affecté''"
    strmysql = strmysql & " WHERE Abonnements.Num_SIM = ''"
    strmysql = strmysql & Numero_puce
    strmysql = strmysql & "'';'"
    Me.Statut_Affectation = "Non Affecté"
 
MyDate = Date$
User = Environ("USERNAME")
    RunMySQL = "INSERT INTO [Arch_Affectation] Or_Affectation, USER_ID, PIN_Terminal, PIN_SIM, Coque, Vitre, Support_Vehicule, Num_EMEI,Num_SIM, Date_Début, Date_Fin, Actif, Statut_Affectation, Commentaire, Auteur, Date_Maj, Desc_Action "
    RunMySQL = RunMySQL & " select Or_Affectation, USER_ID, PIN_Terminal, PIN_SIM, Coque, Vitre, Support_Vehicule, Num_EMEI,Num_SIM , Date_Début, #"
    RunMySQL = RunMySQL & MyDate
    RunMySQL = RunMySQL & "#, Actif, Statut_Affectation, Commentaire, ''"
    RunMySQL = RunMySQL & User
    RunMySQL = RunMySQL & "'', #"
    RunMySQL = RunMySQL & MyDate
    RunMySQL = RunMySQL & "#, ''Supprimer Affectation''"
    RunMySQL = RunMySQL & " FROM [Affectation] WHERE [Affectation].Or_Affectation =" & Me.Or_Affectation & ";"
 
        " UPDATE [Equipement] INNER JOIN [Affectation] ON [Equipement].Num_EMEI = [Affectation].Num_EMEI SET [Equipement].Statut_Equipement =''Non Affecté''" _
         & " WHERE Equipement.Num_EMEI='' & Me.Num_EMEI & ''"
 
ElseIf 
    strmysql = "UPDATE Abonnements SET Abonnements.Statut_Abo = ''Attente Retour''"
    strmysql = strmysql & " WHERE (Abonnements.Num_SIM = ''"
    strmysql = strmysql & Numero_puce
    strmysql = strmysql & "'');"
    Me.Statut_Affectation = "Attente Retour"
 
MyDate = Date$
User = Environ("USERNAME")
    RunMySQL = "INSERT INTO [Arch_Affectation] Or_Affectation, USER_ID, PIN_Terminal, PIN_SIM, Coque, Vitre, Support_Vehicule, Num_EMEI,Num_SIM, Date_Début, Date_Fin, Actif, Statut_Affectation, Commentaire, Auteur, Date_Maj, Desc_Action "
    RunMySQL = RunMySQL & " select Or_Affectation, USER_ID, PIN_Terminal, PIN_SIM, Coque, Vitre, Support_Vehicule, Num_EMEI,Num_SIM , Date_Début, #"
    RunMySQL = RunMySQL & MyDate
    RunMySQL = RunMySQL & "#, Actif, Statut_Affectation, Commentaire,''"
    RunMySQL = RunMySQL & User
    RunMySQL = RunMySQL & "'', #"
    RunMySQL = RunMySQL & MyDate
    RunMySQL = RunMySQL & "#, ''Supprimer Affectation - Attente Retour''"
    RunMySQL = RunMySQL & " FROM [Affectation] WHERE [Affectation].Or_Affectation =" & Me.Or_Affectation & ";"
 
        " UPDATE [Equipement] INNER JOIN [Affectation] ON [Equipement].Num_EMEI = [Affectation].Num_EMEI SET [Equipement].Statut_Equipement =""Attente Retour""" _
         & " WHERE Equipement.Num_EMEI='' & Me.Num_EMEI & ''"

merci d'avance