OVH Cloud OVH Cloud

Commit et Rollback avec DataGrid

2 réponses
Avatar
Gérard
Bonjour,

Je modifie une base ACCESS par l'interm=E9diaire d'un=20
DataGrid d=E9fini comme suit:

Private Sub Form_Load()

Dim strSQL As String
Dim CntReferencesString As String

CntReferencesString =3D gconOLEDBString & gconRepertoire=20
_
& gstrPaysCode & "\" & gconBaseReferences
adoAutomat.ConnectionString =3D CntReferencesString

' D=E9finition du contenu du DataGrid

strSQL =3D "SELECT * FROM AUTOMAT ORDER BY POS"
adoAutomat.RecordSource =3D strSQL
Set dgdAutomat.DataSource =3D adoAutomat
adoAutomat.Refresh
Call InitDG ' d=E9finit la largeur et les titres=20
des colonnes=20
dgdAutomat.Refresh

End Sub

Toutes les modifications sont imm=E9diatement enregistr=E9e=20
dans la base.

Je voudrais utiliser BeginTrans, CommitTrans et=20
RollbackTrans pour que l'utilisateur puisse refuser=20
l'enregistrement des modifications faites par erreur.

J'ai essay=E9 plusieurs m=E9thodes qui ne g=E9n=E8rent pas toutes=20
des erreurs mais sont toutes sans effet.

Comment faire, o=F9 trouver de la doc et des exemples ?

Merci d'avance

G=E9rard

2 réponses

Avatar
Axel Guerrier [MS]
Bonjour Gérard,

voici:

146908 HOWTO: Speed Up Data Access by Using BeginTrans & CommitTrans
http://support.microsoft.com/?id6908

--
Axel GUERRIER
Microsoft France
--------------------
Merci de bien vouloir répondre à ce message dans le newsgroup où il a été
posté. Je le consulte régulièrement.

"Gérard" wrote in message
news:44f401c3e3f6$6c4fe0a0$
Bonjour,

Je modifie une base ACCESS par l'intermédiaire d'un
DataGrid défini comme suit:

Private Sub Form_Load()

Dim strSQL As String
Dim CntReferencesString As String

CntReferencesString = gconOLEDBString & gconRepertoire
_
& gstrPaysCode & "" & gconBaseReferences
adoAutomat.ConnectionString = CntReferencesString

' Définition du contenu du DataGrid

strSQL = "SELECT * FROM AUTOMAT ORDER BY POS"
adoAutomat.RecordSource = strSQL
Set dgdAutomat.DataSource = adoAutomat
adoAutomat.Refresh
Call InitDG ' définit la largeur et les titres
des colonnes
dgdAutomat.Refresh

End Sub

Toutes les modifications sont immédiatement enregistrée
dans la base.

Je voudrais utiliser BeginTrans, CommitTrans et
RollbackTrans pour que l'utilisateur puisse refuser
l'enregistrement des modifications faites par erreur.

J'ai essayé plusieurs méthodes qui ne génèrent pas toutes
des erreurs mais sont toutes sans effet.

Comment faire, où trouver de la doc et des exemples ?

Merci d'avance

Gérard
Avatar
Gérard
Bonjour Axel,

Mon problème est que lorsque j'utilise une méthode telle
que celle qui est décrite, je ne sais pas comment utiliser
un RecordSet comme DataSource pour un DataGrid

Est-ce possible ?

Cordialement.

Gérard

-----Message d'origine-----
Bonjour Gérard,

voici:

146908 HOWTO: Speed Up Data Access by Using BeginTrans &


CommitTrans
http://support.microsoft.com/?id6908

--
Axel GUERRIER
Microsoft France
--------------------
Merci de bien vouloir répondre à ce message dans le


newsgroup où il a été
posté. Je le consulte régulièrement.

"Gérard" wrote in


message
news:44f401c3e3f6$6c4fe0a0$
Bonjour,

Je modifie une base ACCESS par l'intermédiaire d'un
DataGrid défini comme suit:

Private Sub Form_Load()

Dim strSQL As String
Dim CntReferencesString As String

CntReferencesString = gconOLEDBString & gconRepertoire
_
& gstrPaysCode & "" & gconBaseReferences
adoAutomat.ConnectionString = CntReferencesString

' Définition du contenu du DataGrid

strSQL = "SELECT * FROM AUTOMAT ORDER BY POS"
adoAutomat.RecordSource = strSQL
Set dgdAutomat.DataSource = adoAutomat
adoAutomat.Refresh
Call InitDG ' définit la largeur et les titres
des colonnes
dgdAutomat.Refresh

End Sub

Toutes les modifications sont immédiatement enregistrée
dans la base.

Je voudrais utiliser BeginTrans, CommitTrans et
RollbackTrans pour que l'utilisateur puisse refuser
l'enregistrement des modifications faites par erreur.

J'ai essayé plusieurs méthodes qui ne génèrent pas toutes
des erreurs mais sont toutes sans effet.

Comment faire, où trouver de la doc et des exemples ?

Merci d'avance

Gérard


.