Discussion :

[michael_MS]

Bonjour,

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

voila 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
 
Sub verifier_db()
 
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 dbo_PERSON.PERSON_ID, dbo_PERSON.FIRSTNAME, dbo_PERSON.LASTNAME, dbo_PERSON.INTERNET_ADD FROM dbo_PERSON WHERE (((dbo_PERSON.LASTNAME)='Sigaud'));", 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
lbl1.Text = tab(3)
End While
 
reader.Close()
conn.Close()
End Sub

quand je met en commentaire depuis : reader = cmd.ExecuteReader() jusqu'à reader.Close() , le code marche ...sinon il me donne l'erreur suivante :

Invalid object name 'dbo_PERSON'.

sachant que j'ai testé la requete sql dans Access et ça marche très bien...

quelqu'un pourrai m'aider??

Merci d'avance..

[Chtulus]

Bonjour,

Vous établissez une connexion au serveur, je dirais que les "dbo_" devant le nom des tables sont donc inutiles !

[michael_MS]

deja je peux rien changer car ce sont les bases de données de l'entreprise...lol

mais en tout cas, je ne crois pas que cela aura une relation car je t'ai dis, quand je met en commentaire cela :

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
 
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
lbl1.Text = tab(3)
End While
 
reader.Close()

mon code marche !

le probleme que mon code ne marche pas quand cela n'est pas en commentaire, et par suite je ne pourrai pas lire de ma base de données...

[Waldar]

Cthulus vous proposait de modifier cette ligne :

Code :

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

cmd = New SqlCommand("SELECT dbo_PERSON.PERSON_ID, dbo_PERSON.FIRSTNAME, dbo_PERSON.LASTNAME, dbo_PERSON.INTERNET_ADD FROM dbo_PERSON WHERE (((dbo_PERSON.LASTNAME)='Sigaud'));", conn)

Par :

Code :

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

cmd = New SqlCommand("SELECT PERSON.PERSON_ID, PERSON.FIRSTNAME, PERSON.LASTNAME, PERSON.INTERNET_ADD FROM PERSON WHERE (((PERSON.LASTNAME)='Sigaud'));", conn)

[michael_MS]

merci bcp pour l'aide....

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

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
46
 
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
 
lbl1.Text = "welcome " & string1.Value & " " & string2.Value
 
table = verifier_db(lastname)
 
End Sub

[Waldar]

Si la partie SQL est résolue, je vous invite à refaire un sujet dans le forum ASP.NET.

[michael_MS]

mais elle n'est pas résolue car mon code il ne lie pas :

Code :

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

1
2
3
4
5
6
7
8
9
 
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

voilà, le problème c'est qu'il n'affiche pas tab(3), et cela est dû en fait qu'il n'est pas en train de lire avec reader.GetString(3)....donc c'est toujours un problème de base de données.....

[Chtulus]

Re,

Non, là c'est un forum sur le langage SQL...

Votre requête est correcte, c'est donc un problème ASP.NET comme le dit @Waldar.