Acces simultanné à une base des donnéeRésolu

Question

Salut 
J'utilise SQL Server 2005, un programme est exécuter par deux utilisateurs, lorsque le 1er utilisateur sauve un enregistrement dans la base des données, le 2ème ne saura plus poster l'enregistrement dans la base des données. Un message du genre "La ligne n'a pas pu être trouvée pour la mise à jour. Certaines valeurs ont peut être changé depuis leur dernière lecture". Que faire pour que les 2 utilisateurs travaillent sans se message d'erreur.
a+
Notrica

cs_cantador · Accepted Answer

houlàlà..


DMPlanet1.AdoIbPlanet.BeginTrans; // Début de la transaction 
try 
DMPlanet1.AdoIbPlanet.CommitTrans; // Début de la transaction 


ça marche pas car tu n'as plus de transaction active !

d'où le message...

Ton commitTrans doit intervenir en fin de parcours ! :


try
beginTrans; {début de transaction}

edit;       {édition}
----
----
post;       {écriture dans le tampon de la table}

commitTrans; {écriture dans la table}

except
{quelque soit l'erreur déclenchée, on retire toutes les écritures et on revient au début}

RollbackTrans;
end;


cantador

Bacterius · Answer

Ca s'appelle un conflit d'accès. Deux utilisateurs accèdent au même moment à la base de données, ce qui crée des incohérences au niveau du contenu de la BDD. Essayez un sémaphore (qui permet de faire passer les utilisateurs chacun leur tour), ou un mutex (plus simple qu'un sémaphore, ne permet qu'un accès à la fois). Par exemple, le mutex autorise un seul accès (donc chacun leur tour), mais le sémaphore peut permettre 1 accès en lecture et 1 accès en écriture, par exemple ...

Cordialement, Bacterius !

Caribensila · Answer

Salut,

Il me semble que l'utilisation d'un sémaphore est plus indiquée dans ce cas.
En effet, avec un mutex seule la tâche qui a alloué l'objet peut le libérer, ce qui risque de bloquer l'accès à la BDD de façon gênante.

cs_cantador · Answer

bonsoir,

sémaphore, mutex ?

tout est prévu dans une base de données..
il suffit de fixer les paramètres de conflit de partage qu'on retrouve sous la propriété isolation des composants Data-Aware.

en gros 3 situations sont déjà programmées :
- on autorise tous les accès à tout moment
(c'est le dernier passé qui donne la dernière version la plus simple..)
  
- on verrouille la transaction (un seul utilisateur sur un enregistrement)

- on autorise le partage avec messages d'avertissement (on attend que l'autre a terminé ou on prend la main) 


cantador

Caribensila · Answer

J'me disais aussi...
Si c'était pas prévu, les BDD auraient été vraiment nulles !   

C'est là qu'on voit que j'y connais rien en BDD. Mais mon observation sur la différence mutex/sémaphore reste valable... pour d'autres cas, bien sûr (ainsi que celle de Bacterius).

Bacterius · Answer

En fait j'ai l'impression d'avoir dit que de la  dans ma dernière phrase (concernant la gestion des accès par le sémaphore).

Cordialement, Bacterius !

Caribensila · Answer

Tu parles de "1 accès en lecture et 1 accès en écriture", Bacterius?

Je pense bien que c'est possible, mais j'ai pas vérifié.

D'ailleurs, je pense que les BDD utilise le sémaphore en interne. Je ne vois pas beaucoup d'autres solutions...

Bacterius · Answer

J'ai mis ça un peu par défaut, il fallait que je phrase le concept que le sémaphore pouvait gérer plusieurs accès simultanés alors que le mutex ne peut en gérer qu'un seul ...

Cordialement, Bacterius !

cs_cantador · Answer

et j'ajoute qu'on est ici 
dans le cadre d'une application en réseau, en mode partagé multi-utilisateurs...


cantador

notrica · Answer

Salut
J'ai utilisé le sémaphore dans le programme principal qui lance l'application. En faut-il aussi le mettre dans le 'DATA MODULE' ? 
a+
Notrica

notrica · Answer

Salut 
Merci Cantador pour "il suffit de fixer les paramètres de conflit de partage qu'on retrouve sous la propriété isolation des composants Data-Aware". Comment je peux avoir ces composants ? Ses trouvent-ils dans delphi ou sql-serveur?
J'utilise delphi 7 et SQL serveur 2005.
a+
Notrica

cs_cantador · Answer

Ses trouvent-ils dans delphi ou sql-serveur?

ni l'un ni l'autre..
il faut les chercher sur internet.
certains sont free, d'autres pas..

cantador

notrica · Answer

Salut,
j'ai cherché sur internet mais malheureusement tout est payant. Y-a-t'il moyen de me brancher sur un lien où je peux trouver du free. Où à defaut pouvez-vs me dire où je peux appliquer le Sémaphore  sur le Data Module qui contient toutes les Tables ou le programme appelant le Data Module pour la mise à jour de la base des données ?
Merci d'avance.
a+
notrica

cs_cantador · Answer

tu as déjà un composant natif :

le TDatabase qui comporte la propriété :
TansIsolation

cantador

notrica · Answer

Je me connecte à la base des données avec ADOConnect. Dans ses propriétés il y a 'Isolation Level'. Si ce bien celà, quelle option puis-je selectionner ?
Merci d'avance.
a+
Notrica

cs_cantador · Answer

ilReadCommitted

la plus facile à gérer..

cantador

notrica · Answer

Salut Cantador
Merci, J'ai bien sélectionne l'option 'ilReadCommitted'. Mais le problème persiste. Le problème se pose en écriture sur la base des données, lorsque un utilisateur enregistre une information dans la base des données, le deuxième utilisateur ne saura plus, un message "La ligne n'a pas été trouvé pour la mise à jour. Certaines valeurs ont peut-être changées depuis leur première lecture" s'affiche. Y-a-t'il moyen de remédier à cela ?
a+
Notrica

cs_cantador · Answer

le deuxième utilisateur ne saura plus, un message "La ligne n'a pas été trouvé pour la mise à jour. Certaines valeurs ont peut-être changées depuis leur première lecture" s'affiche.

tu veux dire que le message ne s'affiche plus ?


cantador

notrica · Answer

le message continue de s'afficher et que les données du deuxième utilisateur ne sont pas sauvegardées. c.a.d. l'accès pour la sauvegarde des données du deuxième utilisateur sur la base des données  sur le serveur est quasi impossible. La lecture ne pose aucun problème.
j'ai en réseau un serveur win 2003 sur lequel est installé le SQL-Serveur
Que dois-je faire pour que tout le monde accède en écriture sur la base ?
a+
Notrica

cs_cantador · Answer

Désolé, j'ai oublié de te préciser que tu dois travailler en mode transactionnel..

il faut donc encapsuler chacune de tes procédures par des :

beginTrans, commitTrans ou RollBackTrans..

cantador

notrica · Answer

Merci Cantador de m'avoir soutenu, je modifie toutes les procedures et vous tiendrez au courant de l'évolution.
a+
Notrica

notrica · Answer

[list]
Salut Cantador
Voila, mon problème n'a pas été résolut. Voici le message qu'il m'affiche
'Aucune transaction n'est active'. Que faire?.
je m'explique encore, la base de données est verrouillée lorsque le 1er utilisateur sauve un enregistrement, le 2eme qui chercher a sauver son enregistrement n'y arrive plus. cela génère le message ci-dessus.
d'avance merci
a+
Notrica
/list

cs_cantador · Answer

as-tu encapsuler tes écritures comme indiqué précédemment ?


cantador

notrica · Answer

tout a été fait comme vous l'avez demandé. veuillez trouver la partie de sauvergarde ci-dessous :

   DMPlanet1.AdoIbPlanet.BeginTrans;  // Début de la transaction
   try
      DMPlanet1.AdoIbPlanet.CommitTrans;  // Début de la transaction
      with DMPlanet1 do begin
           QClients.active := False;
           QClients.Sql.Clear;
           QClients.Sql.Add('Select * from TFClients Order By ClientID');
           QClients.active := True;
           QClients.First;

        if not QClients.Locate('ClientID',RzEdit37.Text,[]) then begin
           QClients.Insert;
           QClientsClientID.AsString :=RzEdit37.Text;
           QClientsUserCrea.AsString := FrmMain.wwwNomUtil;
          QClientsDateCrea.AsDateTime := Date;
          QClientsHeureCrea.AsDateTime := Time;
          end
        else begin
          QClients.Edit;
          xmodif := 1;
//          FieldByName('Nom_Modif').AsString :=RxLabel5.Caption ;
//          FieldByName('Date_Modif').AsString := FormatDateTime('dd-mmm-yyyy',Date);
//          FieldByName('Heure_Modif').AsString := FormatDateTime('hh:nn:ss',Time);
         end;
       QClientsNomClient.AsString :=RzEdit38.Text;
       QClientsAdresse.AsString :=RzMemo2.Text;
       QClientsAdressBus.AsString :=RzBitBtn3.Caption;
       QClientsTelBus.AsString :=RxLabel71.Caption;
       QClientsTelFax.AsString :=RxLabel60.Caption;
       QClientsPhone.AsString :=RzEdit41.Text;
       QClientsFax.AsString :=RzEdit42.Text;
       QClientsEmail.AsString :=RzEdit39.Text;
       QClientsPageWeb.AsString := RzEdit40.Text ;
       QClientsStatus.AsBoolean :=RzCheckBox1.Checked;
       QClientsDateOuv.AsString :=RzDateTimeEdit1.Text;
       QClientsMntBal.AsInteger :=RzNumericEdit1.IntValue;
       QClientsMntBalUS.Value := RzNumericEdit1.Value/FrmMain.wwTxChange;
       QClientsDateBal.AsString :=RzDateTimeEdit2.Text;
       QClientsMemo.AsString :=RzMemo1.Text;
       QClientsAjouteLien.AsString :=RzEdit43.Text;
       QClientsNomClient.AsString :=RzEdit38.Text;
       QClientsLimiteCredit.AsString :=RzEdit1.Text;
       QClientsPrix.AsString :=RzComboBox2.Text;
       QClientsCredit.AsString :=RzCombobox3.Text;
       QClientsMethExp.AsString :=RzCombobox4.Text;
       QClientsMethPyt.AsString :=RzCombobox5.Text;
       QClientsCondPyt.AsString :=RzCombobox6.Text;
       QClientsClientGrp.AsString :=RzCombobox7.Text;
       QClientsTaxGrp.AsString :=RzComboBox8.Text;
       QClientsGLCompte.AsString :=CpteClient;

       QClients.Post;
       QClients.Refresh;
       end;
     except
       DMPlanet1.AdoIbPlanet.RollbackTrans;
      end;


d'avance merci
a+
Notrica

notrica · Answer

Peut-il s'agir des problèmes d'index ?
a+
Notrica

cs_cantador · Answer

pour bien faire, il faudrait même tester si la transaction est active car si ça plante au début (ce qui est rare..)alors le rollbacktrans plantera..


----
----
except
{quelque soit l'erreur déclenchée, on retire toutes les écritures et on revient au début}
if DMPlanet1.AdoIbPlanet.InTransaction then 
RollbackTrans;



cantador

notrica · Answer

Salut Cantador,
Merci bcp de votre intervention, tout est bon. Je vous souhaite bonne continuité sur cs.
a+
Notrica

notrica · Answer

un problème s'est posé, l'enregistrement du 2ème utilisateur est introuvable dans la base des données. que faire ?
a+
Notrica

notrica · Answer

Salut Cantador,

voici le le code après avoir encapsulé les écritures:

   try
   DMPlanet1.AdoIbPlanet.BeginTrans;  // Début de la transaction
      with DMPlanet1 do begin
           QClients.active := False;
           QClients.Sql.Clear;
           QClients.Sql.Add('Select * from TFClients Order By ClientID');
           QClients.active := True;
           QClients.First;
//      if not Locate('CompteID',RzEdit1.Text,[loPartialKey]) then
        if not QClients.Locate('ClientID',RzEdit37.Text,[]) then begin
           QClients.Insert;
           QClientsClientID.AsString :=RzEdit37.Text;
           QClientsUserCrea.AsString := FrmMain.wwwNomUtil;
//**          FieldByName('DateCrea').AsString := FormatDateTime('dd-mmm-yyyy',Date);
          QClientsDateCrea.AsDateTime := Date;
          QClientsHeureCrea.AsDateTime := Time;
          end
        else begin
          QClients.Edit;
          xmodif := 1;
//          FieldByName('Nom_Modif').AsString :=RxLabel5.Caption ;
//          FieldByName('Date_Modif').AsString := FormatDateTime('dd-mmm-yyyy',Date);
//          FieldByName('Heure_Modif').AsString := FormatDateTime('hh:nn:ss',Time);
         end;
       QClientsNomClient.AsString :=RzEdit38.Text;
       QClientsAdresse.AsString :=RzMemo2.Text;
       QClientsAdressBus.AsString :=RzBitBtn3.Caption;
       QClientsTelBus.AsString :=RxLabel71.Caption;
       QClientsTelFax.AsString :=RxLabel60.Caption;
       QClientsPhone.AsString :=RzEdit41.Text;
       QClientsFax.AsString :=RzEdit42.Text;
       QClientsEmail.AsString :=RzEdit39.Text;
       QClientsPageWeb.AsString := RzEdit40.Text ;
       QClientsStatus.AsBoolean :=RzCheckBox1.Checked;
       QClientsDateOuv.AsString :=RzDateTimeEdit1.Text;
       QClientsMntBal.AsInteger :=RzNumericEdit1.IntValue;
       QClientsMntBalUS.Value := RzNumericEdit1.Value/FrmMain.wwTxChange;
       QClientsDateBal.AsString :=RzDateTimeEdit2.Text;
       QClientsMemo.AsString :=RzMemo1.Text;
       QClientsAjouteLien.AsString :=RzEdit43.Text;
       QClientsNomClient.AsString :=RzEdit38.Text;
       QClientsLimiteCredit.AsString :=RzEdit1.Text;
       QClientsPrix.AsString :=RzComboBox2.Text;
       QClientsCredit.AsString :=RzCombobox3.Text;
       QClientsMethExp.AsString :=RzCombobox4.Text;
       QClientsMethPyt.AsString :=RzCombobox5.Text;
       QClientsCondPyt.AsString :=RzCombobox6.Text;
       QClientsClientGrp.AsString :=RzCombobox7.Text;
       QClientsTaxGrp.AsString :=RzComboBox8.Text;
       QClientsGLCompte.AsString :=CpteClient;

       QClients.Post;
       QClients.Refresh;
       DMPlanet1.AdoIbPlanet.CommitTrans;  // Début de la transaction
       end;
   except
       if DMPlanet1.AdoIbPlanet.InTransaction then
          DMPlanet1.AdoIbPlanet.RollbackTrans;
      end;



Que faire pour que les enregistrement du 2ème utilisateur soit sauvegarder dans la base de données ?

a+
Notrica

cs_cantador · Answer

Evite le refresh entre le post et le commit mets le après. 
cela ne vient pas du code car celui-ci est bien écrit.
Le premier utilisateur enregistre d'ailleurs bien les données mais le second déclenche vraisemblablement le rollback..

il faudrait savoir pourquoi ?

inhibe le rollback temporairement afin de déclencher un message d'erreur.

Mais je pense que cela vient de la propriété 
IsolationLevel qui n'a pas été correctement fixée

cantador

notrica · Answer

voici le message déclenché "La ligne n'a pas pu être trouvée pour la mise à jour. Certaines valeurs ont peut-être changé depuis leur dernière lecture."Ce message est affiché lors de la sauvegarde de l'enregistrement du 2ème urilisateur.
Merci d'avance.
a+
Notrica

cs_cantador · Answer

voir ma réponse sur isolationlevel..

cantador

notrica · Answer

j'ai sélectionné l'option ilReadCommitted  comme vous l'aviez recommandé. Le résultat reste le même càd le message continue à s'afficher. Je me connect à une base des données SQL-Serveur sous Serveur 2003.
Que faire ?

notrica · Answer

je corrige ce que dit tout à l'heure. Lorsque deux utilisateurs travaillent sur un même dossier par ex. la mise à jour des clients, le 1er peur poster son enregistrement, mais le 2ème utilisateur n'y arrivera pas d'où le message dont ci-haut. Mais je constate que lorsque ils travaillent sur des dossiers différents par ex. client et l'autre sur fournisseurs, celà est devenu normal càd bon pas de message, Faut-t'il conclure que c'est impossible que 2 utilisateurs travaillent sur un même dossier ?.
Je suis ravi qu'une partie de solution soit trouvé.

Merci Cantador.
a+
Notrica

cs_cantador · Answer

bon ya du mieux..
mais si les clics arrivent en même temps sur le même dossier..
ce qui en pratique est extrêmement rare(probabilité très faible)

c'est normal..

mais en revanche si la première transaction se termine alors l'autre doit pouvoir fonctionner.
s'il y a collision alors tu peux gérer à l'aide de messages appropriés :
"une transaction est en cours veuillez renouveler votre action ultérieurement".

En revanche, il me semble qu'il y a une possiblité de prendre la main...
mais pas je ne l'ai pas encore utilisée (trop problèmatique...)

cantador

notrica · Answer

je m'excuse, j'ai oublié d'inhiber le RollBacktrans du 2ème dossier. Sinon le message persiste. Même si  le 2ème fait la mise à jour dans un autre dossier, ce message apparaît.Donc cet enregistrement ne pas pris en compte, il est perdu.
Que faire ? 
a+
Notrica

cs_cantador · Answer

il faut vérifier si les utilisateurs ont tous accès au dossier de la base sur le serveur

essaie aussi un autre niveau d'isolation par précaution :


SQLSetIsolation 

Read IsolationLevel after the transaction has been activated to determine the actual transaction isolation level used. It is possible that a server will force an isolation level other than that requested if the level requested is not supported. 

Isolation TYPES 

ilUnspecified Server is using a an isolation level other than what was requested and the specific isolation level cannot be determined.
ilChaos Changes from more highly isolated transactions cannot be overwritten by the current connection.
ilReadUncommitted Uncommitted changes in other transactions are visible.
ilBrowse Uncommitted changes in other transactions are visible.
ilCursorStability Changes from other transactions only visible after being committed.
ilReadCommitted Changes from other transactions only visible after being committed. 

ilRepeatableRead Changes made in other transactions not visible, but requerying can retrieve new recordsets.
ilSerializable Transactions conducted in isolation from other transactions.
ilIsolated Transactions conducted in isolation from other transactions.




cantador

notrica · Answer

Merci Cantador, j'ai résolu le problème par le moyen des requette.
Encore merci pour m'avoir guider dans la reflexion.
A+
Notrica

cs_cantador · Answer

Ah ?
eh bien bravo !


cantador

Acces simultanné à une base des donnée

39 réponses

Votre réponse

Discussions similaires