Discussion :

[guigui69]

Bonjour à tous,

Je realise un fichier de reporting, qui intérroge une base SQL (sql server 2008) et j'ai une erreur avec la requete suivante:

Code sql :

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

1
2
3
4
5
6
7
8
WITH requete1 AS (SELECT G.razon AS Societe, T.descrip AS Atelier, R.Descrip AS tarif, TPF.Tecnicidad AS M, TPF.FechaDesde AS date_debut, TPF.PrecioHora AS prix
				FROM   ttTarifaPrecioFecha AS TPF
				INNER JOIN tgempresa AS G ON TPF.emp = G.emp 
				INNER JOIN tgtaller AS T  ON TPF.emp = T.emp AND TPF.taller = T.taller  
				INNER JOIN ttTarifa AS R  ON R.Codigo=TPF.Codigo  
				WHERE  TPF.Tecnicidad = 'M2' AND  TPF.Codigo IN ('TCE','TCL','TGA')),
requete2 AS (SELECT Societe ,Atelier, tarif, date_debut, Prix, RANK() OVER(PARTITION BY Societe ,Atelier,tarif ORDER BY date_debut DESC) AS RANG 	FROM   requete1)
SELECT Societe ,Atelier, tarif, date_debut ,prix, RANG FROM   requete2 WHERE  RANG = 1;

Mais se qui est bizarre si je lance cette requête sur mon serveur SQL, la requête affiche bien le résultat le résultat sans aucun probleme.

voici le segement du code concerné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
'--------------------------------------------------------------
    Set f7 = fso.OpenTextFile(chemin & "\sql\t2.sql", ForReading)
    une_variable7 = f7.ReadAll
    f7.Close
               Set f07 = fso.OpenTextFile(chemin & "\test.txt", 2, True)
 f07.write (une_variable7)
 f07.Close
 
    Dim rsBatiiiiii As ADODB.Recordset
    Set rsBatiiiiii = New ADODB.Recordset
    With rsBatiiiiii
    .ActiveConnection = cnBat
    .Open une_variable7
             DerniereLigne7 = Worksheets("Tarif M2").Range("A100000").End(xlUp).Row + 1
    Worksheets("Tarif M2").Range("A" & DerniereLigne7).CopyFromRecordset rsBatiiiiii
   .Close
 
    End With

L'erreur est sur .Open une_variable7 avec comme message "syntaxe incorrecte vers le mot clé 'with'"

J'ai testé ce bout de code en changeant seulement la requête en question. Au lieu de pointe sur ma requete ci-dessus, j'ai fait pointé sur autre requete(stockvo.sql). Le script VBA c'est bien executé sans erreur.


Quel est le probléme avec le WITH ?

Merci d'avance pour votre aide

guigui69

[Invité]

bonjour,
tu exécute une requête sql dans vb comme dans oracle sql développeur,
hors dans vb il faut que se soit du texte (String) et oracle nous somme dans un éditeur de texte

Code :

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

1
2
3
4
5
6
7
8
 Sql = "SELECT G.razon AS Societe, T.descrip AS Atelier, R.Descrip AS tarif, TPF.Tecnicidad AS M, TPF.FechaDesde AS date_debut, TPF.PrecioHora AS prix"
 Sql = Sql & "               FROM   ttTarifaPrecioFecha AS TPF"
 Sql = Sql & "               INNER JOIN tgempresa AS G ON TPF.emp = G.emp"
 Sql = Sql & "               INNER JOIN tgtaller AS T  ON TPF.emp = T.emp AND TPF.taller = T.taller"
 Sql = Sql & "               INNER JOIN ttTarifa AS R  ON R.Codigo=TPF.Codigo"
 Sql = Sql & "               WHERE  TPF.Tecnicidad = 'M2' AND  TPF.Codigo IN ('TCE','TCL','TGA')),"
 Sql = Sql & "requete2 AS (SELECT Societe ,Atelier, tarif, date_debut, Prix, RANK() OVER(PARTITION BY Societe ,Atelier,tarif ORDER BY date_debut DESC) AS RANG    FROM   requete1)"
