Option Explicit Private BDCaisse As New clsADO Private BDConsultation As New clsADO Private Sub Form_Load() BDCaisse.DBConnect "C:\Logiciels\DB\BDCaisse.mdb" BDConsultation.DBConnect "C:\Logiciels\DB\BDConsultation.mdb" End Sub Private Sub Form_Unload(Cancel As Integer) Set BDConsultation = Nothing Set BDCaisse = Nothing End Sub
cn.Execute " INSERT INTO tableimpconsultation " & _ " select TC.numticket AS NumTicket, TC.datevente AS DateVente, TTC.numtypevente AS NumTypeVente, TTC.typevente AS TypeVente , P.numproduit AS NumProduit, " & _ " P.desproduit AS DesProduit, TC.qtevente AS QteVente, P.puproduit AS PrixUnitaire, TC.remisevente AS Remise, TC.tvavente AS TVA " & _ " From tableconsultation TC, tableTypeconsultation TTC, tableProduit P " & _ " Where TC.numtypevente TTC.numtypevente AND TC.numproduit P.numproduit AND TC.numticket = " & txtnumticket & " "
From tableconsultation TC, tableTypeconsultation TTC, tableProduit P
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
donc la TABLE tableProduit n'est pas dans la même BASE que les TABLES tableconsultation et tableTypeconsultation ??
Est-ce qu'il me serait possible de créer une table Produit ...c'est ce que j'ai suggéré oui. pourquoi pas dans l'autre base si tu peux altérer (ou une tampon si tu ne peux pas)
...identique à celle qui est dans BD1 (mais vide) dans ma BD2ah? je croyais que Produit était déjà dans BD2, cf ton PS :
et que la table Produit de BD2
et "rapatrier" juste les données du produitsi c'est juste les données, c'est juste une requête, dépend de ce que tu dois faire de ces données et à quel niveau elles rentrent en compte pour l'autre base
tu as donc BDCaisse.RS qui te fournit les éléments nécessaires
et tu fais ton INSERT sur BDConsultation
Consultation.DBConnect "db1.mdb" Produit.DBConnect "db2.mdb" Produit.RSExecute "SELECT * FROM produit WHERE ID_P = 10;" Produit.RS.movefirst msgbox "on va jouer avec " & Produit.RS.fields("LIB_P").value & " dont il reste " & Produit.RS.fields("QTE_P").value & " unité(s)" Consultation.RSExecute "INSERT INTO consultation " & _ "(DATE_C, USER_C, LIB_P, COST_P) VALUES (" & _ "#" & format$(date, "YYYY-MM-DD") & "#, " & _ "'js8bleu', " & _ "'" & replace(Produit.RS.fields("LIB_P").value, "'", "''") & "', " & _ Produit.RS.fields("COST_P").value & ");" Produit.RSClose Consultation.RSClose