Discussion :

[colorid]

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;

[philnext]

Sans répondre directement à ta question je t'informe que tu peux, sous ADO/Access remplacer tout ton code qui sert à mettre dans un enregistrement,la date de 'maintenant', lors de sa création par, dans la création de la table :

Code :

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

1
2
          ' TINT_CREATED DATE DEFAULT NOW, '+// Date de création

étonnant non ? (si c'est ce que tu voulais faire...)

[colorid]

Si à chaque enregistrement dans la table le champ prend la valeur NOW, Oui cela peut m'arranger

[philnext]

Tu n'as qu'à tester !...Et nous tenir au courant.

[colorid]

Je viens de tester. C'est exactement ce qu'il me faut
Grand Merci