URGENT VB.NET
Résolu/Fermé
cindy_misa
Messages postés
146
Date d'inscription
vendredi 22 février 2008
Statut
Membre
Dernière intervention
6 août 2009
-
5 mars 2008 à 11:12
azertyxp4 - 2 nov. 2010 à 17:55
azertyxp4 - 2 nov. 2010 à 17:55
A voir également:
- URGENT VB.NET
- Vb.net download - Télécharger - Langages
- Tp vb.net + correction pdf - Forum VB / VBA
- Vb.net substring - Forum VB / VBA
- Contextmenustrip vb.net ✓ - Forum Framework .NET
- Vb.net mysql - Forum Webmastering
12 réponses
vince190
Messages postés
687
Date d'inscription
mardi 9 août 2005
Statut
Membre
Dernière intervention
19 février 2010
78
5 mars 2008 à 11:21
5 mars 2008 à 11:21
Salut,
La textbox où tu veux faire afficher ta donnée va bien lire dans une base de donnée?
Pourquoi ne testes-tu pas juste la cellule que tu lis?
Je pense que pour la lecture tu as dûe faire un compteur donc tu n'as qu'a testé. Si ta céllule est vide tu envois un champs vide dans ta textbox sinon tu ecris la donnée.
J'espere avoir été clair sinon n'hésites pas à me contacter.
Bon courage
La textbox où tu veux faire afficher ta donnée va bien lire dans une base de donnée?
Pourquoi ne testes-tu pas juste la cellule que tu lis?
Je pense que pour la lecture tu as dûe faire un compteur donc tu n'as qu'a testé. Si ta céllule est vide tu envois un champs vide dans ta textbox sinon tu ecris la donnée.
J'espere avoir été clair sinon n'hésites pas à me contacter.
Bon courage
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
5 mars 2008 à 11:27
5 mars 2008 à 11:27
bonjour,
En cherchant sur le site de developpez.com je suis tombé là dessus : http://faqvbnet.developpez.com/?page=adonet
Regarde à : Comment exécuter une requête paramétrée ? il y a un exemple avec Is DBNull ... si ça peut t'aider !!!
;o)
Polux
En cherchant sur le site de developpez.com je suis tombé là dessus : http://faqvbnet.developpez.com/?page=adonet
Regarde à : Comment exécuter une requête paramétrée ? il y a un exemple avec Is DBNull ... si ça peut t'aider !!!
;o)
Polux
cindy_misa
Messages postés
146
Date d'inscription
vendredi 22 février 2008
Statut
Membre
Dernière intervention
6 août 2009
44
5 mars 2008 à 11:40
5 mars 2008 à 11:40
c'est peux être ça , mais dans mon application je travaille en mode déconnecté .Je n'utilise pas le datareader.
merci pour le lien ,c'est gentil
merci pour le lien ,c'est gentil
cindy_misa
Messages postés
146
Date d'inscription
vendredi 22 février 2008
Statut
Membre
Dernière intervention
6 août 2009
44
5 mars 2008 à 11:32
5 mars 2008 à 11:32
j'utilise les textbox pour afficher les champs de la table clients de la base de données ,voici le syntaxe qui teste si la valeur du champ est null :
If Not IsDBNull(dts.Tables("clients").Rows(0)(12)) Then
t13.Text = dts.Tables("clients").Rows(0)(12)
Else
t13.Text = ""
End If
ça marche , mais j'ai beaucoup de champs dans cette table , alors je veux un syntaxe qui teste si un champ de la table est vide .....sans que je refais le sytaxe devant chaque affichage du textbox ,tu vois ce que je veux ?
If Not IsDBNull(dts.Tables("clients").Rows(0)(12)) Then
t13.Text = dts.Tables("clients").Rows(0)(12)
Else
t13.Text = ""
End If
ça marche , mais j'ai beaucoup de champs dans cette table , alors je veux un syntaxe qui teste si un champ de la table est vide .....sans que je refais le sytaxe devant chaque affichage du textbox ,tu vois ce que je veux ?
vince190
Messages postés
687
Date d'inscription
mardi 9 août 2005
Statut
Membre
Dernière intervention
19 février 2010
78
5 mars 2008 à 11:42
5 mars 2008 à 11:42
Je vois ce que tu veux oui.
Combien as-tu de textbox comme sa?
Combien as-tu de textbox comme sa?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
cindy_misa
Messages postés
146
Date d'inscription
vendredi 22 février 2008
Statut
Membre
Dernière intervention
6 août 2009
44
5 mars 2008 à 11:47
5 mars 2008 à 11:47
ok , j'ai 75 textbox !!
vince190
Messages postés
687
Date d'inscription
mardi 9 août 2005
Statut
Membre
Dernière intervention
19 février 2010
78
5 mars 2008 à 11:52
5 mars 2008 à 11:52
Ah ok!
A part créer une procédure qui testerait si tes cellules sont vides je vois pas trop. Parce que pour 75 textbox sa risque d'être galère.
A mon avis il faut que tu créer une procédure public.
Tu vois comment faire ou pas?
A part créer une procédure qui testerait si tes cellules sont vides je vois pas trop. Parce que pour 75 textbox sa risque d'être galère.
A mon avis il faut que tu créer une procédure public.
Tu vois comment faire ou pas?
cindy_misa
Messages postés
146
Date d'inscription
vendredi 22 février 2008
Statut
Membre
Dernière intervention
6 août 2009
44
5 mars 2008 à 12:00
5 mars 2008 à 12:00
oui , mais quel est le contenu de cette procédure , coment tester si les cellules sont null avec cette procédure ?
merci pour ton aide !!
merci pour ton aide !!
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
5 mars 2008 à 12:00
5 mars 2008 à 12:00
Oui je vois très bien ce que tu veux ... mais je n'ai pas la solution miracle ... dsl
;o(
polux
;o(
polux
cindy_misa
Messages postés
146
Date d'inscription
vendredi 22 février 2008
Statut
Membre
Dernière intervention
6 août 2009
44
5 mars 2008 à 12:13
5 mars 2008 à 12:13
ok , merci en tout cas ,c'est pas grave
cindy_misa
Messages postés
146
Date d'inscription
vendredi 22 février 2008
Statut
Membre
Dernière intervention
6 août 2009
44
5 mars 2008 à 12:07
5 mars 2008 à 12:07
regardez l'idée que j'ai :
j'ai declaré deux variables i et j :
Dim i, j As Integer
j'ai fait deux procedure :
une pour l'affichage :
Public Sub affichageclientes()
t1.Text = dts.Tables("clientes").Rows(0)(0)
t2.Text = dts.Tables("clientes").Rows(0)(1)
t3.Text = dts.Tables("clientes").Rows(0)(2)
t4.Text = dts.Tables("clientes").Rows(0)(3)
t5.Text = dts.Tables("clientes").Rows(0)(4)
t6.Text = dts.Tables("clientes").Rows(0)(5)
.
.
.
etc ....
end sub
et une pour affecter aux textbox des chaines vides :
Public Sub affichagevide()
t1.Text = ""
t2.Text = ""
t3.Text = ""
t4.Text = ""
t5.Text = ""
t6.Text = ""
t7.Text = ""
t8.Text = ""
.
.
.
.
.
etc...
end sub
et dans le form_load j'ai fait ce test :
str = "data source = localhost ;initial catalog=gestionempresa;integrated security=sspi"
req = "select * from clientes "
con = New SqlConnection(str)
con.Open()
dts = New DataSet("gestionempresa")
dta = New SqlDataAdapter(req, con)
dta.Fill(dts, "clientes")
If Not (dts.Tables("clientes").Rows(i)(j)) Then
affichageclientes()
Else
affichagevide()
End If
mais il a affiché seulement les premiers champs qui ne sont pas vide ,et il a arrete l'affichage .
pouvez vous developpez cette idée avec moi ?
j'ai declaré deux variables i et j :
Dim i, j As Integer
j'ai fait deux procedure :
une pour l'affichage :
Public Sub affichageclientes()
t1.Text = dts.Tables("clientes").Rows(0)(0)
t2.Text = dts.Tables("clientes").Rows(0)(1)
t3.Text = dts.Tables("clientes").Rows(0)(2)
t4.Text = dts.Tables("clientes").Rows(0)(3)
t5.Text = dts.Tables("clientes").Rows(0)(4)
t6.Text = dts.Tables("clientes").Rows(0)(5)
.
.
.
etc ....
end sub
et une pour affecter aux textbox des chaines vides :
Public Sub affichagevide()
t1.Text = ""
t2.Text = ""
t3.Text = ""
t4.Text = ""
t5.Text = ""
t6.Text = ""
t7.Text = ""
t8.Text = ""
.
.
.
.
.
etc...
end sub
et dans le form_load j'ai fait ce test :
str = "data source = localhost ;initial catalog=gestionempresa;integrated security=sspi"
req = "select * from clientes "
con = New SqlConnection(str)
con.Open()
dts = New DataSet("gestionempresa")
dta = New SqlDataAdapter(req, con)
dta.Fill(dts, "clientes")
If Not (dts.Tables("clientes").Rows(i)(j)) Then
affichageclientes()
Else
affichagevide()
End If
mais il a affiché seulement les premiers champs qui ne sont pas vide ,et il a arrete l'affichage .
pouvez vous developpez cette idée avec moi ?
vince190
Messages postés
687
Date d'inscription
mardi 9 août 2005
Statut
Membre
Dernière intervention
19 février 2010
78
5 mars 2008 à 14:34
5 mars 2008 à 14:34
C'est ce a quoi je faisais allusion toutaleur.
Tu t'y prends bien mais il faut que tu incrémente ton i et ton j qui sont je pense 2 compteurs que tu veux faire.
Ceux que tu peux faire c'est te servir de i pour incrémenter ton numéro de ligne.
Ensuite tu test à chaque fois si tu as une chaine vide, sa srait du genre:
Public Sub affichageclientes()
for i=1 to eof(1)
t1.Text = dts.Tables("clientes").Rows(i)(0)
t2.Text = dts.Tables("clientes").Rows(i)(1)
t3.Text = dts.Tables("clientes").Rows(i)(2)
t4.Text = dts.Tables("clientes").Rows(i)(3)
t5.Text = dts.Tables("clientes").Rows(i)(4)
t6.Text = dts.Tables("clientes").Rows(i)(5)
next
Je n'ai pas pu essayer vu que je n'ai pas vb sous la main mais j'espere que sa t'aidera. Sinon n'hesites pas a donner plus de renseignements encore pour un coup de main plus efficace.
Tu t'y prends bien mais il faut que tu incrémente ton i et ton j qui sont je pense 2 compteurs que tu veux faire.
Ceux que tu peux faire c'est te servir de i pour incrémenter ton numéro de ligne.
Ensuite tu test à chaque fois si tu as une chaine vide, sa srait du genre:
Public Sub affichageclientes()
for i=1 to eof(1)
t1.Text = dts.Tables("clientes").Rows(i)(0)
t2.Text = dts.Tables("clientes").Rows(i)(1)
t3.Text = dts.Tables("clientes").Rows(i)(2)
t4.Text = dts.Tables("clientes").Rows(i)(3)
t5.Text = dts.Tables("clientes").Rows(i)(4)
t6.Text = dts.Tables("clientes").Rows(i)(5)
next
Je n'ai pas pu essayer vu que je n'ai pas vb sous la main mais j'espere que sa t'aidera. Sinon n'hesites pas a donner plus de renseignements encore pour un coup de main plus efficace.
cindy_misa
Messages postés
146
Date d'inscription
vendredi 22 février 2008
Statut
Membre
Dernière intervention
6 août 2009
44
5 mars 2008 à 16:18
5 mars 2008 à 16:18
ok, merci en tous cas , mais que signifie for i=1 to eof(1)
je ne comprend pas bien la structure " eof(1) "
je ne comprend pas bien la structure " eof(1) "
vince190
Messages postés
687
Date d'inscription
mardi 9 août 2005
Statut
Membre
Dernière intervention
19 février 2010
78
5 mars 2008 à 16:27
5 mars 2008 à 16:27
C'est la fin de fichier. En fait il s'agit d'une fonction qui detecte la derniere ligne de ton tableau.
Pour le for il s'agit d'une boucle qui va executer tout ce que tu auras mis entre le debut et la fin de la valeur 1 à la derniere valeur du tableau.
Pour le for il s'agit d'une boucle qui va executer tout ce que tu auras mis entre le debut et la fin de la valeur 1 à la derniere valeur du tableau.
cindy_misa
Messages postés
146
Date d'inscription
vendredi 22 février 2008
Statut
Membre
Dernière intervention
6 août 2009
44
5 mars 2008 à 16:47
5 mars 2008 à 16:47
ok , j'ai fait ce que tu m'as dit mais il a affiché un message d'erreur :
bad file name or number
c'est ce que j'ai ecrit :
If Not (dts.Tables("clientes").Rows(i)(j)) Then
For i = 1 To EOF(1)
affichageclientes()
Next
Else
affichagevide()
End If
bad file name or number
c'est ce que j'ai ecrit :
If Not (dts.Tables("clientes").Rows(i)(j)) Then
For i = 1 To EOF(1)
affichageclientes()
Next
Else
affichagevide()
End If
vince190
Messages postés
687
Date d'inscription
mardi 9 août 2005
Statut
Membre
Dernière intervention
19 février 2010
78
7 mars 2008 à 12:12
7 mars 2008 à 12:12
Ok il faudra que tu m'envois ton projet directement je pense comme sa je regarderais directement pour te donner une solution.
On se voit sur msn...
On se voit sur msn...
