Discussion :

[El Bosc]

Bonsoir,

Je suis en train de développer une application sous base(firebird) et je bute sur la transmission du résultat SQL dan un formulaire. Alors que bizarrement, j' arrive à transmettre une donnée date , des données décimales et entière se mettent en erreur.
Premier cas fonctionnel:
Par une requête, je récupére la date max d' un fichier et j' arrive à la transférer au champ correspondant.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
	'--- Récupération de la date de la dernière cotation ---
	RqtDt = "Select DtVlr From T_Vlr Where Cf_VlrTtr = '"& CfVlrMx &"'"
	RsltDt = Stmt.executeQuery(RqtDt)
	RsltDt.next
	DtMx = RsltDt.getInt(1)
		thisComponent.DrawPage.Forms.getByName("F_Titre").getByName("DtDrnCtn").Text = DtMx+2
		thisComponent.DrawPage.Forms.getByName("F_Titre").getByName("DtDrnCtn").Commit

Deuxième cas en erreur:
Par le même procédé, je récupère une donnée décimale mais au moment du transfert, erreur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
	'--- Récupération de la dernière cotation ---
	RqtCtn = "Select Vlr From T_Vlr Where Cf_VlrTtr = '"& CfVlrMx &"'"
	RsltCtn = Stmt.executeQuery(RqtCtn)
	RsltCtn.Next
	CtnDrn = (RsltCtn.getInt(1))/10000
		thisComponent.DrawPage.Forms.getByName("F_Titre").getByName("DrnVlr").Text = CtnDrn
		thisComponent.DrawPage.Forms.getByName("F_Titre").getByName("DrnVlr").Commit

Erreur:
Propriété ou méthode non trouvée:Text. J' ai tenté .Double, .Currency, .Single avec toujours le même résultat.
Troisième cas;
Je récupère une donnée entière

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
	RqtXTtr = "Select  SUM(Qts) From T_MvmTtr Where Cf_Ttr ='"& CfTtr &"'"
	RsltXTtr = Stmt.executeQuery(RqtXTtr)
	RsltXTtr.Next
	XTtr = RsltXTtr.getInt(1)
		thisComponent.DrawPage.Forms.getByName("F_Titre").getByName("NbrAct").Integer = XTtr
		thisComponent.DrawPage.Forms.getByName("F_Titre").getByName("NbrAct").Commit

L' erreur signalé est toujours la même.
Pourriez-vous m' en dire plus?
Cordialement

[El Bosc]

Bonsoir,
En fait, il faut utiliser la méthode value. Le code devient donc:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

thisComponent.DrawPage.Forms.getByName("F_Titre").getByName("DrnVlr").Value = CtnDrn

Cordialement