INSERT MySQL bizarre

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

Phénomène étrange:
J'ai un fichier Excel avec macros. Une des macros fait un INSERT dans un table MySQL.
J'ai testé dans différends environnement.
1 - Excel 2010 sous Windows 8.1, cela fonctionne parfaitement
2 - Excel 2021 sous Windows 10, cela fonctionne parfaitement
3 - Excel 2021 sous Windows 11 (24HH2), cela ne fonctionne pas.

Le pilote ODBC est une vieille version 5.1. J'ai le même phénomène avec le dernier pilote ODBC.

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
 
Select Case vret
    Case 2
    MsgBox "Imprimer la fiche de paie n°" & lp, vbOKOnly, "Numéro de fiche de paie"
 
        If Updatejourpaye = 1 Then
            'Udpate MySQL datepaye
            Set rs = New ADODB.Recordset
 
            ConnectDB
 
            strsql = "UPDATE datepayetest SET datepayetest.payele = " & Jourdepaye & " WHERE datepayetest.IDDatepaye = " & (UpdateID) & ";"
            rs.Open strsql, PConn
 
                Cells(lg, 63) = "OUI" 'ancienne colonne 72
                Set oApp = GetObject(, "Word.Application")
                Set Doc = oApp.documents(chemin_complet)
                oApp.Visible = True
                oApp.WindowState = wdWindowStateMaximize
                oApp.Activate
                Me.LstAPS = Null
                Me.LstAPS.SetFocus
 
            rs.Close
 
        Else
            'INSERT MySQL datepaye
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            Set rs = New ADODB.Recordset
 
            ConnectDB
 
            strsql = "INSERT INTO datepayetest (IDAgent,payele) VALUES (" & (idagent) & "," & Jourdepaye & ")"
            rs.Open strsql, PConn, adOpenDynamic, adLockOptimistic
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                Cells(lg, 63) = "OUI"
                Set oApp = GetObject(, "Word.Application")
                Set Doc = oApp.documents(chemin_complet)
                oApp.Visible = True
                oApp.WindowState = wdWindowStateMaximize
                oApp.Activate
                Me.LstAPS = Null
                Me.LstAPS.SetFocus
 
            rs.Close
        End If
    End Select

Sous Windows 11, j'ai ce message d'erreur
Pièce jointe 666382

Et le débogage pointe cette ligne:
rs.Open strsql, PConn, adOpenDynamic, adLockOptimistic

Pourquoi cette erreur avec Windows 11 ?

Si vous y avez été confrontés, ou une idée, je suis preneur.

Cordialement,

Fred

09/04/2025, 11h49
tatayo

Bonjour,
A quoi correspond "Jourdepaye" ?
Ne faudrait il pas des quotes dans la requête, autour de la valeur ?

Tatayo.
09/04/2025, 12h03
Fred_rt

INSERT MySQL bizarre

Bonjour et merci du retour,

Non, sinon la valeur sera Jourdepaye elle même.

J'ai testé avec le guillemets sans que ça n'y change rien.

Jourdepaye = ThisWorkbook.Sheets("Relais").Cells(1, 12)

Jourdepaye est juste la date récupérée.

La requête : "INSERT INTO datepayetest (IDAgent,payele) VALUES (" & (idagent) & "," & Jourdepaye & ")", la variable est déjà entre guillemets.

Quoiqu'il en soit, il n'y a que sur le PC en Windows 11 ou il y a cette erreur. Cela fait des années que nous utilisons ce fichier avec les mêmes macros.

Cordialement,

Fred
09/04/2025, 12h31
Fred_rt

INSERT MySQL bizarre

J'ai trouvé pourquoi l'erreur.

La fonction =TEXTE(AUJOURDHUI();"JJMMAAAA") renvoie bien 20250409 sous 8.1 et 10 peut importe la version d'Excel.

En revanche sous Windows 11, elle renvoie mercredi04jj, format de date incorrect donc.

C'est étrange tout de même. Je n'arrive pas écrire la date sous le format AAAAMMJJ.

