ADO et VBA et EXCEL et ACCESS

radinor -  
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   -
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 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
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   Statut Contributeur Dernière intervention   3 314
 
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