Discussion :

[albatros_tn]

salut a tous,
voila, je debute en VB.NET et je fait une application de gestion d'un distributeur automatique de billets,
j'utilise une base acces qui contient les codes secrets des clients,
a chaque fois que le client introduit son code je voudrait verifier si ce dernier existe dans ma base ou non,
voila le code :
*les declarations sont correctement faites (enfin je crois)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
While monrownumber < Matable.Rows.Count
If Me.TextBox1.Text = Matable.Rows(monrownumber).Item("Code Secret") Then
MsgBox("Numero de Compte Valide", MsgBoxStyle.OkOnly, "bienvenue")
Me.Hide()
Form2.Show()
End If
monrownumber += 1
End While
If monrownumber > Matable.Rows.Count Then
If Me.TextBox1.Text <> Matable.Rows(monrownumber).Item("Code Secret") Then
MsgBox("Code secret non Valide", MsgBoxStyle.Critical, "Sortie")
End If
End If

Mais à l'execution il m'affiche l'exception suivante:
"there's no row in the position 0" ou quelque soit la position
et matable.rows.count me renvoit 0.
pourtant ma base n'est pas vide.


si quelqu'un a la gentiellesse de me donner un coup de main, j'en ai vraiment besoin.
et c'est urgent.
merci

[smyley]

Donc,
Tout d'abord utilise un titre plus clair pour tes méssages, un titre qui résume en gros ton problème car là il n'a aucun sens ...

Ensuite,

et, pour finir, je pense que ton problème vient du fait que tu suppose que monrownumber > Matable.Rows.Count dans le code :

Code :

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

1
2
3
4
5
If monrownumber > Matable.Rows.Count Then
If Me.TextBox1.Text <> Matable.Rows(monrownumber).Item("Code Secret") Then
MsgBox("Code secret non Valide", MsgBoxStyle.Critical, "Sortie")
End If
End If

Essaye ceci

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
 
Dim trouve as Integer = -1 //pas sur ... j'aime pas le VB.NET
monrownumber = 0
While monrownumber < Matable.Rows.Count
If Me.TextBox1.Text = Matable.Rows(monrownumber).Item("Code Secret") Then
trouve = monrownumber
End If
monrownumber += 1
End While
 
If trouve > -1 then
 MsgBox("Numero de Compte Valide", MsgBoxStyle.OkOnly, "bienvenue")
 Me.Hide()
 Form2.Show()
Else //pas sur non plus
MsgBox("Code secret non Valide", MsgBoxStyle.Critical, "Sortie")
End If

matable.rows.count me renvoit 0.
pourtant ma base n'est pas vide.

Je sais pas par contre ...

et c'est urgent.

Il n'y a rien d'urgent, que des choses en retard ...

[olsimare]

Bonjour.

matable.rows.count me renvoit 0.
pourtant ma base n'est pas vide.

Il faudrait voir comment tu la charges, car là on ne peut pas dire grand chose.

Nota : pourquoi ne pas se contenter d'un select tout bête directement en base pour ce genre de controle ? Là ça t'oblige à décharger toute la table pour une ligne ...
Avec 100 lignes ça va, avec 100 000, bonjour les dégats !

Cdt.

[albatros_tn]

merci pour votre aide, mon problème est resolu.
mais merci quand meme.