Discussion :

[mateo18fr]

Bonjour,

Je cherche e rendre modifiable le dernier d'une DataGrid liee a un RecordSet. J'ai beau chercher sur la toile une solution a mon probleme, je ne trouve rien.
Voici mon code pour l'instant:

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
 
Dim rsGetValue As New Recordset
rsGetValue.Open sQuery, conn1, adOpenKeyset, adLockOptimistic, adCmdText
 
If rsGetValue.EOF <> True Or rsGetValue.BOF <> True Then
    lblrecibio.Caption = rsGetValue.Fields(0)
    lblpo.Caption = rsGetValue.Fields(2)
 
    Set DataGrid1.DataSource = rsGetValue
 
    DataGrid1.Columns(0).Visible = False
    DataGrid1.Columns(2).Visible = False
 
    DataGrid1.Columns(1).Width = 20
    DataGrid1.Columns(3).Width = 70
    DataGrid1.Columns(4).Width = 120
    DataGrid1.Columns(5).Width = 60
    DataGrid1.Columns(6).Width = 20
    DataGrid1.Columns(7).Width = 60
 
    DataGrid1.Columns(5).Alignment = dbgRight
    DataGrid1.Columns(6).Alignment = dbgRight
    DataGrid1.Columns(7).Alignment = dbgRight
    DataGrid1.Columns(8).Alignment = dbgRight
 
    DataGrid1.Visible = True
 
End If

Je voudrais que la colunne 8 de ce tableau soit modifiable, pour que je puisse, si necessaire, mettre a jour la base de donnees.

Merci pour tout help.

Mateo.

[jacma]

Bonjour
Tu as probablement oublié de définir le vérouillage de ton recordset à "optimiste".

Code :

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

TonRS.Open SQL, cn, adOpenDynamic, adLockOptimistic, adCmdText

ou si tu est passé par un DataEnvironment, regarde le volet "avancé " des propriétés de l'objet Command.
Et, à tout hasard, regardes aussi la propriété "allow update" de la DataGrid. Par déféut, elle est à "true", mais sinon modilfie la afin d'accepter les modif.

[leroissejp]

Bonsoir,
Je pense que pour pouvoir modifier, il faut mettre AllowAdnew à True et AlowDelete à True.

jpleroisse

[jacma]

Je pense que pour pouvoir modifier, il faut mettre AllowAdnew à True et AlowDelete à True.jpleroisse

Manqué, c'est la propriété allowupdate, comme dit précédemment

[MITCH31]

Que signifie le message d'erreur : "le jeu d'enregistrement ne peut pas prendre en compte les signets"

[jacma]

Un signet identifie ou définit un enregistrement de façon unique dans un objet Recordset. Ils s'utilisent avec la propriété bookmark. Ton message indique que ton recordset n'accepte pas les signets. Définis ton recordset côté client et il est probable que tu n'auras plus cette erreur.

[MITCH31]

"Ton message indique que ton recordset n'accepte pas les signets. Définis ton recordset côté client et il est probable que tu n'auras plus cette erreur"

1 - je vais essayer par un autre moyen : création d'un data environnement
DataGrid.DATASOURCE = xxx (tutoriel)

cependant, quelles propriétés du recordset accepte les signets ? je croyais que les bookmarks étaient utilisés pour se positionner sur un enregistrement d'une table afin de continuer à interroger les autres enregistrements de cette même table !!

[jacma]

cependant, quelles propriétés du recordset accepte les signets ? je croyais que les bookmarks étaient utilisés pour se positionner sur un enregistrement d'une table afin de continuer à interroger les autres enregistrements de cette même table !!

C'est tout à fait cela. Avec une base Access ou SQL, et un recordset coté client, comme code ci-après, il m'étonnerait beaucoup que tu ne puisses pas utiliser les signet.

Code :

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

TonRS.CursorLocation = adUseClient

Avec un DataEnvironment, c'est le même principe. Dans les propriétés de l'objet Command, regardes l'onglet Avancé. Tu as un champ à définir pour la position du curseur. Définis à 3: curseurs coté client.