Remplir dynamiquement un TextBox

Version imprimable

Voici ce que j'ai dans mon script

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

07/07/2010, 10h22
bossun

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

Code:

Reader.Read()
07/07/2010, 10h47
SonnyFab

comme sa?

Code:

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

Non plutôt comme ça

Code:

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)

07/07/2010, 14h00
SonnyFab

Wahouu! que l'on me pince i=dites moi que je reve!!! :yaisse2:
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?
07/07/2010, 14h06
bossun

sans doute cette ligne

Code:

con_close1.text=e.ToString ()
07/07/2010, 14h12
SonnyFab

Mais cette ligne comme en java (où j'ai appris à m'en servir) c'est pour gerer une erreur mais puisque la connection s'est bien établie il devrai pas avoir d'erreur à renvoiyé non??!! Mais alors pourquoi cette ligne apparait?
07/07/2010, 14h29
bossun

Tu dois avoir un code qui traine dans ta page...
07/07/2010, 16h21
SonnyFab

Un code qui traine??? 8O8O8O
Ouais je réfléchis et je ne fais que sa depuis :mouarf:
Je sais qu'avec try Instruction1 catch error1 l'instruction1 et l'error1 ne peut etre exécuter en meme temp si sa passe c'est Instruction, si sa rate se code:

Code:

con_close1.text=e.ToString ()

me renvoie l'erreur exacte, or ici le code passe apparement et que System.EventArgs est la classe de base pour les classes contenant des données d'événement. J'ai pas utilisé cette classe. Et alors porquoi il apparait? e.ToString () ne m'a pas dit qu'il y'avait une erreur....
07/07/2010, 16h37
lutecefalco

Ouahhhh, c'est i l'exception dans ton code, pas e 8O8O8O
07/07/2010, 16h57
SonnyFab

Ah d'accord sa devais etre une grosse erreur mais c'était sencé s'arragé mais voici la nouvelle erreur:

Citation:

System.InvalidCastException: La conversion du type 'DBNull' en type 'String' n'est pas valide. à Microsoft.VisualBasic.CompilerServices.Conversions.ToString(Object Value) à ASP.projet_admin_modifyclient_aspx.Verife(Object sender, EventArgs e)

Notons que la page s'affiche bien.:whistle2:
07/07/2010, 17h01
lutecefalco

Bon bah voilà, t'as une erreur dans code. Et le message est suffisamment clair, à toi de la corriger
07/07/2010, 17h01
bossun

remplace

Code:

con_close1.text=e.ToString ()

par

Code:

con_close1.text=i.Message()

et regarde ce qui se passe.
07/07/2010, 17h05
bossun

En gros, tu as un champ à null dans ton Reader.

Il faut que tu fasse un test si ton champ n'est pas null avant de le lire. sinon il ne va jamais fonctionner.

en gros ton code devrait ressembler à ça

Code:

zeClient.Text=Iif(Reader.IsDbNull(1),"",Reader(1))

avec i.Message() c'est idem...
J'ai modifier le code:

Code:

1
2
3
4
5
6
7
 Reader.read()
	  zeClient.Text=if(Reader.IsDbNull(1),"",Reader(1))
	   zePre.Text=if(Reader.IsDbNull(5),"",Reader(5))
	  zePost.Text=if(Reader.IsDbNull(0),"",Reader(0))
	   zeNomDG.Text=if(Reader.IsDbNull(2),"",Reader(2))
	   zeNum.Text=if(Reader.IsDbNull(4),"",Reader(4))
	   zeRespNum.Text=if(Reader.IsDbNull(3),"",Reader(3))

Mais j'obtient cette erreur:

Citation:

Expression attendue.

Et là le code ne passe plus...:cry:

07/07/2010, 17h21
SonnyFab

C'est Iif ou if?
Parceque avec Iif c'est la meme erreur

Stp M.luce...
Je resume je charge les textBox pour une modification, Puis je modifie et j'insere à nouveau. Le chargement est déja opérationnel (Meme si je comprend pas ce Iif mais bon une petite recherche me fera du bien ). Mais lorsque j'insère avec cette fonction , hop les érreurs reviennent, voici ma fonction:

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
 