Sql = Sql & "SELECT Societe ,Atelier, tarif, date_debut ,prix, RANG FROM   requete2 WHERE  RANG = 1;"

[guigui69]

Merci , mais j'ai toujours la même erreur:

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
26
27
 
'    Set f7 = fso.OpenTextFile(chemin & "\sql\t2.sql", ForReading)
 '   une_variable7 = f7.ReadAll
 '   f7.Close
   '            Set f07 = fso.OpenTextFile(chemin & "\test.txt", 2, True)
' f07.write (une_variable7)
'f07.Close
 
  Sql = "WITH requete1 AS (SELECT G.razon AS Societe, T.descrip AS Atelier, R.Descrip AS tarif, TPF.Tecnicidad AS M, TPF.FechaDesde AS date_debut, TPF.PrecioHora AS prix"
 Sql = Sql & "               FROM   ttTarifaPrecioFecha AS TPF"
 Sql = Sql & "               INNER JOIN tgempresa AS G ON TPF.emp = G.emp"
 Sql = Sql & "               INNER JOIN tgtaller AS T  ON TPF.emp = T.emp AND TPF.taller = T.taller"
 Sql = Sql & "               INNER JOIN ttTarifa AS R  ON R.Codigo=TPF.Codigo"
 Sql = Sql & "               WHERE  TPF.Tecnicidad = 'M2' AND  TPF.Codigo IN ('TCE','TCL','TGA')),"
 Sql = Sql & "requete2 AS (SELECT Societe ,Atelier, tarif, date_debut, Prix, RANK() OVER(PARTITION BY Societe ,Atelier,tarif ORDER BY date_debut DESC) AS RANG    FROM   requete1)"
Sql = Sql & "SELECT Societe ,Atelier, tarif, date_debut ,prix, RANG FROM   requete2 WHERE  RANG = 1;"
 
    Dim rsBatiiiiii As ADODB.Recordset
    Set rsBatiiiiii = New ADODB.Recordset
    With rsBatiiiiii
    .ActiveConnection = cnBat
    .Open Sql
             DerniereLigne7 = Worksheets("Tarif M2").Range("A100000").End(xlUp).Row + 1
    Worksheets("Tarif M2").Range("A" & DerniereLigne7).CopyFromRecordset rsBatiiiiii
   .Close
 
    End With

Merci d'avance pour ton aide

guigui69

[AlainTech]

Bonjour,

Je ne connais pas bien la syntaxe du WITH mais ne faudrait-il pas répéter le WITH avant requete2?

Et donc, supprimer la virgule à la fin du WITH requete1.

EDIT:
Ben non. C'est pas ça. Ta syntaxe semble correcte.

[guigui69]

Bonjour,

je reviens car je suis toujours bloqué sur cette requete avec le mot WITH

Que faut-il faire pour qu'il accepte de WITH?


guigui69

[lelensois16]

Je pense qu'il y a un problème de variable :

1 - D'abord définir une connexion ADOBE
2 - Ensuite définir un Recordset et l'éxecuter via Execute
3- Copier le résultat sur la feuille Excel

exemple :

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
 
    Dim Cn As Connection
    Dim Rst As Recordset 
    Dim Fichier As String
    Fichier = ThisWorkbook.Path & "\" & ThisWorkbook.Name
    Set Cn = New ADODB.Connection
    With Cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=" & Fichier & _
            ";Extended Properties=Excel 8.0;"
        .Open
    End With
    Set Rst = New Recordset
    Set Rst = Cn.Execute("select * from [data$]")
    Workbooks(NomW).Worksheets("Tmp").Cells(1, 1).CopyFromRecordset Rst
 
    Set Rst = Nothing
    Cn.Close
    Set Cn = Nothing

Si on suit cette même logique, votre code devient

Code :

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

1
2
3
4
5
6
7
 
     Dim rs As ADODB.Recordset
     Set rs = new ADOB.Recordset 
     Set rs = cn.execute(sql)
 
        DerniereLigne7 = Worksheets("Tarif M2").Range("A100000").End(xlUp).Row + 1
    Worksheets("Tarif M2").Range("A" & DerniereLigne7).CopyFromRecordset rs

En supposant que vous avez bien défini la connexion bien sur.