J'ai du raté qq chose...

Cordialement,

Fred

Hello,

Pourquoi ouvrir un recordset sur une requête "action" (insert / update / delete) qui ne renvoie ... rien ?
Quitte à ouvrir un recordset, autant exploiter ses fonctionnalités:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim SQL As String SQL = "SELECT * FROM datepayetest;" Dim Rs As ADODB.Recordset Set Rs = New ODODB.Recordset Rs.Open SQL, Conn Rs.Find "IDDatepaye = " & UpdateID Rs.Edit Rs("payele").Value = Jourdepaye Rs.Update Rs.Close
Ou mieux, une requête paramétrée comme expliqué ici:
https://stackoverflow.com/questions/...ery-parameters

09/04/2025, 14h56
deedolith

Citation:

Envoyé par Fred_rt

J'ai trouvé pourquoi l'erreur.

La fonction =TEXTE(AUJOURDHUI();"JJMMAAAA") renvoie bien 20250409 sous 8.1 et 10 peut importe la version d'Excel.

Etrange que tu aies besoin d'une formule pour formater tes données, normalement c'est le format de cellule qui s'occupe de cela, afin de dissocier le format d'affichage de la donnée elle-même.
En forçant le format ainsi, tu transforme le type de données (en l'occurrence, de date vers chaîne), ce qui d'une part introduit une dépendance (inutile), et un risque de corruption (ce qu'il vient de t'arriver).
09/04/2025, 16h01
Fred_rt

INSERT MySQL Bizarre

Merci pour les conseils deedolith.

Je regarde ça. Et en effet, je suis loin d'être un expert en VBA.

Pour la date, il me semble que si je ne faisais pas ça la date n'était pas insérée correctement dans la table MySQL.

Ce dont j'ai besoin, c'est que la donnée Date renvoie la date sous le format AAAAMMJJ. Sinon, lors de l'INSERT la date dans la table est 0000-00-00.

Si j'utilise la fonction Aujourdhui() ou Date en VBA, la date n'est pas insérée correctement.

Je dois mal m'y prendre...
09/04/2025, 16h20
Fred_rt

INSERT MySQL bizarre

@deedolith

Ce que je souhaite, c'est que la variable jourdepaye est bien la valeur 20250409 (aaammjj) et ce n'est plus le cas.

Il me semblait que les données date était sous ce format.
11/04/2025, 16h18
deedolith
Le format et la données sont 2 notions différentes.
Exemple:
255 ou 255.00 ou 0xFF sont 3 format de la données 255 (entier, flottant et hexadécimal).

Concernant Excel, comme je l'ai dit plus tot, c'est le formatage de cellule qui s'occupe de cela.
Concernant VBA, le type de données doit être correcte (type Date).
Si tu utilises une requête paramétrée, le type de paramètre et la type de données doivent correspondre.
Concernant la base de données, dans une requête SQL, les dates doivent être encadrées du caractère "#" et au format americain (mm/dd/yyyy).
Exemple:
Code:

1 2 3 SELECT MyDate FROM MyTable WHERE MyDate > #04/11/2025#
15/04/2025, 01h00
Thumb down
Bonjour,
Pour moi la question n'est pas de savoir pourquoi ça marche pas sur Excel 21 et Windows 11 mais pourquoi ça fonctionne sur les autres versions car à mon sens le message d'erreur est justifié et devrait apparaitre sur toutes les versions.
Code:

1 2 3 strsql = "UPDATE datepayetest SET datepayetest.payele = '" & Jourdepaye & "' WHERE datepayetest.IDDatepaye = " & (UpdateID) & ";" rs.Open strsql, PConn
Voici un exemple qui ajoute un enregistrement si le update n'a affecté aucun enregistrement.
Code:

1 2 3 4 5 6 7 8 UPDATE MaTable SET Col1 = 'valeur' WHERE ID = 1; INSERT INTO MaTable (ID, Col1) SELECT 1, 'valeur' FROM DUAL WHERE ROW_COUNT() = 0;