Discussion :

[Georges Plétinckx]

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:

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 ;

Je veux placer la valeur de QDate(Test[I]).AsString dans un TEdit et je ne sais pas comment faire.

Cela doit correspondre à:

Code :

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

Edit10.Text := QDateVIC_PHYS_DAT_BIRTH.AsString ;

et

Code :

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

Edit10.Text := QDateVIC_PHYS_DEATH.AsString ;

Comment faire?

Bien à vous,

G. PLETINCKX

[Cl@udius]

Salut

Utilises Fields[n]

Code :

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

Edit10.Text := DateTimeToStr(QDate.Fields[0].AsDateTime);

@+ Claudius

[Georges Plétinckx]

Merci.

G. PLETINCKX