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