tester si le numero de client existe pour ajouter dans la table fils produit

Question

bonjour, j'ai un petit probleme dans l'ajout d'un enregistrement &#224; ma base de donn&#233;es, je m'explique:

j'ai 2 table   client(id_clt, nom_clt, tel_clt) et produit(id_produit, id_clt, nom_produit)  alors le  "id_clt" c'est le cl&#233; etrangers dans la table produit ,
 le probleme c'est que je veux quand l'utilisateur veu inserer un produit il faut verifier si le client existe ou non . j'ai tap&#233; le code suivant :

Dim dr 
As DataRow = Ds1.Tables(1).NewRow

Dim v3() 
As DataRow
v3 Ds1.Tables("client").Select("id_clt " & id_clt.Text)

If v3(0).Item(0) 
Is id_clt.Text 
Then
dr("id_clt") = id_clt.Text
dr("id_produit") = t1.Text
dr("nom_produit") = t2.Text
Ds1.Tables(1).Rows.Add(dr)
dg.DataSource = 
Nothing
dg.DataSource = Ds1.Tables(1)

Else
MessageBox.Show("le client n'existe pas", "erreur", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

End 
If

il me donne ce message " L'index se trouve en dehors des limites du tableau." sur la ligne
  If v3(0).Item(0) Is id_clt.Text Then
 
Merci &#224; vous

cs_DARKSIDIOUS · Answer

Normal vu que les index des collections commencent &#224; 1 et non &#224; z&#233;ro, donc essaie plut&#244;t :
If v3(0).Item(1) 
Is id_clt.Text 
Then

_____________________________________________________________________
Avantde poster un message sur le forum, pri&#232;re de lire ceci :http://www.vbfrance.com/forum.v2.aspx?ID

amylee1984 · Answer

bonjour , j'ai changer le 0 pas 1 mais il me donne le meme message 
Merci pour ta reponse

pseudoOM · Answer

Essaie peut &#234;tre avec un record set !

Dim db_base_principale_Objet As Database
Dim rs_Client as Recordset

Set db_base_principale_Objet = OpenDatabase("Chemin de la base", False, False, "password")
Set rs_Client = db_base_principale_Objet.OpenRecordset("Select * from Client", dbOpenSnapshot)
rs_Client.FindFirst "id_clt=" + CStr(id_clt.Text)
If rs_Client.NoMatch Then
    MessageBox.Show("le client n'existe pas", "erreur", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

Else
    Autre instruction
End If

rs_Client.Close: Set rs_Client = Nothing

db_base_principale_Objet.Close: Set db_base_principale_Objet = Nothing

J'esp&#232;re que &#231;a t'aidera !

 pseudoOM

amylee1984 · Answer

bonjour pseudoOM , merci pour ce bout de code , mais comme tu sais moi je devlope sous vb.net2003 et non pas en vb6 , j'ai jamais utilis&#233; le recordSet et je travail en mode deconect&#233; alors je suis oblig&#233; d"utiliser le dataSet, ya pas d'autre solution ? merci bcp et desol&#233; pour le derangement

Tester si le numero de client existe pour ajouter dans la table fils produit

4 réponses

Discussions similaires