A Wednesday, December 07, 2005 2:37 PM [GMT+1=CET],
[EMAIL PROTECTED] <[EMAIL PROTECTED]> a
écrit :
Bonjour,
Bonjour,
Le contexte se situe dans un champ de sous-formulaire sur lequel j'ai
branché ma macro. Le sous-formulaire correspond au détail d'une commande qui
se présente sous forme d'une table avec notamment les champs DEDESIGN pour
Désignation de l'article commandé (rattaché à table DETAILCOM sur lequel
s'appuie le sous-formulaire) et PUHT pour le prix unitaire qui est une
colonne indépendante.
Je voudrais qu'en choisissant mon article s'affiche dans PUHT le prix
unitaire de celui-ci. J'ai donc, sur le champ DEDESIGN rattaché ma macro
dont voici le code ci-dessous : Il y a sûrement des coquilles, je débute
dans ce genre de programmation :
Sub Main
Dim DatabaseContext as object
Dim DataSource as object
Dim Connection as object
Dim InteractionHandler as object
Dim Statement as object
Dim ResultSet as object
Dim CleCom as integer
Dim CleDisp as integer
Dim VPUHT as Currency
DatabaseContext = createUnoService ("com.sun.star.sdb.DatabaseContext")
DataSource = DatabaseContext.getByName("Stock")
Connection = DataSource.GetConnection("","")
MsgBox ("BDD Connectée.")
Statement = Connection.createStatement()
ResultSet = Statement.executeQuery ("SELECT DIPRIXHT FROM DISPO WHERE
DISPO.DICLEUNIK = DETAILCOM.DICLEUNIK")
VPUHT = DISPO.DIPRIXHT
PUHT = VPUHT
MsgBox ("PUHT = "+PUHT)
Problème dans ta requête, tu réalises une jonction entre 2 tables mais tu
n'énumères pas les 2 tables dans ta clause FROM.
Essaies avec :
SELECT DIPRIXHT
FROM DISPO, DETAILCOM
WHERE DISPO.DICLEUNIK = DETAILCOM.DICLEUNIK;
Ne pas oublier le ; à la fin de la requête si HSQLDB est chatouilleux sur la
syntaxe.
Pour vérifier qu'à ce niveau tout est OK, tu peux commencer par tester ta
requête dans le requêteur SQL, si elle passe, elle devrait aussi passer dans le
code.
Pour le reste du code, je ne sais pas, j'ai pas encore fait mais dés que tu as
une solution n'hésites pas à nous en faire part, je pense que beaucoup de monde
est intéressé.
Bon courage.
@+
Christian
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
