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

Version imprimable

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:

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

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

SELECT PERSON.PERSON_ID, PERSON.FIRSTNAME, PERSON.LASTNAME, PERSON.INTERNET_ADD FROM PERSON WHERE (((PERSON.LASTNAME)=' " & lastname & " '));"
18/11/2008, 15h01
michael_MS

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

toujours ça n'affiche pas la valeurde tab(3) avec le label...
18/11/2008, 15h18
frbona

et si pour faire un test, au lieu d'utiliser un label, tu le remplaces le par un textbox : ca donne quoi ?
18/11/2008, 15h33
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.....:(
18/11/2008, 16h12
michael_MS
et même si juste je fais..
Code:

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?
20/11/2008, 09h54
michael_MS

il y a personne pour m'aider.....????
20/11/2008, 10h32
lutecefalco
Ca correspond quoi MsgBox en ASP.NET?

Et si tu remplaces:
Code:

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

Code:

lbl2.Text = reader.GetString(3) 'email
20/11/2008, 10h57
michael_MS

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 !
20/11/2008, 10h59
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 ?
20/11/2008, 11h09
michael_MS

Citation:

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.....
20/11/2008, 11h11
lutecefalco

Passe en débug et regarde si tu rentres dans while reader.Read
20/11/2008, 11h18
michael_MS

ah voilà, je ne rentre pas dans "while reader.read" , mais c'est bizarre je ne comprends pas pourquoi...
20/11/2008, 11h24
michael_MS

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...
20/11/2008, 11h29
lutecefalco

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 + " '));
20/11/2008, 11h52
michael_MS
en fait, le requête sql doit être celle-çi :

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

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..

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:

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:

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

21/11/2008, 10h52
michael_MS

personne pour répondre........:(
21/11/2008, 11h15
lutecefalco

Tant que tu sauras pas pourquoi reader.Read() retourne false, ça sert à rien de chercher plus loin
21/11/2008, 11h55
michael_MS

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:

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

mais ça n'a pas marchait,

quelqu'un aurait une idée comment convertir de "integer" en "string"???

merci d'avance...
21/11/2008, 12h02
lutecefalco

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

ok..merci beaucoup pour votre réponse..

Au même sujet,

j'ai un code qui marche très bien...mais il y a un petit problème...et je l'ai identifié.

ça me souligne ces 2 lignes:

Code:

1
2
            tableau(0) = reader.GetString(1)
            tableau(1) = reader.GetString(2)

ça me souligne ces 2 lignes en me disant: la propriété 'Chars' est 'Read Only'

voiçi mon code:

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
    Sub generer_start_end_date()
        Dim conn As New SqlConnection
        Dim reader As SqlDataReader
        Dim serverName As String = "basemaster"
        Dim variable1 As String = dropdownlist1.SelectedItem.Text
        Dim variable2 As String = dropdownlist2.SelectedItem.Text
 
        'Dim request As String = "SELECT dbo.MEETINGS.MTG_REF, dbo.MEETINGS.START_DATE, dbo.MEETINGS.END_DATE, dbo.technical_body.TB_KEY1, dbo.technical_body.TB_KEY2, dbo.MEETINGS.MTGS_CODE FROM dbo.MEETINGS INNER JOIN dbo.technical_body ON dbo.MEETINGS.TB_ID = dbo.technical_body.TB_ID WHERE (((dbo.MEETINGS.MTG_REF)='PLT#49') AND ((dbo.technical_body.TB_KEY1)='PLT') AND ((dbo.MEETINGS.MTGS_CODE)='PREPARATION'));"
        Dim request As String = "SELECT dbo.MEETINGS.MTG_REF, dbo.MEETINGS.START_DATE, dbo.MEETINGS.END_DATE, dbo.technical_body.TB_KEY1, dbo.technical_body.TB_KEY2, dbo.MEETINGS.MTGS_CODE FROM dbo.MEETINGS INNER JOIN dbo.technical_body ON dbo.MEETINGS.TB_ID = dbo.technical_body.TB_ID WHERE (((dbo.MEETINGS.MTG_REF)='" +variable2 + "') AND ((dbo.technical_body.TB_KEY1)='" + variable1 + "') AND ((dbo.MEETINGS.MTGS_CODE)='PREPARATION'));"
 
        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(request, conn)
 
        reader = cmd.ExecuteReader
 
        Dim tableau As String
        While reader.Read
            tableau(0) = reader.GetString(1) 'start date
            tableau(1) = reader.GetString(2) 'end date
        End While
 
        reader.Close()
        conn.Close()
        Return tableau
    End Sub

merci pour tous ce qui me répondent...

21/11/2008, 12h53
lutecefalco

Code:

Dim tableau As String

Tu définis pas un tableau là
21/11/2008, 15h00
michael_MS

ah merçi, je n'avais pas fais attention !

merçi beaucoup !