Bonjour,
J'utilise Oracle 8 et Delphi 7.
J'ai écrit un sql dans le code par sql.Text := ...
Ce sql change de la façon suivante:
Je veux placer la valeur de QDate(Test[I]).AsString dans un TEdit et je ne sais pas comment faire.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 SetLength(Test, 2) ; Test[0] := 'VIC_PHYS_DAT_BIRTH' ; Test[1] := 'VIC_PHYS_DEATH' ; For I := 0 To 1 Do Begin With QDate Do //Edit du sql Date Begin SQL.Text := 'SELECT ' + (Test[I]) + ' ' ; SQL.Add(' FROM TCAL_VIC_PHYS') ; SQL.Add(' WHERE VIC_PHYS_YEAR = :TestA AND VIC_PHYS_ORDER = :TestB') ; SQL.Add(' AND VIC_PHYS_CODE_PROV = :TestC AND VIC_PHYS_VIC_NUM = :TestD') ; ParamCheck := True ; End ;
Cela doit correspondre à:
et
Code : Sélectionner tout - Visualiser dans une fenêtre à part Edit10.Text := QDateVIC_PHYS_DAT_BIRTH.AsString ;
Comment faire?
Code : Sélectionner tout - Visualiser dans une fenêtre à part Edit10.Text := QDateVIC_PHYS_DEATH.AsString ;
Bien à vous,
G. PLETINCKX
Partager