Remplir dynamiquement un TextBox

**SonnyFab** · 06/07/2010, 17h29

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** · 07/07/2010, 10h22

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** · 07/07/2010, 10h47

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** · 07/07/2010, 13h53

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** · 07/07/2010, 14h00

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** · 07/07/2010, 14h06

sans doute cette ligne

Code :

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

 con_close1.text=e.ToString ()

**SonnyFab** · 07/07/2010, 14h12

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?

**bossun** · 07/07/2010, 14h29

Tu dois avoir un code qui traine dans ta page...

**SonnyFab** · 07/07/2010, 16h21

Un code qui traine???

Ouais je réfléchis et je ne fais que sa depuis

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 :

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

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

**lutecefalco** · 07/07/2010, 16h37

Ouahhhh, c'est i l'exception dans ton code, pas e

**SonnyFab** · 07/07/2010, 16h57

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

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.

**lutecefalco** · 07/07/2010, 17h01

Bon bah voilà, t'as une erreur dans code. Et le message est suffisamment clair, à toi de la corriger

**bossun** · 07/07/2010, 17h01

remplace

Code :

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

con_close1.text=e.ToString ()

par

Code :

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

con_close1.text=i.Message()

et regarde ce qui se passe.

**bossun** · 07/07/2010, 17h05

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 :

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

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

**SonnyFab** · 07/07/2010, 17h19

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

Code :

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

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:

Expression attendue.

Et là le code ne passe plus...

**SonnyFab** · 07/07/2010, 17h21

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

**SonnyFab** · 07/07/2010, 17h31

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 :

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

**SonnyFab** · 08/07/2010, 10h17

Ouais M. lutecefalco a parfois raison je déconne un peu trop dans mes codes

Ul n'ay pas de from dans la requette de mise à jour.

Code :

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

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 :

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

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

Remplir dynamiquement un TextBox

ASP.NET

Discussions similaires

Partager

Partager