High-Tech Santé Médecine Droit-Finances

Auto-Entrepreneur

Comment faire ?

Rechercher : dans
Par :

ADO et VBA et EXCEL et ACCESS

Dernière réponse le 24 mai 2009 à 11:09:17 radinor, le 23 mai 2009 à 22:31:47 
 Signaler ce message aux modérateurs

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

Configuration: Windows XP Internet Explorer 6.0

Posez votre question Répondre

1

yg_be, le 24 mai 2009 à 10:52:46

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

   
Répondre à yg_be

2

 michel_m, le 24 mai 2009 à 11:09:17

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 Cordialement, Michel

   
Répondre à michel_m
Posez votre question Répondre
Ils ont besoin de votre aide