Discussion :

[Alathael]

Bonjour, par avance désolé si ce sujet a déjà été traité par ailleurs.

Voilà je souhaite réaliser plusieurs traitements à partir d'une boite de dialogue Excel 2016 vers une base Access 2016 (format .accdb)
je parviens à parcourir ma base sans problème et à en lire les enregistrements :

Pour info le code qui fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Public conn As Object  'ADODB.Connection
Public rs  As Object   'ADODB.Recordset
Private Sub Import_Click()
 
Dim Chemin_Base
 
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.recordset")
 
Nom_base = "DB.accdb"
Chemin_Base = ThisWorkbook.Path & "\" & Nom_base
connstring = "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=" & Chemin_Base
conn.Open connstring
 
sql = "select * from Table1"
rs.Open sql, conn
rs.MoveFirst
 
MaListe.Clear
 
Do Until rs.EOF
    DoEvents
    MaListe.AddItem rs.Fields("Nom")
    rs.MoveNext
Loop
rs.Close
 
End Sub

Je souhaite dans un premier temps pouvoir modifier un champ de ma base avec le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Insert_Click()
Dim Chemin_Base
 
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.recordset")
 
Nom_base = "DB.accdb"
Chemin_Base = ThisWorkbook.Path & "\" & Nom_base
connstring = "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=" & Chemin_Base
 
conn.Open connstring
sql = "select * from Table1"
 
rs.Open sql, conn
rs.Fields("Adresse").Value = "truc"
 
rs.Update
rs.Close
 
End Sub

Mais j'obtiens l'erreur suivante :



Merci par avance pour toute l'aide que vous pourriez m'apporter.

Alathael

[Fluch]

Je crois qu'il faut mettre un Rs.edit pour pouvoir modifier un enregistrement.

[Alathael]

Je crois qu'il faut mettre un Rs.edit pour pouvoir modifier un enregistrement.

Hello,
J'ai modifié mon code comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
rs.Open sql, conn, adOpenDynamic
rs.Edit
rs.Fields("Adresse").Value = "truc"

Mais malheureusement ça me renvoie :

propriété ou méthode non gérée par cet objet

[Invité]

Bonjour,

Rs.edit c'est pour Dao hors ici nous sommes en Ado pas d'Edit!

Il faut tout simplement dire open dynamique.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rs.Open Sql, Connexion, 1, 3

rs.MoveFirst après Rs.open ne rime à rien vue que par définition tu es sur le premier enregistrement!
*

[Alathael]

Bonsoir dysorthographie,

merci pour votre réponse, je teste et je reviens vers vous pour vous dire.