Discussion :

[e-ric]

Bonjour

Je n'arrive pas à affecter une valeur de type TDateTime comme paramètre dans un composant TADOQuery sur une colonne dont le type est SmallDateTime. Si quelqu'un a des éléments de réponse, il est le bienvenu.

Remarque : La date passée en dur (sous forme de texte) dans la requête fonctionne.

Merci par avance

Cordialement

e-ric

[Rayek]

Fait voir ton code ca nous donnera une piste.

sinon en général il est plus simple de passer une date de cette manière :

Code :

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

1
2
 
  AdoQuery.Parameters.ParamByName('LaDate').Value := QuotedStr( FormatDateTime('MM/DD/YYYY',now));

Mais cela oblige à faire des modifications du code si tu changes de base de données et que le format de date est différent. (Access = MM/DD/YYYY, My SQL = YYYY-MM-DD, etc ...)

[e-ric]

Merci pour la rapidité

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
procedure TstInsertDate;
var 
  dDate : TDateTime;
begin
  AdoQryDest := fDataModule.ADOQryInsert;
  with AdoQryDest do begin
    Close; SQL.Clear;
    SQL.Add('INSERT INTO _tmp1');
    SQL.Add('(DateN, nom, prenom) VALUES(');
    SQL.Add(':pDate, :nom, :prenom)');
    //----------
    dDate := date-2;
    with Parameters do begin
      paramByname('pDate').Value := dDate;
      paramByname('nom').Value := 'DUPONTEL';
      paramByname('prenom').Value := 'Albert';
    end;
    ExecSQL;
  end;
...

A l'exécution, j'obtiens le message d'erreur :

[Microsoft][ODBC SQL Server Driver] Fonctionnalité optionnelle non implémentée.

La solution que tu m'as proposée n'a pas fonctionné.

Si tu veux d'autres précisions...

e-ric

[Rayek]

Rajoute un ParamCheck := true avant la définition des paramètres.

Il m'est arrivé par fois que Ado ne detecte pas les paramètres.

[e-ric]

C'est déjà fait ! mais sans plus de résultat.

e-ric

[Rayek]

1- Est ce que tu as les droits en insertion sur la table ?
2- As tu fait un test sans la date ?
3- As tu changer les paramètres de base de ce composant : ADOQryInsert ?

[e-ric]

A vrai dire, je posais la question pour un collègue.
Il a décidé de laisser tomber car il pense que cela est un problème de configuration ou de pilote MS SQL.

Je te remercie néanmoins pour ton aide.

Cdlt

e-ric