Discussion :

[exyacc]

delphi 2006 , SQL server 2008, ADO

bonjour,

j'ai fais une procédure qui montre mon problème.
je voulais exécuter des requêtes "insert","update" dans une base sans me préoccuper de l'ordre d'insertion, donc je désactive les contraintes, j’exécute les requêtes et je réactive les contraintes, jusque la, ça marche
mais quand je veux mettre ça dans une transaction, ça ne marche plus...., je peux plus exécuter de requête "select" (même dans une autre adoconnection) ça fige. j'ai le showmessage('2') mais pas le showmessage('3'); (si au moment du showmessage('2'), j’exécute une requête "select" a partir d'un éditeur de requête, j'ai pas accès non plus)
si j’enlève adoconnection_synchro.Execute('EXEC sp_msforeachtable "ALTER TABLE ? NOCHECK CONSTRAINT all"') ça marche
si j’enlève BeginTrans , ça marche

j'ai oublié un paramètre quelque part ?

merci

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
procedure synchronise;
var adoconnection_synchro : TADOConnection;
begin
  adoconnection_synchro := TADOConnection.Create(nil);
  adoconnection_synchro.LoginPrompt := false;
  adoconnection_synchro.ConnectionString := 'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=ma_base;Data Source=(local)';
  adoconnection_synchro.Connected := true;
 
  adoconnection_synchro.BeginTrans;
  try
    adoconnection_synchro.Execute('EXEC sp_msforeachtable "ALTER TABLE ? NOCHECK CONSTRAINT all"');
    showmessage('1');
    adoconnection_synchro.Execute('update table1 set [name]=''test''');
    showmessage('2');
    nb := read_i('select max(id) from clients',adoconnection_synchro));
    showmessage('3');
    adoconnection_synchro.Execute('EXEC sp_msforeachtable "ALTER TABLE ? WITH CHECK CHECK CONSTRAINT all"');
    adoconnection_synchro.CommitTrans;
  except
    on E:Exception do
     adoconnection_synchro.RollbackTrans;
  end;
  adoconnection_synchro.Free;
end;

[ShaiLeTroll]

En Oracle, les ALTER TABLE se produisent hors Transaction

En SYBASE, une option permet de gérer les opérations DDL comme le ALTER TABLE dans une transaction,
le RollBack faisait même effet

En SQL Server, proche de Sybase faudrait vérifier
Si cela "fige", c'est comme si tu avais deux transactions et un dead lock !
Faudrait regarder le niveau d'isolation, en SQL Server, je sais que cela peut avoir un impact notable !

As-tu une exception ?
Pense à rétablir la notification du déboggueur si tu l'as stoppé

Code :

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

1
2
3
4
5
6
7
 except
    on E:Exception do
    begin 
      ShowMessage(E.Message); // utile pour débugguer et nous fournir le message d'erreur
      adoconnection_synchro.RollbackTrans;
    end;
  end;

essaye aussi d'écrire cela en mode T-SQL, tu m'excuseras de la syntaxe approximative

Code :

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

1
2
3
4
5
6
7
   RecordSet := adoconnection_synchro.Execute(
    ' BEGIN ' +
    '    EXEC sp_msforeachtable "ALTER TABLE ? NOCHECK CONSTRAINT all" ; ' + 
    '    update table1 set [name]=''test'' ; ' +
    '    select max(id) from clients ; ' + 
    '    EXEC sp_msforeachtable "ALTER TABLE ? WITH CHECK CHECK CONSTRAINT all" ;  ' +
    ' END ; ' );

faudra voir comme exploiter RecordSet générer par le SELECT MAX

[exyacc]

non j'ai pas d'erreur; ça mouline.

comme quand j'utilise un requeteur, je fais un "select", ça mouline , pareil. des que je "kill" mon appli, j'ai le resultat.