Discussion :

[michael_MS]

Salut,

j'utilise ASP.NET (VB.NET) avec microsoft access 2007, le type du serveur est sql server...

problème : je suis en train de lire les données avec un cmd.ExecuteReader , le probleme est que, quand j'affiche par exemple tab(3) avec lbl2, ça ne s'affiche pas, donc les données ne sont pas récupérées dans le tableau...quelqu'un aurait une idée comment faire....?

NB: la requete sql marche, je l'ai essayé toute seule dans access 2007


voici mon 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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
   Function verifier_db(ByVal lastname)
 
        Dim conn As New SqlConnection
        Dim reader As SqlDataReader
        Dim serverName As String = "basemaster"
 
        conn.ConnectionString = "packet size=4096;user id=wpmreports;pwd=welcome;data source=""" & serverName & """;persist security info=False;initial catalog=DSDB"
 
        conn.Open()
 
        Dim cmd As SqlCommand
        cmd = Nothing
 
        cmd = New SqlCommand("SELECT PERSON.PERSON_ID, PERSON.FIRSTNAME, PERSON.LASTNAME, PERSON.INTERNET_ADD FROM PERSON WHERE (((PERSON.LASTNAME)=' " + lastname + " '));", conn)
 
        reader = cmd.ExecuteReader
 
        Dim tab(3) As String
 
        While reader.Read
 
            tab(0) = reader.GetString(0) 'person_id
            tab(1) = reader.GetString(1) 'firstname
            tab(2) = reader.GetString(2) 'lastname
            tab(3) = reader.GetString(3) 'email
            lbl2.Text = tab(3)
        End While
 
        reader.Close()
        conn.Close()
        Return tab
    End Function
 
 
    Sub Page_Load()
 
        Dim firstname As String = string1.Value
        Dim lastname As String = string2.Value
        Dim table(3) As String
 
        table = verifier_db(lastname)
        lbl1.Text = "welcome " & string1.Value & " " & string2.Value
 
 
    End Sub

[frbona]

Salut,

Quand je regarde la requête que tu utilises, y a un truc qui me choque.
Si tu es en vb.net, l'opérateur de concaténation n'est pas + mais &.
essaie plutôt :

Code :

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

SELECT PERSON.PERSON_ID, PERSON.FIRSTNAME, PERSON.LASTNAME, PERSON.INTERNET_ADD FROM PERSON WHERE (((PERSON.LASTNAME)=' " & lastname & " '));"

[michael_MS]

j'ai essayé, ça n'a rien changé...

toujours ça n'affiche pas la valeurde tab(3) avec le label...

[frbona]

et si pour faire un test, au lieu d'utiliser un label, tu le remplaces le par un textbox : ca donne quoi ?

[michael_MS]

si je remplace par un textebox, ça n'écrit rien dedans non plus, le problème c'est que le code ne donne pas d'erreur, mais en même temps, il n'écrit pas une des valeurs stockés dans le tableau, donc il y a un probème avec la manière dont le code lie de la base données ou un problème avec la manière dont il stocke dans le tableau.....mais je vois pas où est l'erreur.....

[michael_MS]

et même si juste je fais..

Code :

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

1
2
3
4
5
6
7
8
9
reader = cmd.ExecuteReader
 
          Dim tab(3) As String
 
          While reader.Read
 
              MsgBox(reader.GetString(3))
 
          End While

normalement, un MsgBox doit afficher la quatrième valeur, mais ce n'est pas le cas...donc là, je vois que c'est pas un problème de stockage dans le tableau, car le code n'arrive pas à lire avec le "reader"...

est-ce qu'il y aurait quelqu'un pour m'aider?