ADO et VBA et EXCEL et ACCESS

Question

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

yg_be · Answer

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 ?"

michel_m · Answer

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

ADO et VBA et EXCEL et ACCESS

2 réponses

Discussions similaires

Newsletters