Bonjour à tous,

Avec un composant TADOQUERY "qry" sous Delphi je ne parviens pas à rédiger correctement une requête qui contient un champ de type DateTime sous Access. Le code source suivant convient mais si je remplace DateToStr par DateTimeToStr Access me signale une erreur. Le champ TINT_CREATED est pourtant défini en DateTime sous access (Voir le code de création de la table un peu plus loin)

Comment rédiger le paramètre DateTime sous Delphi ?

// Requête
qry.Close;
qry.SQL.Clear;
qry.SQL.Add('INSERT INTO TINT '+
'(TINT_CARD,TINT_CREATOR,TINT_CREATED,NAME_IN_CARD,'+
'AUXILARY_NAME,REFLECTANCES,TINT_USED) VALUES '+
'( '+IntToStr(RecNo)+', '+
IntToStr(OpeNo)+', '+
DateToStr(Now)+', '+
'"'+Rec.ReflTab[k].Name+'", '+
IntToStr(k)+', '+
'"'+St+'", '+
' TRUE '+
')');
qry.ExecSQL;

//Création de la table TINT
req := 'CREATE TABLE TINT ('+
' TINT_NO COUNTER NOT NULL, '+ // Clé primaire
' CONSTRAINT KeyTINT PRIMARY KEY(TINT_NO), '+
' TINT_CARD INTEGER NOT NULL, '+ // Pointeur sur Card
' TINT_CREATOR INTEGER NOT NULL, '+ // Pointeur sur Operator
' TINT_CREATED DATETIME NOT NULL, '+// Date de création
' NAME_IN_CARD VARCHAR(32) NOT NULL, '+ // Nom teinte
' AUXILARY_NAME VARCHAR(32), '+ // Nom Auxiliaire de la teinte
' REFLECTANCES LONGTEXT, '+ // Réflectances
' TINT_USED BIT NOT NULL'+ // booléen de supression logique
')';
ADOCommand.CommandText := req;
ADOCommand.Execute;