Problème écriture BDs SQL / ADO / VB

Salut à tous.

Je n'arrive pas à écrire dans un recordset (visual studio me dit que l'item est en lecture seule) :

Code:

---

1 2 3 4 5 6 7 8

Dim cnx2 As New ADODB.Connection cnx2.ConnectionString = "gestion1" cnx2.Open() Dim rst1 As New ADODB.Recordset rst1.Open("SELECT * FROM articles lignes where type_piece='dv' and num_piece=1", cnx2, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic) rst1.Fields("code_art") = "texte" rst1.Update()

---

quelqu'un a une idée du problème ?

Merci
@+

c'est normal, tu ouvre le recordset avec le paramétre :
ADODB.CursorTypeEnum.adOpenStatic

Il faut l'ouvrir en Dynamic.

Attention certaines connexions ADODB (vers MySql par exemple) ne prennent par en charge les recordset dynamic.

Salut!

Je viens d'essayer en dynamic et même sans aucun paramètre, mais c'est pareil il me dit toujours que l'item est en lecture seule

Salut

Je pense que cela devrait plutôt ressembler à ce

Code:

---

1 2 3 4 5 6 7 8

Dim CnX2 As New ADODB.Connection Dim CheminNomDelabase As String CheminNomDelabase = "Lecteur\Dossier\SousDossier\gestion1.mdb" CnX2.CursorLocation = adUseClient: CnX.Mode = adModeReadWrite CnX2.ConnectionString = "PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source=" & CheminNomDelabase & ";" CnX2.Open Dim rst1 As New ADODB.Recordset rst1.Open "SELECT * FROM articles lignes where type_piece='dv' and num_piece=1", CnX2, adOpenStatic, adLockPessimistic

---

en modifiant, ligne 3, le chemin de la BDs, ici une BDs Access 2007

Il s'agit d'une bdd sql et non access, ça fonctionne bien en lecture mais pas en écriture

Salut
A voir à partir de III-B. Connexion à une base de données SQL Server sans DSN et plus bas dans le tutoriel.