Discussion :

[tazegue]

Salut à tous.

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

Code :

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

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
@+

[Pascal Lob]

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.

[tazegue]

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

[ProgElecT]

Salut

Je pense que cela devrait plutôt ressembler à ce

Code :

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

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

[tazegue]

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

[ProgElecT]

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