Discussion :

[nakry]

bonjour à tous,

j'ai inséré un à un dans les différents champs, et l'erreur se trouve au niveau du champ qui doit contenir la date sinon l'insertion dans les autres champs s'effectue sans problème mais dès que j'essaye d'insérer la date il y a problème

[Rayek]

Dans SQL serveur, le format des dates (si on ne passe pas par les paramètres) c'est MM/DD/YYYY

[nakry]

c'était sa le problème, j'ai mis le format dd/mm/yyyy et sa marché, la date a été enregistrée sous le format yyyy/mm/dd vraiment merci beaucoup;
mais peux tu me dire STP pourquoi il il l'a enregistré à l'inverse du format mis dans le code?

[BuzzLeclaire]

c'était sa le problème, j'ai mis le format dd/mm/yyyy et sa marché, la date a été enregistrée sous le format yyyy/mm/dd vraiment merci beaucoup;

?? hmmmm, dommage que tu lis pas les postes correctement ou entièrement...

Sinon le format n'est pas à l'inverse mais en format Anglais c'est pratiquement toujours le cas d'ou FormatDate....

[nakry]

?? hmmmm, dommage que tu lis pas les postes correctement ou entièrement...

bien sure que je lis les postes correctement et entièrement, mais peut être je ne les comprends tous très bien

bon bref, j'ai découvert autre chose, au fait dans SQL Server mon champ date était de type date et comme SQL Server a été installé en anglais donc il réclamait toujours lee format anglais pour la date, j'ai changé le type de ce champ je l'ai mis en DateTime et sa aussi marché avec ce code

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
procedure TForm2.enregistrerClick(Sender: TObject);
var dte: TDateTime;
begin
dte := date();
adoquery1.Open;
adoquery1.Insert;
adoquery1.FieldByName( 'Date' ).AsDateTime :=  dte;
adoquery1.FieldByName( 'Type_Requête' ).AsString := DBEdit1.text;
adoquery1.FieldByName( 'Requête' ).AsString := dbmemo1.text;
adoquery1.FieldByName( 'Nombre_Exécution' ).AsInteger := StrToInt(dbedit18.Text);
adoquery1.FieldByName( 'commentaire_Requête' ).AsString := dbmemo2.text;
adoquery1.FieldByName( 'Nombre_Enregistrement' ).AsInteger := StrToInt(DBEdit2.text);
adoquery1.FieldByName( 'Chargement_BDE' ).AsString := dbedit15.Text;
adoquery1.FieldByName( 'Chargement_ADO' ).AsString := dbedit10.Text;
adoquery1.FieldByName( 'Chargement_DBExpress' ).AsString := dbedit7.Text;
 
adoquery1.Post;
adoquery1.Close;
end;

je vous remercie tous de m'avoir aidé à résoudre ce problème et de bien le comprendre