Sujet Précédent Sujet Suivant

ADO et VBA et EXCEL et ACCESS

Fermé
radinor - 23 mai 2009 à 22:31
michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 24 mai 2009 à 11:09
Bonjour,

Ou se met le code ADO (?) ci-dessous dans l'éditeur Visual Basic de Excel ?

Dim cnn1 As ADODB.Connection, MonRs As ADODB.Recordset

Set cnn1 = New ADODB.Connection
cnn1.Open "Provider=Microsoft.JET.OLEDB.4.0;Data Source=G:\informatique\programmation\excel BD DAO\BaseDao\Données\Employer.mdb; User Id=Admin; Password="

Set MonRs = New ADODB.Recordset
With MonRs
.CursorLocation = adUseClient
.ActiveConnection = cnn1
.Open "SELECT * FROM MaTable", , adOpenStatic, adLockBatchOptimistic, adCmdText
.Find "Nom = 'toto'", , adSearchForward, 1
![Prenom].Value = "azerty"
.Update
End With

Je ne connais que les Sub ... End Sub

Merci
A voir également:

2 réponses

Réponse 1 / 2
yg_be Messages postés 23525 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 13 avril 2025 Ambassadeur 1 577
24 mai 2009 à 10:52
Tu peux le mettre dans une sub que tu crées pour ce code. Tu mettrais donc "sub toto" devant ton code, et "end sub" derrière.
La vraie question, c'est "que veux tu faire avec ce code, quand veux-tu qu'il s'exécute ?"
0
Réponse 2 / 2
michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
24 mai 2009 à 11:09
bonjour,
en plus il faut que tu actives la référence
Microsoft activeX data object 2.0 library
avec outils-références de l'éditeur VBA

et ajouter ces lignes avant END SUB
set monRS= nothing
set cnn1=nothing

mais on ne sais pas d'où tu sors ce code et ce que tu veux faire comme le dit très justement yg_be (bonjour)
et si tu ne ne connais que sub et end sub en vBA....
Bon courage
0