Erreur de l'envoi d'une requête SQL

Version imprimable

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

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 !!!:roll::roll::roll:
Vous trouverz les détails de cette discussions sur:
http://www.developpez.net/forums/sho...81#post3176781

20/04/2008, 16h38
Ditch

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

voici un exemple du code:

Code:

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

20/04/2008, 20h32
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.

Code:

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

20/04/2008, 20h57
Ditch

Attention aux espaces:

Citation:

'R'GROUP
20/04/2008, 21h30
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.
20/04/2008, 22h36
mehdiyou

:king::yaisse2::king::bug:
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 :D:D