petiflamand
Messages postés675Date d'inscriptionsamedi 31 mai 2003StatutMembreDernière intervention26 mai 2013
-
22 févr. 2008 à 23:13
LIBRE_MAX
Messages postés1402Date d'inscriptionmardi 1 mai 2007StatutMembreDernière intervention 7 octobre 2012
-
24 févr. 2008 à 17:03
Bonjour , pouvez-vous me dire comment faire pour faire un db.execute pour le code qui suis
ici je fait une boucle pour trouver le ticket qui porte un numéro , mais sa prend longtemps si il y a
beaucoup de ticket 40000 a 100000
Merci
Set rd = db.OpenRecordset("journalier")If Text5 "" Then Text5 "cash"
Do Until rd.EOF = True
If rd!nticket = principale.Text2 Then
rd.Edit
rd!mode_pay = Text5
rd.Update
End If
rd.MoveNext
Loop
LIBRE_MAX
Messages postés1402Date d'inscriptionmardi 1 mai 2007StatutMembreDernière intervention 7 octobre 20126 24 févr. 2008 à 16:16
pardon !
la première table c' est ticket, et journalier après.
tu conserves le même shema de l' expression . Tu changes seulement le nom de la table et le nom des champs correspondants
<hr />
... Y'en a même qui disent qu'ils l'ont vu voler.
<hr />
/PRE>
petiflamand
Messages postés675Date d'inscriptionsamedi 31 mai 2003StatutMembreDernière intervention26 mai 20131 24 févr. 2008 à 15:55
Pour le TEXT5 c'est bien text5 et pas principale.text5
Private Sub Command2_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Open App.Path & "\path.dat" For Input As #1
Line Input #1, a
Close #1
Set db = OpenDatabase(a)
'db.Execute (" INSERT INTO archive ( nticket, ncaisse, [date], heure, cod_prod, design, departement, prix_achat, prix_vente, quantité, pvente, mois, année, TOTAL ) SELECT caisse1.nticket, caisse1.ncaisse, caisse1.date, caisse1.heure, caisse1.cod_prod, caisse1.design, caisse1.departement, caisse1.prix_achat, caisse1.prix_vente, caisse1.quantité, caisse1.pvente, caisse1.mois, caisse1.année, caisse1.TOTAL FROM caisse1;")
db.Execute (" INSERT INTO archive ( opa,nticket, ncaisse, [date], heure, cod_prod, design, tva, departement, prix_achat, prix_vente, quantité, pvente, mois, année, TOTAL ) SELECT caisse1.opa,caisse1.nticket, caisse1.ncaisse, caisse1.date, caisse1.heure, caisse1.cod_prod, caisse1.design, caisse1.tva, caisse1.departement, caisse1.prix_achat, caisse1.prix_vente, caisse1.quantité, caisse1.pvente, caisse1.mois, caisse1.année, caisse1.TOTAL FROM caisse1;")
db.Execute (" INSERT INTO ticket ( opa,nticket, ncaisse, [date], heure, cod_prod, design, tva, departement, prix_achat, prix_vente, quantité, pvente, mois, année, TOTAL ) SELECT caisse1.opa,caisse1.nticket, caisse1.ncaisse, caisse1.date, caisse1.heure, caisse1.cod_prod, caisse1.design, caisse1.tva, caisse1.departement, caisse1.prix_achat, caisse1.prix_vente, caisse1.quantité, caisse1.pvente, caisse1.mois, caisse1.année, caisse1.TOTAL FROM caisse1;")
db.Execute (" INSERT INTO journalier ( opa,numero_dep, tva, nticket, ncaisse, [date], heure, cod_prod, design, departement, prix_achat, prix_vente, quantité, pvente, mois, année, TOTAL ) SELECT caisse1.opa,caisse1.numero_dep, caisse1.tva, caisse1.nticket, caisse1.ncaisse, caisse1.date, caisse1.heure, caisse1.cod_prod, caisse1.design, caisse1.departement, caisse1.prix_achat, caisse1.prix_vente, caisse1.quantité, caisse1.pvente, caisse1.mois, caisse1.année, caisse1.TOTAL FROM caisse1;")
db.Execute (" INSERT INTO moi ( opa,numero_dep, tva, nticket, ncaisse, [date], heure, cod_prod, design, departement, prix_achat, prix_vente, quantité, pvente, mois, année, TOTAL ) SELECT caisse1.opa,caisse1.numero_dep, caisse1.tva, caisse1.nticket, caisse1.ncaisse, caisse1.date, caisse1.heure, caisse1.cod_prod, caisse1.design, caisse1.departement, caisse1.prix_achat, caisse1.prix_vente, caisse1.quantité, caisse1.pvente, caisse1.mois, caisse1.année, caisse1.TOTAL FROM caisse1;")
db.Execute (" INSERT INTO shift ( opa,numero_dep, tva, nticket, ncaisse, [date], heure, cod_prod, design, departement, prix_achat, prix_vente, quantité, pvente, mois, année, TOTAL ) SELECT caisse1.opa,caisse1.numero_dep, caisse1.tva, caisse1.nticket, caisse1.ncaisse, caisse1.date, caisse1.heure, caisse1.cod_prod, caisse1.design, caisse1.departement, caisse1.prix_achat, caisse1.prix_vente, caisse1.quantité, caisse1.pvente, caisse1.mois, caisse1.année, caisse1.TOTAL FROM caisse1;")
'test mode payement
'Set db = OpenDatabase(App.Path & "\manager.mdb")
Set rd = db.OpenRecordset("ticket")If Text5 "" Then Text5 "cash"
Do Until rd.EOF = True
If rd!nticket = principale.Text2 Then
rd.Edit
rd!mode_pay = Text5
rd.Update
End If
rd.MoveNext
Loop
'------------------------------------------
Set rd = db.OpenRecordset("journalier")If Text5 "" Then Text5 "cash"
Do Until rd.EOF = True
If rd!nticket = principale.Text2 Then
rd.Edit
rd!mode_pay = Text5
rd.Update
End If
rd.MoveNext
Loop'Set rd db.OpenRecordset("moi")If Text5 "" Then Text5 "cash"
Do Until rd.EOF = True
If rd!nticket = principale.Text2 Then
rd.Edit
rd!mode_pay = Text5
rd.Update
End If
rd.MoveNext
Loop'Set rd db.OpenRecordset("archive")If Text5 "" Then Text5 "cash"
Do Until rd.EOF = True
If rd!nticket = principale.Text2 Then
rd.Edit
rd!mode_pay = Text5
rd.Update
End If
rd.MoveNext
Loop'Set rd db.OpenRecordset("shift")If Text5 "" Then Text5 "cash"
Do Until rd.EOF = True
If rd!nticket = principale.Text2 Then
rd.Edit
rd!mode_pay = Text5
rd.Update
End If
rd.MoveNext
Loop
'=======================================
'jusque ici
db.Execute (" delete caisse1.* FROM caisse1;")
Set rs = db.OpenRecordset("ccompte1")
rs.Edit
rs!compteur = rs!compteur + 1
rs!compteur_journalier = rs!compteur_journalier + 1
rs.Update
rs.Close
db.Close
principale.Timer3.Enabled = True
JouerUnWav (App.Path & "\son\cash.wav")
If Text4 = "0,00" Then Command5_Click
LIBRE_MAX
Messages postés1402Date d'inscriptionmardi 1 mai 2007StatutMembreDernière intervention 7 octobre 20126 24 févr. 2008 à 16:12
à partir de
'test mode payement
tu continues dans la même procédure
'pour la table journalier
DBEngine.WorkSpaces(0).BeginTrans
db.execute "UPDATE journalier SET journalier.mode_pay = '" & _ Text5.Text & _
"' WHERE (([journalier]![nticket]='" & principale.Text2 & "'));"
DBEngine.WorkSpaces(0).CommitTrans 'valide l' opération
et tu supprimes ou tu mets en comment bien sûr les lignes
<strike>'Set db = OpenDatabase(App.Path & "\manager.mdb")
Set rd = db.OpenRecordset("ticket")If Text5 "" Then Text5 "cash"
Do Until rd.EOF = True
If rd!nticket = principale.Text2 Then
rd.Edit
rd!mode_pay = Text5
rd.Update
End If
rd.MoveNext
Loop</strike>
tu fais de même pour les tables ticket, moi, archive,
ccompte1,shift