[language : VBA] Problème de connexion à une base de données

Question

Bonjour !

Le problème a sans doute été déjà résolu maintes fois, mais je n'ai vraiment pas réussi à trouver une solution qui fonctionne pour moi :(
(Aargg, comme vous devez haïr les débutants !)

L'idée du bout de code est la suivante :

Un rapport doit afficher tout un tas d'information, à des endroits précis, mais qui sont susceptible de changer.
Plutot que de changer tout à chaque fois à la main, j'ai décidé de mettre les positions des différents labels et autres textbox dans une base de données.

Ensuite, au chargement de la page, si tout se passe bien, mon programme est sensé aller repositionner tous mes objets.

Or, ici, rien ne se passe. Le rapport se charge bien, comme si il n'y avait pas d'erreur, mais en fait j'ai la nette impression que le code ne s'exécute pas. Il me semble que c'est lié à ma procédure de connection, mais je ne vois pas en quoi elle est mauvaise, en ayant comparé à mes livres / topics trouvés sur internet... :(

Code :

Private Sub Report_load()

Dim Cnn As New ADODB.Connection
Dim Monrs As New ADODB.Recordset

Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Office\Office12\ACCWIZ\DC_Position.mdb;User Id=""; Password="""

Monrs.CursorLocation = adUseClient
Monrs.ActiveConnection = Cnn

Do While Not Monrs.EOF

      Me(Monrs("Object")).Top = Monrs("Top").Top + cor_top

'Object est le champ contenant le nom des controles que je souhaite positionner. Top et Left étant les champs notant leurs coordonnées.....

      Me(rMonRS("Object")).Left = Monrs("Left").Left + cor_left
   
Loop

End Sub

Merci d'avance !

Ps : j'ai placé le thème en VB.net, car le logiciel sera sans doute porté d'ici peu sous bah... VB.net :)

Renfield · Answer

tu as pas une requete SQL ou un nom de table a donner a manger a ton Recordset ?

[language : VBA] Problème de connexion à une base de données

1 réponse

Votre réponse

Discussions similaires