probleme avec getvalue

**Herveg** · 12/08/2011, 13h52

bonjour
j'ai un probleme avec code :

Code :

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

1
2
3
4
Dim lhomme As New personne
Dim lNom As String = lhomme.GetValue(personne.Fields.NOM.ToString() _
, personne.Fields.PRDCODE.ToString() & "=M001","Personne inexistante")
TxtNom.Text = lNom.ToString()

le programme doit aller chercher dans une base oracle le nom de la personne mais
Vb Net me retourne une erreur :

ORA-00904: "M001" : identificateur non valide

le matricule M001 existe bel et bien

je vois pas ou est le problème

merci

**Isythiel** · 12/08/2011, 13h55

Des quotes manquantes peut-être ?

**Shadam** · 12/08/2011, 13h57

Ou alors c'est le "=" que tu as mis peut être ?

**BenoitM** · 12/08/2011, 13h58

Je vote +1 pour les quotes

Oracle considère M001 comme une variable car il n'est pas entre ''

peut-être nous donner ta requete

**Herveg** · 12/08/2011, 14h16

bon j'utilise un design pattern et le code est assez fastidieux.
Par contre si je veux utiliser un champ de mon formulaire comme paramétre pour remplacer "M001"(que j'ai mis en dur pour tester) comment dois je l'intégrer dans le code getvalue ?

**Herveg** · 12/08/2011, 15h35

voici la fonction getvalue :

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
28
29
30
31
32
33
Public Function GetValue(ByVal pField As String, _
                             ByVal pFiltre As String, _
                             Optional ByVal pDefaultValue As Object = Nothing) As Object
 
        Dim lRequete As New System.Text.StringBuilder
        Dim lResultat As Object
 
        If pField Is Nothing OrElse pField.Trim() = "" _
        OrElse pFiltre Is Nothing OrElse pFiltre.Trim() = "" Then
 
            Throw New Exception("PARAMETREINCORRECT")
 
        End If
 
        lRequete.Append("select ").Append(pField).Append(" from ").Append(TableName).Append( _
        " where ").Append(pFiltre)
 
        Dim lCommand As New OracleCommand
 
        lCommand.CommandType = CommandType.Text
        lCommand.CommandText = lRequete.ToString()
        lCommand.Connection = MyBase.GetConnexion()
 
        lResultat = lCommand.ExecuteScalar()
 
        If (lResultat Is Nothing OrElse lResultat Is DBNull.Value) _
        AndAlso Not pDefaultValue Is Nothing Then
            lResultat = pDefaultValue
        End If
 
        MyBase.CloseConnexion()
 
        Return lResultat

**BenoitM** · 12/08/2011, 15h40

Code :

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

1
2
3
4
5
lhomme.GetValue(personne.Fields.NOM.ToString() _
, personne.Fields.PRDCODE.ToString() & "='" & "M001" & "'","Personne inexistante")
 
lhomme.GetValue(personne.Fields.NOM.ToString() _
, personne.Fields.PRDCODE.ToString() & "='" & maTextBox.Text & "'","Personne inexistante")