[MySQL-5.6] Convertir d'Access en MySql

Convertir d'Access en MySql

Bonjour, ayant finis les database dans mysql j'aimerais convertir du sql access en mysql 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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Private Sub Suprimer_Affectation_Click()
Dim OuiNon As Integer
Dim strmysql As String
Dim Numero_puce As String
Dim MyDate As Date
Dim RunMySQL As String
DoCmd.SetWarnings False
 
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 & """);"
'    DoCmd.RunSQL strmysql
    Me.Statut_Affectation = "Non Affecté"
        DoCmd.RunCommand acCmdSaveRecord
 
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 & ";"
        DoCmd.RunSQL RunMySQL
 
        DoCmd.RunSQL " 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 OuiNon = vbNo Then
    strmysql = "UPDATE Abonnements SET Abonnements.Statut_Abo = ""Attente Retour"""
    strmysql = strmysql & " WHERE (Abonnements.Num_SIM = """
    strmysql = strmysql & Numero_puce
    strmysql = strmysql & """);"
'    DoCmd.RunSQL strmysql
    Me.Statut_Affectation = "Attente Retour"
        DoCmd.RunCommand acCmdSaveRecord
 
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 & ";"
        DoCmd.RunSQL RunMySQL
 
        DoCmd.RunSQL " 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 & "'"
 
End If

Merci de vos réponse

Quels problèmes rencontrez vous ? quels sont les messages d'erreur si message il y a ?

j'aimerais juste savoir si le code est juste pour mysql ou des modification a faire et savoir les quels ?
merci

Dans cette requête la première chose que je remarque ce sont les chaines encadrées de guillemets doubles (Access) alors que MySQL respecte la norme sur ce point et attend des guillemets simples.
Code:

1 2 strmysql = "UPDATE Abonnements SET Abonnements.Statut_Abo = 'Non Affecté'" strmysql = strmysql & " WHERE (Abonnements.Num_SIM = '" & Numero_puce & "');"

Soyez vigilants le cas échéant sur les jointures multiples, access utilise une syntaxe très particulière en emboitant les jointures, ce que ne font pas les autres SGBD

merci pour la modification du code
c'est les seuls modifications a apporté?
comment puis-je faire pour mettre plusieurs jointure?

Pour les jointures multiples, alors qu'Access utilise une syntaxe non normée :
Code:

1 2 3 4 5 6 7 Select ... from ... inner join table1 (inner join table 2 on ...) on ...
MySQL utilise la syntaxe standard
Code:

1 2 3 4 5 6 Select ... from ... inner join table1 on ... inner join table2 on ...