Fonction VBA en TSQL

Version imprimable

Bonjour à tous,

J'aimerai obtenir de l'aide. Je souhaite convertir une fonction VBA en une fonction TSQL.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Function numauto(Categorie As String, Article As String, Date_Planif As Double) As String
    Static ln_Categorie As String
    Static ln_Article As String
    Static ln_Date_Planif As Double
    Static compt
    If ln_Categorie <> Categorie Or ln_Article <> Article Or ln_Date_Planif <> Date_Planif Then
        compt = Val(compt) + 1
        ln_Categorie = Categorie
        ln_Article = Article
        ln_Date_Planif = Date_Planif
    End If
    numauto = CStr(Categorie & "00" & Left(CStr(compt), 6))
End Function

Quelqu'un pourrait-il avoir la gentillesse de m'aider?

03/10/2014, 12h11
aieeeuuuuu

Bonjour,

La notion de variable statique n'existe pas en TSQL...

Vous pourriez stocker les valeurs dans une table pour obtenir un comportement similaire...

Mais votre fonction n'est pas traduisible telle quelle en TSQL.

dans quel contexte est-elle utilisée ? pourquoi la traduire en TSQL ?

Dites-en un peu plus qu'on puisse mieux vous orienter.
03/10/2014, 12h24
Spirou92

Fonction VBA

Actuellement dans le cadre d'un projet, je dois migrer une base Access, sur du SQLServer. Dans l'ensemble tout se passe correctement hormis pour quelques requêtes qui utilisent donc quelques fonctions créées sous Access et quelques crosstab.
03/10/2014, 12h28
aieeeuuuuu

Alors il faudrait connaitre le périmètre...

Dans quelles requêtes cette fonction est-elle utilisée ?

Bah voila un exemple d'une requête SQL qui a besoin d'utiliser la fonction numauto:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
CREATE PROCEDURE [351_13_Ajout_Ordres_Sans_Num] 
AS
BEGIN
INSERT INTO [100_20_Ordres]  (  [Depot], [Code_Article], [Groupe_Article], [Statut_Ordre], [Categorie_ordre], [Numero_ordre], [Ligne_ordre], [Sous_Ligne_Ordre], [Qte_Ordre_Article], [Code_Compose_Ou_fournisseur], [Date_Planif_Num], [Date_Planif_Date], [Message_Action], [Incrementer_Stock], [Numero_de_lot], [Code_Fournisseur] ) SELECT [000_20_Ordres_IMPORT].[Depot],
      [000_20_Ordres_IMPORT].[Article],
      [000_20_Ordres_IMPORT].[Gr_Article],
      [000_20_Ordres_IMPORT].[Stt],
      [000_20_Ordres_IMPORT].[Categorie_ordre],
      numauto([Categorie_ordre],[Article],[Date_planif]) AS [Expr4],
      [000_20_Ordres_IMPORT].[Ligne_ordre],
      [000_20_Ordres_IMPORT].[Num_SousLigne],
      [000_20_Ordres_IMPORT].[Qte_trans],
 
     CASE  WHEN [Categorie_ordre]='250' Or [Categorie_ordre]='251' THEN [Texte_reference] ELSE 
     CASE  WHEN CHARINDEX(' ',[Texte_reference],1)>0 THEN LEFT([Texte_reference],CHARINDEX(' ',[Texte_reference],1)-1) ELSE [Texte_reference] END END AS [Expr2],
      [000_20_Ordres_IMPORT].[Date_planif],
      CONVERT(DATETIME,CASE  WHEN [000_20_Ordres_IMPORT].[Date_planif]=0 THEN '' ELSE CONVERT(DATETIME,RIGHT([000_20_Ordres_IMPORT].[Date_planif],2) + '/' + LEFT(RIGHT([000_20_Ordres_IMPORT].[Date_planif],4),2) + '/' + LEFT([000_20_Ordres_IMPORT].[Date_planif],4)) END) AS [Expr3],
      [000_20_Ordres_IMPORT].[MA],
      [000_20_Ordres_IMPORT].[MaJ_Dispo_article],
      [000_20_Ordres_IMPORT].[Numero_de_lot],
      'Aucun' AS [Expr1] 
FROM [000_20_Ordres_IMPORT] 
WHERE ((([000_20_Ordres_IMPORT].[Categorie_ordre])='960' Or ([000_20_Ordres_IMPORT].[Categorie_ordre])='020'))
End

03/10/2014, 14h41
aieeeuuuuu

Donc, vous numérotez les lignes en fonction de leur données.
Cependant, je ne vois aucune notion d'ordre dans votre requête, le résultat de votre requête n'est donc pas déterministe et dépendra du comportement d'access au moment où il exécutera la requête. Je pense donc qu'il y a un bug dans cette fonction. pouvez vous détaillez le fonctionnel ?

Quelle est votre version de SQL Server ?
03/10/2014, 16h06
Spirou92

A vrai dire, ce n'est pas mon code ni mon point fort. La version est du SQL Server 2008 Express.
03/10/2014, 17h49
aieeeuuuuu

Vous pourrez sûrement obtenir ce que vous voulez en utilisant les fonctions analytiques, comme ROW_NUMBER() ou DENSE_RANK()...

Vous pouvez aussi utiliser votre code VB l'incluant dans un assembly integré a SQL Server (SQL CLR)
06/10/2014, 16h52
Spirou92

Ok merci je vais me renseigner.