lire d'une base de données et stocker dans un tableau

**michael_MS** · 18/11/2008, 14h31

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** · 18/11/2008, 14h45

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** · 18/11/2008, 15h01

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

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

**frbona** · 18/11/2008, 15h18

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

**michael_MS** · 18/11/2008, 15h33

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** · 18/11/2008, 16h12

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?

**michael_MS** · 20/11/2008, 09h54

il y a personne pour m'aider.....????

**lutecefalco** · 20/11/2008, 10h32

Ca correspond quoi MsgBox en ASP.NET?

Et si tu remplaces:

Code :

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

1
2
tab(3) = reader.GetString(3) 'email
lbl2.Text = tab(3)

par

Code :

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

 lbl2.Text = reader.GetString(3) 'email

**michael_MS** · 20/11/2008, 10h57

oublie MsgBox, ce n'est pas important.....

mais concernant le label, j'ai essayé de faire comme tu viens de me le dire, et ça me donne la même chose...le code ne me done pas d'erreur mais auncune valeur ne s'affiche !

**calagan99** · 20/11/2008, 10h59

Si je peux me permettre, plutôt que d'utiliser cette concaténation, je passerais par un SQLParameter pour une meilleure lisibilité et plus de sécurité.

Si la requête fonctionne dans Access, qu'aucune erreur n'est levée, es-tu bien sûr que la variable lastname passée en paramètre de ta méthode est bien renseignée ?

**michael_MS** · 20/11/2008, 11h09

Envoyé par calagan99

Si je peux me permettre, plutôt que d'utiliser cette concaténation, je passerais par un SQLParameter pour une meilleure lisibilité et plus de sécurité.

Si la requête fonctionne dans Access, qu'aucune erreur n'est levée, es-tu bien sûr que la variable lastname passée en paramètre de ta méthode est bien renseignée ?

oui la requête fonctionne très bien dans access, et même j'ai essayé d'afficher lastname (que je le rentre à travers la page html) et ça l'affiche...le truc c'est que il y a un truc qui cloche dans la façon de lire l'information car, comme le tableau n'est pas rempli et n'affiche pas de valeur, on peut conclure que la manière dont est lue l'information de la db est erronée, pourtant je trouve cette manière très normal et je ne vois pas l'erreur.....

**lutecefalco** · 20/11/2008, 11h11

Passe en débug et regarde si tu rentres dans while reader.Read

**michael_MS** · 20/11/2008, 11h18

ah voilà, je ne rentre pas dans "while reader.read" , mais c'est bizarre je ne comprends pas pourquoi...

**michael_MS** · 20/11/2008, 11h24

si j'affiche lastname juste avant "while reader.read" ça l'affiche, mais si je l'affiche juste après, ça ne l'affiche pas....quqelqu'un pourrait me dire pourquoi et comment pourrai-je faire??

Merci d'avance...

**lutecefalco** · 20/11/2008, 11h29

Tjs en debug, juste avant d'appeler ExecuteReader, regarde ce que vaut
"SELECT PERSON.PERSON_ID, PERSON.FIRSTNAME, PERSON.LASTNAME, PERSON.INTERNET_ADD FROM PERSON WHERE (((PERSON.LASTNAME)=' " + lastname + " '));

**michael_MS** · 20/11/2008, 11h52

en fait, le requête sql doit être celle-çi :

celle-çi marche dans access mais ne marche pas dans mon code..

Code :

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

1
2
3
SELECT dbo_PERSON.PERSON_ID, dbo_PERSON.FIRSTNAME, dbo_PERSON.LASTNAME, dbo_PERSON.INTERNET_ADD
FROM dbo_PERSON
WHERE (((dbo_PERSON.LASTNAME)=' "+ lastname +" '));

Un des membres du forum m'avait répondu sur cette question l'autre fois qu'il fallait enlever les "dbo_" car là je travaille avec les serveurs de l'entreprise..et je les avait enlever et ça marchait....(j'avais ré-essayé dans access sans "dbo_" et c'etait bon)

donc moi spontanément, j'ai enlevé les "dbo_" pour cette requête aussi, mais là, quand je ré-essaye dans access la requête sql sans "dbo_", ça ne marche pas, et si je la met dans mon code avec les "dbo_", ça ne marche pas non plus.....

voilà, c'est ça le problème,

quelqu'un saurait comment le résoudre?

merci..

**michael_MS** · 21/11/2008, 10h29

dans ce code là, je retourne un tableau de string, mais tab(0) c'est un entier, donc je devais le transformer en string, donc j'ai essayé de faire:

Code :

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

tab(0) = (reader.GetString(0)).toString()

mais ça ne marche pas non plus..

quelqu'un pourrait me dire comment faire?

voiçi le 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

**michael_MS** · 21/11/2008, 10h52

personne pour répondre........

**lutecefalco** · 21/11/2008, 11h15

Tant que tu sauras pas pourquoi reader.Read() retourne false, ça sert à rien de chercher plus loin

**michael_MS** · 21/11/2008, 11h55

en fait, si j'enlève tab(0), et comme tous les autres valeurs affectées à la table sont des string et c'est un tableau de string, ça m'afficher tab(1), tab(2), tab(3)...

mais le problème est que j'ai un tableau de string et reader.GetString(0) est un entier...donc je dois le convertir en string..

bon , j'ai essayé de faire:

Code :

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