Dim cmpt As String
Protected sub Envoie(sender As Object, e As System.EventArgs) 
cmpt=""		  
       if zeClient.Text=""
         zaErrClient.Text="Vous devez entrer un nom pour le client"
         cmpt="Error"
      else zaErrClient.Text=""
       cmpt=""
       end if
 
    if zePre.Text="" or IsNumeric(zePre.Text)=false
     zaErrPre.Text="Vous devez entrer in identiant Prépaid Numéric"
     cmpt="Error"
      else zaErrPre.Text=""
     if cmpt.Equals("Error") Then
     cmpt="Error"
     else
     cmpt=""
      end if
       end if
 
     if zePost.Text="" or zePost.Text.Length<3 or zePost.Text.Length>3
     zaErrPost.Text="Vous devez entrer un identificateur postpaid ayant pour longueur 3"
     cmpt="Error"
     else zaErrPost.Text=""
     if cmpt.Equals("Error") Then
     cmpt="Error"
     else
     cmpt=""
   end if
    end if
 
   Response.Write("<br/><br/>")
 
    if Not cmpt.Equals("Error") Then
 
    ' Etablissement de la Connection'
       Dim AddConnection as String = "user id=sa;password=toto;" 
       AddConnection += "database=MaBase;server=MyServer;" 
       AddConnection += "Connect Timeout=30" 
 
	   Dim Connection10 as New SqlConnection ( AddConnection ) 
	   try
	    Connection10.Open () 
 
		  try
		   'Exécution dune requête SELECT'
		Dim Command1 as New SqlCommand("update from dbo.CLIENT  set IdPostpaid='"+zePost.Text+"' where NomClient='"+client+"'",Connection10)  
		Dim Reader1 as SqlDataReader = command1.ExecuteReader()
		Reader1.Close()
 
		Dim Command2 as New SqlCommand("update from dbo.CLIENT  set IdPretpaid='"+zePre.Text+"' where NomClient='"+client+"'",Connection10)  
		Dim Reader2 as SqlDataReader = command2.ExecuteReader()
		Reader2.Close()
 
		Dim Command3 as New SqlCommand("update from dbo.CLIENT  set NumClient='"+zeNum.Text+"' where NomClient='"+client+"'",Connection10)  
		Dim Reader3 as SqlDataReader = command3.ExecuteReader()
		Reader3.Close()
 
		Dim Command4 as New SqlCommand("update from dbo.CLIENT  set NomDG='"+zeNomDG.Text+"' where NomClient='"+client+"'",Connection10)  
		Dim Reader4 as SqlDataReader = command4.ExecuteReader()
		Reader4.Close()
 
		Dim Command5 as New SqlCommand("update from dbo.CLIENT  set NomRespNum='"+zeRespNum.Text+"' where NomClient='"+client+"'",Connection10)  
		Dim Reader5 as SqlDataReader = command5.ExecuteReader()
		Reader5.Close()
 
       Dim CommandAdd As New SqlCommand("update from dbo.CLIENT  set NomClient='"+zeClient.Text+"' where NomClient='"+client+"'",Connection10)
	   Dim AddReader As SqlDataReader = CommandAdd.ExecuteReader()
	   AddReader.Close()
 
	    lbel.Text="<h2> Mise à jour réussie, Vous avez ajouter un nouveau Client !!! </h2><br/>"
		  AddReader.Close() 
  catch o as Exception 
		  lbel.Text="<h2> Echec lors de l'insertion !!! </h2>"
		    lbel.text=o.ToString 
      	      end try
		    Connection10.Close()
     catch u as Exception 
 
	  con_open.text= "Erreur lors de l'ouverture.<br />" 
	    con_close.text=u.ToString () 
	 end try 
 
  else
  lbl.Text="<h2> Erreur lors du remplissage du formulaire!</h2><br/> "
  end if

Notez quand meme que je code grave de mon coté, et tous ce que vous m'apprenez je les retiens et les applique aussi...;)

08/07/2010, 10h17
SonnyFab
Ouais M. lutecefalco a parfois raison je déconne un peu trop dans mes codes :boulet:
Ul n'ay pas de from dans la requette de mise à jour.

Code:

update dbo.CLIENT set NomClient='"+zeClient.Text+"' where NomClient='"+client+"'",Connection10)

Aussi il faut décarer une nouvelle variable qui recupere la valeur selectionnée du dropDownList dans la fonction sinon elle ne reconaitra pas cellec-ci
Code:

1 2 Dim client1 as String client1=DropDownList1.SelectedValue
Courage les débutants comme les amateurs c'est quand tous semble perdu qu'il ne faut jamais abandonné ;)

Merci encore!!!:P