Discussion :

[Andry]

Salut à tous.
J'utilise SQL Server actuellement pour mes log de stat.
Or, mes requêtes sont tellement complexes que j'ai du utiliser des vues pour avoir le resultat attendue.
Je voudrais donc savoir comment tester si une view existe et le créer à partir de mon programme.
Dans la même foulé, quelle compos ADO utilisé ?

Merci

[Rayek]

Vu qu'une vue est considérée comme une table, il te suffit soit :

- Methode bourrin : de faire une requete simple sur la vue, si elle n'existe pas, ca te retournera une exception et la tu lances la création de ta vue.
- Methode Mieux : de récupérer la liste des tables présentes dans ta base de données (GetTableNames avec un AdoConnection), puis de vérifier qu'elle existe.

Sinon une dernière méthode un peu plus élaboré -> Utilises les procédures stockées :

- Vérifie et créer la/les vue/s
- Fait les calculs
- Retourne l'ensemble des données.

[Andry]

En faites, j'utilise ce code pour verifier que la vue existe, le supprime et le recrée

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
 
  With TAdoQuery.Create(Nil) do
  try
    try
      Connection := DM.Conn_SQL;
      SQL.Add('if exists (select * from dbo.sysobjects where id = object_id(N''[dbo].[VW_STK]'') and OBJECTPROPERTY(id, N''IsView'') = 1) 
drop view [dbo].[VW_STK]');
      ExecSQL;
      SQL.Clear;
      SQL.Add('CREATE VIEW dbo.VW_STK AS ');
      SQL.Add('SELECT     AR_Ref AS Produit, SUM(AS_QteSto) AS Stock');
      SQL.Add('FROM dbo.F_ARTSTOCK');
      SQL.Add('WHERE     (DE_No IN (1, 6, 7))');
      SQL.Add('GROUP BY AR_Ref');
      ExecSQL;
      SQL.Clear;
      ....
    Except
      MessageDlg('Erreur lors de la création des vues', mtError, [mbOK], 0);
    end;
  finally
    Free;
  end;

Ce code fonctionne mais, comme le logiciel est supposé être en environnement multiposte, ça risque de ne pas fonctionner au cas ou quelqu'un est dessus.
Alors j'ai biduouller comme ceci mais ça ne marche pas

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
  With TAdoQuery.Create(Nil) do
  try
    try
      Connection := DM.Conn_SQL;
      SQL.Add('if Not exists (select * from dbo.sysobjects where id = object_id(N''[dbo].[VW_STK]'') and OBJECTPROPERTY(id, N''IsView'') = 1) ');
      SQL.Add('CREATE VIEW dbo.VW_STK AS ');
      SQL.Add('SELECT     AR_Ref AS Produit, SUM(AS_QteSto) AS Stock');
      SQL.Add('FROM dbo.F_ARTSTOCK');
      SQL.Add('WHERE     (DE_No IN (1, 6, 7))');
      SQL.Add('GROUP BY AR_Ref');
      ExecSQL;
      SQL.Clear;
      ......
    Except
      MessageDlg('Erreur lors de la création des vues', mtError, [mbOK], 0);
    end;
  finally
    Free;
  end;

Et l'erreur est au niveau de CREATE VIEW

MErci

[Rayek]

Et le même code en procédure stockées ca fait l'erreur ?

Sinon pour le premier code :

Peux tu ou as tu un moyen d'identifier un utilisateur ?
si oui, pourquoi ne pas créer une vue au nom de l'utilisateur + nom de la vue (Plus de problème de multipost), il faut juste penser à détruire les vue commencant par le nom de l'utilisateur à la fin du traitement.

[Andry]

Bon, j'ai modifier mon code SQl comme suit et apparament ça fonctionne

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
With TAdoQuery.Create(Nil) do
  try
    try
      Connection := DM.Conn_SQL;
      SQL.Add('select * from dbo.sysobjects where id = object_id(N''[dbo].[VW_STK]'') and OBJECTPROPERTY(id, N''IsView'') = 1'); 
     ExecSQL;
      If IsEmpty then
begin
      SQL.Clear;
      SQL.Add('CREATE VIEW dbo.VW_STK AS ');
      SQL.Add('SELECT     AR_Ref AS Produit, SUM(AS_QteSto) AS Stock');
      SQL.Add('FROM dbo.F_ARTSTOCK');
      SQL.Add('WHERE     (DE_No IN (1, 6, 7))');
      SQL.Add('GROUP BY AR_Ref');
      ExecSQL;
      SQL.Clear;
      ....
    Except
      MessageDlg('Erreur lors de la création des vues', mtError, [mbOK], 0);
    end;
  finally
    Free;
  end;

[Andry]

Bon, j'ai modifier mon code SQl comme suit et apparament ça fonctionne

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
With TAdoQuery.Create(Nil) do
  try
    try
      Connection := DM.Conn_SQL;
      SQL.Add('select * from dbo.sysobjects where id = object_id(N''[dbo].[VW_STK]'') and OBJECTPROPERTY(id, N''IsView'') = 1'); 
    ExecSQL;
     If IsEmpty then
     begin
        SQL.Clear;
        SQL.Add('CREATE VIEW dbo.VW_STK AS ');
        SQL.Add('SELECT     AR_Ref AS Produit, SUM(AS_QteSto) AS Stock');
        SQL.Add('FROM dbo.F_ARTSTOCK');
        SQL.Add('WHERE     (DE_No IN (1, 6, 7))');
        SQL.Add('GROUP BY AR_Ref');
        ExecSQL;
        SQL.Clear;
     end;
      ....
    Except
      MessageDlg('Erreur lors de la création des vues', mtError, [mbOK], 0);
    end;
  finally
    Free;
  end;

La ça marche.

Merci pour tes conseils

[Pascal Jankowski]

Ce code fonctionne mais, comme le logiciel est supposé être en environnement multiposte, ça risque de ne pas fonctionner au cas ou quelqu'un est dessus.
Alors j'ai biduouller comme ceci mais ça ne marche pas

As-tu mis en place les transactions ?

[Andry]

Question transaction sur SQL Server, je ne sais pas trop.
Mais je vais y fouller vu que j'ai vais beaucoup travailler avec.
En tous cas, le problème a été résolu cette fois ci.

Merci