probleme avec getvalue

Version imprimable

bonjour
j'ai un probleme avec code :
Code:

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 :

Citation:

ORA-00904: "M001" : identificateur non valide

le matricule M001 existe bel et bien

je vois pas ou est le problème

merci

12/08/2011, 13h55
Isythiel

Des quotes manquantes peut-être ?
12/08/2011, 13h57
Shadam

Ou alors c'est le "=" que tu as mis peut être ?
12/08/2011, 13h58
BenoitM

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
12/08/2011, 14h16
Herveg

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 ?

voici la fonction getvalue :

Code:

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

Code:

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")

12/08/2011, 15h49
Herveg

c'est on j'ai trouvé il fallait mettre "='M001'"
merci pour vos contributions
12/08/2011, 15h51
BenoitM

Citation:

Envoyé par Herveg

c'est on j'ai trouvé il fallait mettre "='M001'"
merci pour vos contributions

8O

on t'a donné la solution au premier post :roll:
12/08/2011, 16h16
Herveg

:lol: j'avais pas bien lu !
comment je pourrais le remplacer par une variable(un textbox de mon formulaire)
12/08/2011, 16h18
Herveg

j'ai trouvé c bon :

Code:

"=" + "'" + TxtMat.Text + "'"