lire d'une base de données et stocker dans un tableau
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 |