Discussion :

[Roums]

Bonsoir,

j'essaye actuellement d'utiliser un contrôle Spreadsheet dans mon userform.

J'arrive à remplir mon Spreadsheet avec les informations contenues dans ma base MySQL, en utilisant le Activesheet.CommandText et ConnectionString.

Je cherche également à modifier les données pour ensuite mettre à jour la base, cela marche bien pour la première ligne mais pas pour les suivantes (alors que ça devrait être la même chose non ?)


Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
ligne = 2
Do Until ligne = 4
Me.Spreadsheet1.ActiveSheet.CommandText = _
    "Insert Into table (Champ1, Champ2) Values('" & Spreadsheet1.ActiveSheet.Range("A" & ligne & "").Value & "','" & Spreadsheet1.ActiveSheet.Range("B" & ligne & "").Value & "')"
   MsgBox Me.Spreadsheet1.ActiveSheet.CommandText
   ligne = ligne + 1
Loop
Me.Spreadsheet1.ActiveSheet.ConnectionString = "dsn=testvba"

Je mets le ConnectionString avant, car sinon il semble utiliser les informations contenues dans la base et non celles mises à jour dans le Spreadsheet.
Que je le mette en dehors ou dans la boucle cela semble pareil (la deuxième commande d'Insert envoyée ne comporte que des champs vides)


Au passage, je n'ai pas réussis à créer un Recordset des données contenues dans mon Spreadsheet, est ce possible ?
Je n'arrive pas à faire de commande du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"SELECT * FROM [" & NomFeuille & "$]"

[Roums]

Bon j'ai plus ou moins réussis, j'arrive à lire les informations de mon Spreadsheet, et à les envoyer vers la base.

Mais je ne sais toujours pas si je peux créer un "vrai" recordset des données de mon Spreadsheet.

J'ai aussi un problème, lorsque mes valeurs contiennent un '. L'importation vers le Spreadsheet marche bien, mais l'insert dans la base de données bloque, je suis obligé d'agir ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim essai As String
essai = " "" "
Insert Into Base(Champ1, Champ2) Values('XXX',Trim(" & essai & "Technique d'information" & essai & "))"

ça fait un peu usine à gaz mais ça marche, il y a surement plus simple, mais déjà j'ai contourné le problème ainsi.

Et, en bidouillant je me suis posé la question.
Si je garde le recordset importé dans le Spreadsheet, que je le laisse ouvert, et que chaque changement dans le Spreadsheet met à jour le recordset, que je renvoie ainsi modifié dans la base, cela est il possible ? Valable ?

[Roums]

Bon finalement mon "workaround" ne marche pas...

Si je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Insert Into Base(Champ1, Champ2) Values('XXX',Trim(" & essai & "Technique d'information" & essai & "))"

ça marche

Si maintenant j'essaye de transposer ça avec mes variables :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Insert Into Base(Champ1, Champ2) Values('" & Spreadsheet1.ActiveSheet.Range("A" & ligne & "").Value & "',Trim(" & essai & Spreadsheet1.ActiveSheet.Range("E" & ligne & "").Value & essai & ")"

ça ne marche pas....
Et pourtant dans mon Msgbox, je vois bien :

...Champ2 = Trim( " Essai d'apostrophe " ),...

J'avoue avoir du mal à comprendre là, pourquoi ça marche "en dur" et pas avec mes variables.

[Roums]

Bon, j'ai compris... parfois ça tient vraiment à peu de choses, et prendre du recul ça ne fait pas de mal.

Donc en fait c'était simplement car il fallait que je fasse la même modification dans la partie Insert Into de mon code, alors que je ne l'avais faite que après le "On duplicate key update"...

Et au passage j'ai mis Chr(34) autour des champs pouvant contenir des ', ça fait plus propre ainsi, et ça marche!

Résolu, mais si jamais quelqu'un a une idée pour transformer un Spreadsheet d'un Userform en Recordset, je suis preneur, ça me permettrait peut être de farie quelque chose de plus propre (en modifiant les valeurs directement dans le recordset)