Microsoft 365 problème avec un requête MySQL

José77 · 31 Janvier 2023

Bonjour à tous,
Voilà le problème. Ce code fonctionne très bien, mais ....
Dim chemin As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

'Valeur du chemin
chemin = ThisWorkbook.Path

'Créer une nouvelle connexion
Set cn = New ADODB.Connection

'Définir les propriétés de connexion
cn.Provider = "Microsoft.ACE.OLEDB.12.0"
cn.ConnectionString = "Data Source =" & chemin & "\Adherents.accdb"
cn.Open
Set rs = New ADODB.Recordset

rs.Open "SELECT distinct stock.Prod FROM stock ORDER BY stock.Prod", cn
UserForm1.listBox1.Column = rs.GetRows

Mais .... Lorsque je remplace la ligne rs.Open etc ..... par

rs.Open "SELECT stock.Prod, stock.* FROM stock WHERE stock.Prod=" & rech, cn

rech étant une valeur resultant d'un combobox j'otiens le message d'erreur suivant:
aucune valeur donnée pour un ou plusieurs paramètres requis

Si quelqu'un peut m'éclairer ce ne serait pas de refus, car depuis un bon moment je perds mon latin.
D'avance merci
José

dysorthographie · 31 Janvier 2023

Bonjour,
Je vois bien une base Access mais pas de MySQL, j'imagine qu'il s'agit d'une table liée !

De quel type est stock.Prod ?
Si c'est du texte, il faut écrire

Code:

"SELECT * FROM stock WHERE stock.Prod='" & rech & "'", cn

fanch55 · 31 Janvier 2023

Salut à tous,
"SELECT stock.Prod, stock.* FROM stock WHERE stock.Prod=" & rech
Vous voulez seulement Prod ou tous les champs de stock?
La requête ne comprend pas la demande, Prod étant inclus dans "*" .

Si on se re ferre à la requête initiale, je pense que la bonne modif est :

SQL:

rs.Open "SELECT distinct Prod FROM stock WHERE Prod=" & rech, cn

José77 · 31 Janvier 2023

dysorthographie à dit:
Bonjour,
Je vois bien une base Access mais pas de MySQL, j'imagine qu'il s'agit d'une table liée !

De quel type est stock.Prod ?
Si c'est du texte, il faut écrire

Code:

"SELECT * FROM stock WHERE stock.Prod='" & rech & "'", cn

Encore une fois merci beaucoup. Le problème venait des apostrophes que je ne savait pas mettre en place.

patricktoulon · 31 Janvier 2023

bonjour
la valeur de "rech" est un string ou un numerique
peut être que ca vient de là
si c'est un string cstr(rech)
si c'est un nombre voir si il faut pas remplacer le separateur

demande l'aide a robert (pseudo dysorthographie) le king en matière de requête adobd

merinos-BernardEtang · 31 Janvier 2023

Bonjour a tous,

Pourquoi employer VBA alors que Query existe?

j'ai retrouvé

Code:

let
    StartDate=DateBegin,
    EndDate=DateEnd,
    Source = Sql.Database("this-is-the-database-url.com", "TableNameHere",
    [Query="SELECT * FROM [TableNameHere].[dbo].[Logs] WHERE CreatedTime >='" &StartDate& "' AND CreatedTime <='" &EndDate& "' ",
    CommandTimeout=#duration(0, 0, 10, 0), HierarchicalNavigation=true, MultiSubnetFailover=true])
in
    Source

ici

Au plaisir,

Merinos

Hasco · 31 Janvier 2023

Bonjour,

merinos à dit:
Pourquoi employer VBA alors que Query existe?

@merinos : Comment tu fais pour alimenter une Listbox avec le résultat d'une requête PQ ?

merinos-BernardEtang · 31 Janvier 2023

@Hasco:

Je ne sais...
mais je peux les alimenter par une table...
qui est elle même le résultat de QP.

Cordialement,

PS: Là je cherche aussi comment alimenter PQ à partir du resultat d'une formule matricielle. Juste pour la beauté car PQ peut fair le même boulot.

Merinos

Hasco · 31 Janvier 2023

Re,
@merinos, c'était ironique, car le demandeur veut alimenter une listbox.
Je ne crois pas que passer par une table excel issue de PQ sera plus rapide qu'un recordset.

Microsoft 365 problème avec un requête MySQL

José77

XLDnaute Occasionnel

dysorthographie

XLDnaute Accro

fanch55

XLDnaute Barbatruc

José77

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

merinos-BernardEtang

XLDnaute Accro

Hasco

XLDnaute Barbatruc

merinos-BernardEtang

XLDnaute Accro

Hasco

XLDnaute Barbatruc

Discussions similaires