Discussion :

[MaelstroeM]

Hello,

Voila j'ai une requête du type :

Code :

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

SELECT Case When CLIENT.CODE_FOURNISSEUR=9998 Then 1 Else Case When CLIENT.CODE_FOURNISSEUR=999 Then 2 Else 0 End End AS TYPE FROM FOURNISSEUR WHERE IDFOURNISSEUR=11747667

Cette requête passe trés bien sous TOAD mais sous VB6 ça ne passe pas.
j'ai un message type "MOT CLEF ABSENT"
Le provider c'est OraOledb.Oracle.1 (Oracle 9i).

Qq aurez t il une idée ?

[ProgElecT]

Je n'est jamais utilisé de BD Oracle je vais donc propser une grosse betise, mais je propose sa quand même, pour faire avancer le chimilibilic

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim MeRequete As String
MeRequete = "SELECT "
If CLIENT.CODE_FOURNISSEUR = 9998 Then MeRequete = MeRequete & "1"
If CLIENT.CODE_FOURNISSEUR = 999 Then MeRequete = MeRequete & "2"
If MeRequete = "SELECT " Then
 '????
 Else
 MeRequete = MeRequete & " FROM FOURNISSEUR WHERE IDFOURNISSEUR = 11747667"
 'ouverture de la table suivant cette requête ?
 MeRecod.Open MeRequete & " ", CheminDataBase, adOpenStatic, adLockPessimistic
End If

[Invité]

Bonjour

Je travaille aussi un peu sur Toad, ce logiciel est crée par Oracle, donc il intégré les fonctions du SQL Oracle.

Je n'ai pas regardé dans le détail, mais je pense que tu dois être obligé de passer par une solution comme ce que te propose ProgElecT.

Mais ta requête pour qu'elle soit valide doit être exécuter par le moteur Oracle, hors là c'est le moteur VB que tu vas prendre.

Starec

[MaelstroeM]

Le pb c'est que je ne connais pas le code avant de faire la requête.
Grosso merdo il faut que je fasse :

Code :

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

1
2
3
4
5
6
7
Dim MySQLRequest as String
MySQLRequest="SELECT Case When CLIENT.CODE_FOURNISSEUR=9998 Then 1 "
MySQLRequest=MySQLRequest & "Else Case When CLIENT.CODE_FOURNISSEUR=999 Then 2 "
MySQLRequest=MySQLRequest & "Else 0 End End AS TYPE "
MySQLRequest=MySQLRequest & "FROM CLIENT"
 
MeRecod.Open MySQLRequest , CheminDataBase, adOpenStatic, adLockPessimistic

En fait la requête est plus complexe que cela, il y d'autre champ, un tri etc.
Mais je sais bien que c'est le Case... qui coince.

Effectivement ya du PLSQL et avec TOAD ça passe bien.
Je ne comprends pas pk ça passe pas avec VB6 puisque j'utilise le connecteur "Oracle Provide for OLEDB" fournit par Oracle.

Sinon peut être en plaçant tout ça dans une Proc.Stock...

[Invité]

Re

Je suis d'accord sur le principe, malheureusement, VB6 ne pourra interpréter le PL/SQL, il faut que tu restes sous une form basic, et comme l'exemple plus haut passé par du VB.

Effectivement si tu passes par une procédure stockée cela devrait aller, car tu mets ta vue sur Oracle qui interprétera le PL/SQL.
En théorie cela passe, car c'est le serveur Oracle qui effectuera le traitement (d'ailleurs celui-ci sera plus rapide sur Oracle).

Starec

[MaelstroeM]

Je ne comprends pas pk ça ne passe pas à partir du moment où le fournisseur de données est le bon... Ce serait à cause de OleDb... bon, je vais faire autrement alors.

Je bosse aussi su VB.Net 2005, je me demande si cette requête passe avec le fournisseur intégré pour Oracle.
Je vais tester.

Merci des conseils

[EDIT]

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
        Using cmd As Data.OracleClient.OracleCommand = CType(ActiveSqlCon.CreateCommand, OracleClient.OracleCommand)
 
            Dim MySQLRequest As String
            MySQLRequest = "SELECT Case When CLIENT.CODE_FOURNISSEUR=999 Then 1 "
            MySQLRequest = MySQLRequest & "Else Case When CLIENT.CODE_FOURNISSEUR=999687967 Then 2 "
            MySQLRequest = MySQLRequest & "Else 0 End End AS TYPE "
            MySQLRequest = MySQLRequest & "FROM CLIENT "
            MySQLRequest = MySQLRequest & "WHERE CLIENT.IDCLIENT=11760505 "
            cmd.CommandText = MySQLRequest
            cmd.CommandType = CommandType.Text
 
            Using SqlReader As OracleDataReader = cmd.ExecuteReader
                While SqlReader.Read
                    MsgBox(SqlReader.Item("TYPE"))
                End While
            End Using
End Using

Passe trés bien sous VB.Net

[EDIT]

[Invité]

Re

Attention, il me semble que le fournisseur te permet juste de créer un passerelle pour les données.
Je ne suis pas trop calé sur ce sujet, soit je fais du Oracle seul avec Forms, ou j'attache les tables Oracle dans une Base Access et je programmes sous Access.

Désolé de ne pouvoir t'en dire plus, voici un petit bout de code de la FAQ Access http://access.developpez.com/faq/?pa...l#OraProcStock

Starec

[MaelstroeM]

J'ai edité mon post et sous .Net ça passe trés bien...
C'est quand même rageant

[Vld44]

dans ton code dotnet tu utilises une ADO.Command, alors que dans ton code VB6 tu passes par le recordset (.open) conventionnel.

Essaye avec le command en vb6, ça devrait marcher aussi