jointure(manipulation de plusieurs tables avec vb.net)

Version imprimable

01/10/2008, 17h07
juleshervey

jointure(manipulation de plusieurs tables avec vb.net)

bonjour à tous...
je viens vous faire part de qlque diffucultes que j'ai sur vb.net
j'ai un projet sur la gestion des stocks mais malheuresement la liaison de 4 tables me posent problemes plus précisement client,commande,detail_commande et article

client(codeclt,nomouraisonsociale,cp,ville,pays,telephone,fax )
commande(codecmd,codeclt,date,delai,livraison)
detail_commande(codedcmd,codecmd,codeart,date)
article(codeart,des,pu,montant,total)

je veux en lanssant mon application au chargement de la feuille qu'il m'affiche les commandes d'1 client quelconque dans les textbox et le datagridview

le mien que j'ai sur place m'affiche des erreurs et je travaille en mode deconnecte
merci
01/10/2008, 18h03
SaumonAgile

Quel est le code que tu utilises ?
Quelles sont les erreurs ?

Et pense à lire les règles si tu veux obtenir des réponses.
02/10/2008, 18h32
callo

Si tu pouvais poster ton code, celà faciliterait les choses

jointure

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
Private Sub detail_cmd_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
con = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "D:\Documents and Settings\lolo\Mes documents\projet_etude\bdstocks.mdb"
objcon = New OleDb.OleDbConnection
objcon.ConnectionString = con
objcon.Open()
 
sql = "select art.des,art.pu,art.montant,art.total," & _
"d_cmd.qte_cmd," & _
"cmd.num_cmd,cmd.date," & _
"clt.num_clt,clt.nomsocial,clt.tel," & _
"from client clt,B_commande cmd,detail_commande d_cmd,article art," & _
"where clt.num_clt=cmd.num_clt and cmd.num_cmd=d_cmd.num_cmd and d_cmd.num_art=art.num_art and cmd.num_clt"
 
objcmd = New OleDb.OleDbCommand(sql, objcon)
objdtr = objcmd.ExecuteReader
objdtr.Read()
objdtadapter = New OleDb.OleDbDataAdapter(sql, objcon)
objdttable = New DataTable
objdtadapter.Fill(objdttable)
 
If objdttable.Rows.Count = 0 Then
 
MessageBox.Show("desole il n'y a pas de donnee pour cet enregistrement :")
 
Exit Sub
 
Else
 
'afficher les donnes dans les textbox et le datagridview
Me.txtnum.Text = objdtr.Item(0)
Me.txtnumcmd.Text = objdtr.Item(5)
Me.cmbdate.Value = objdtr.Item(6)
Me.txtcdclt.Text = objdtr.Item(7)
Me.txtnom.Text = objdtr.Item(8)
Me.txttel.Text = objdtr.Item(9)
matable = objdttable
dtgriddetail.DataSource = objdttable
 
End If
 
End Sub

vous allez remarquer que j'ai differencie avec le premier message par des numeros mais le but je veux afficher les articles commandes par un client quelconque au chargement de la feuille .
si vous avez d'autres solutions à me proposer ça sera les bienvenus par contres le mien m'affiche une erreur au niveau de l'instruction select
merci

03/10/2008, 12h16
callo

Bonjour,
Pour commencer, tu devrais utiliser la baslie CODE (#) pour la lisibilité de ton code.

Citation:

Envoyé par juleshervey

si vous avez d'autres solutions à me proposer ça sera les bienvenus par contres le mien m'affiche une erreur au niveau de l'instruction select
merci

Je pense que tu devrais utiliser un bindingsource sur ton datagridview et lié ensuite tes textbox au bindingsource.
Quel est le message d'erreur que tu as au niveau de ton select ?
03/10/2008, 14h19
juleshervey

jointure

voilà le message qu'il m'affiche

Dans l'instruction SELECT, un mot réservé ou un argument est mal orthographié ou absent, ou la ponctuation est incorrecte.