Discussion :

[mehdiyou]

Salut tout le monde.
voici le code de la requête:

Code :

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

1
2
3
4
5
6
7
8
9
SQL> SELECT   NVL( A.DIRECTION,R.DIRECTION) 
DIRECTION,A.MONTANT_ACC,R.MONTANT_REF
  2     FROM 
  3     (SELECT  DIRECTION ,SUM(MONTANT) MONTANT_ACC  
  4         FROM AVANCE WHERE ETATAVCE='A' GROUP BY DIRECTION )A 
FULL OUTER JOIN  
  5     (SELECT  DIRECTION ,SUM(MONTANT) MONTANT_REF  
  6         FROM AVANCE WHERE ETATAVCE='R' GROUP BY DIRECTION )R
  7    ON A.DIRECTION=R.DIRECTION;

le problème avec cette requête c'est qu'elle s'exécute avec Sql+ mais lorsque je l'exécute à partir de VB.net il y a une erreur "ORA-00911:caractère non valide" j'ai vraiment pas comprit pourquoi !!!
Vous trouverz les détails de cette discussions sur:
http://www.developpez.net/forums/sho...81#post3176781

[Ditch]

Comment passes-tu ta requête à Oracle? Ne pourrais-tu pas utiliser des procédures stockées?

[mehdiyou]

voici un exemple du code:

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
 Public Sub LoadBase(ByVal Sql As String, ByVal Table As String)
        ConnString = "Provider=msdaora;Data Source=TUNISAIR;User Id=mehdi;Password=mehdi;"
        Me.Dts.Clear()
        Me.Conn.ConnectionString = ConnString
        Me.Conn.Open()
 
        Dim Dta As New OleDb.OleDbDataAdapter(Sql, Me.Conn)
 
        Try
            Dta.Fill(Me.Dts, Table)
        Catch ex As Exception
            If Personnel.Colonne.Text = "DATERECRUTEMENT" Then
                MsgBox("Insérez une date")
            Else
                MessageBox.Show("Erreur", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
End Try
 
        Me._Dtt = Me.Dts.Tables(Table)
        Me.Conn.Close()
 
    End Sub

La variable Sql c'est la variable qui contient la requête

[tomlev]

Fais voir comment tu assignes la requête à la variable Sql
Tu as peut-être une erreur dans le format de la chaîne.

[mehdiyou]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
If EtatAvce.Text = "Accepté et Refusé" Then
            ' Sql2 = "select NVL(A.DIRECTION,R.DIRECTION)DIRECTION, A.MONTANT_ACC,R.MONTANT_REF FROM (SELECT DIRECTION,SUM(MONTANT) MONTANT_ACC FROM AVANCE WHERE ETATAVCE='A' and DTSAISIE>=" & "'" & DateDebut.Text & "'" & "and DTSAISIE<=" & "'" & DateFin.Text & "'" & " GROUP BY DIRECTION)A FULL OUTER JOIN (SELECT DIRECTION,SUM(MONTANT) MONTANT_REF FROM AVANCE WHERE ETATAVCE='R' and DTSAISIE>=" & "'" & DateDebut.Text & "'" & "and DTSAISIE<=" & "'" & DateFin.Text & "'" & " GROUP BY DIRECTION)R ON A.DIRECTION=R.DIRECTION;"
            Sql2 = "select NVL(A.DIRECTION,R.DIRECTION)DIRECTION, A.MONTANT_ACC,R.MONTANT_REF FROM (SELECT DIRECTION,SUM(MONTANT) MONTANT_ACC FROM AVANCE WHERE ETATAVCE='A' GROUP BY DIRECTION)A FULL OUTER JOIN(SELECT DIRECTION,SUM(MONTANT) MONTANT_REF FROM AVANCE WHERE ETATAVCE='R'GROUP BY DIRECTION)R ON A.DIRECTION=R.DIRECTION;"
 
            Table = "AVANCE"
            LoadInDatagridView(Sql2, Table)
            If Me.CC._Dtt.Rows.Count = 0 Then
                MsgBox("Aucune Ligne trouvée")
            Else
                source_graph()
            End If
        End If

[Ditch]

Attention aux espaces:

'R'GROUP

[tomlev]

Si ce n'est pas ce que propose Ditch, essaie d'enlever le point-virgule... sinon ça semble correct, je ne vois pas trop où est le problème.

[mehdiyou]

Merci Tomlev. C'est la première fois que ça m'arrive.d'habitude le ";" ne m'a jamais causé. Re merci pour tous ce qui m'ont aidé à résoudre mes problèmes