Discussion :

[SonnyFab]

Voici ce que j'ai dans mon script

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
47
48
49
50
51
52
53
54
55
56
<%@ import Namespace= "System.Data" %> 
<%@ import Namespace= "System.Data.SqlClient" %> 
 
 
<script runat="server" language="vb">
 
   Dim cmpt As String
   Dim client as String
 
    sub page_load()
    ' Etablissement de la Connection'
       Dim AddConnection as String = "user id=sa;password=toto;" 
       AddConnection += "database=MaBase;server=MonServer;" 
       Dim Connection11 as New SqlConnection ( AddConnection ) 
 
        Connection11.Open () 
         Dim Command1 as New SqlCommand("Select NomClient from dbo.CLIENT ",Connection11)  
		Dim Reader1 as SqlDataReader = command1.ExecuteReader()
		 while  Reader1.Read()
        DropDownList1.Items.add(Reader1(0))
         End While
		Reader1.Close()
      end sub
 
Protected sub Remplissage(sender As Object, e As System.EventArgs) 
	  ' Etablissement de la Connection'
       Dim AddConnection as String = "user id=sa;password=toto;" 
       AddConnection += "database=MaBase;server=MonServer;" 
      Dim Connection11 as New SqlConnection ( AddConnection ) 
	   try
	    Connection11.Open () 
            client=DropDownList1.SelectedValue
 
		Dim Command2 as New SqlCommand("select * from dbo.CLIENT where NomClient='"+client+"'",Connection11)  
		Dim Reader as SqlDataReader = command2.ExecuteReader()
 
      if client=""
      msg.Text="Veuillez choisir un client dans le menu déroulant."
      else
      msg.Text=" Modification du client "+Client+"! <br><br>"
	   zeClient.Text=Reader(1)
	   zePre.Text=Reader(5)
	   zePost.Text=Reader(0)
	   zeNomDG.Text=Reader(2)
	   zeNum.Text=Reader(4)
	   zeRespNum.Text=Reader(3)
 
	   Reader.close
 
	   end if
 
	 Connection11.close
	  catch i as Exception 
       con_close1.text=e.ToString () 
       end try 
	 end sub

Je voudrais qu'à l'appel de la fonction Remplissage(), tous les Text.Box se remplisse avec données importées de la base, mais au lieu de sa, il grossit juste les labels.
Et en passant si quelqu'un peut m'aider à améliorer le code au niveau de l'établissement de la connexion pour éviter que je l'écrive deux fois ce serait super cool
Merci d'avance

[bossun]

tu dois appeler la methode Read du Reader pour "ouvrir" ton reader

Code :

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

Reader.Read()

[SonnyFab]

comme sa?

Code :

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

zeClient.Text=Reader.read(1)

Ben la c'est de pire en pire, non seulement sa me génère une erreur mais en plus je comprend meme pas cette synthaxe.
Le but ici c'est de mettre dans le text.Box "zeClient", le contenu de la ligne correspondante au champ 2 (puisqu'on commence à 0). J'espere que c'est pas trop confus...

[bossun]

Non plutôt comme ça

Code :

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

1
2
3
4
5
6
7
Reader.Read()
zeClient.Text=Reader(1)
zePre.Text=Reader(5)
zePost.Text=Reader(0)
zeNomDG.Text=Reader(2)
zeNum.Text=Reader(4)
zeRespNum.Text=Reader(3)

[SonnyFab]

Wahouu! que l'on me pince i=dites moi que je reve!!!
Merci ouais sa passe bien, c'est génial mais sa m'affiche aprs le formulaire System.EventArgs . Qu'esce que c'est s'il vous plait? Je veux dire pourquoi sa apparait?

[bossun]

sans doute cette ligne

Code :

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

 con_close1.text=e.ToString ()