inserer une date (datetimepicker) dans une bd

[yayas]

bonjour
je travaille avec Delphi7 / sql server2008 pour développer une application de gestion.
j'ai utilisé des Datetimepicker pour les champs date. pour insérer dans la base de donnees las dates, j'ai utilisé le code:

Code :

1
2
ADOTable1.fieldbyname('monchamp1').Value:= datetimepicker1.date;
ADOTable1.fieldbyname('monchamp2').Value:= datetimepicker2.date;..

ca marche pas, ca donne l'erreur

"echec de la conversion de la date et/ ou l'heure a partir d'une chaine de caracteres."

j'attend votre aide. merci d'avance

[Charly910]

Bonjour,

je n'utilise pas Datetimepicker qui est un composant VB (?) mais le message me semble dire qu'il y a soit un problème de formats incompatibles dans les dates, soit que tes champs ne sont du bon type (date ou String ?)

regarde ce lien :

DateTimePicker Format

A+

Charly

[ShaiLeTroll]

Evite le TADOTable
Utilise un TADOQuery et Parameters->ParamByName, et force le DataType à ftDate puis affecte le Value
Tu as plein de sujet sur le forum qui traite cela

Le TDateTimePicker est un control windows au même titre que le TComboBox, TListView, TTreeView ...

[Charly910]

Effectivement, merci ShaiLeTroll , TDateTimePicker.date est de type Tdate d'après l'aide de D7 :

TDate représente un type spécial de valeur TDateTime sans partie décimale. Une valeur TDate représente le nombre de jours qui se sont écoulés depuis le 30 décembre 1899.

[Ph. B.]

Bonjour,

Evitez la propriété Value. Elle est de type variant (valeur dont le type peut changer à l'exécution), va accepter tout ce que vous lui affectez quel qu’en soit le type (integer, string, etc, type structuré et pointeur exclus toutefois), mais dès le renvoi vers la base de données, la conversion de type va très souvent échouer...

En écrivant ce qui suit, vous éviterez le problème :

Code :

1
2
ADOTable1.FieldByName('monchamp1').AsDateTime := datetimepicker1.date;
ADOTable1.FieldByName('monchamp2').AsDateTime := datetimepicker2.date;

Ensuite, comme l'a dit @ShailLeTroll, évitez les TTable avec une base client/serveur. Si votre base à des millions d'enregistrements, à l'ouverture de la table, vous allez ramener TOUTES les lignes vers le client : saturation de la mémoire, lenteur pour obtenir et afficher les données, surcharge du serveur...

[yayas]

merci. ça a marché pour le datetimepicker .
mais lors de la navigation avec le dbnavigator, les datestimepicker ne retournent pas la date du champs de la base de données (c évident). je n'arrive pas à résoudre ce pb

[tarekk73]

bon jour
les datestimepicker ne retournent pas la date du champs de la base de données
c'est normale puisque datestimepicker n'est pas destiner a une table

comme dis Mr ShaiLeTroll :

Le TDateTimePicker est un control windows au même titre que le TComboBox, TListView, TTreeView ...

la meilleur solution est d'utiliser dbedit pour l'affichage
mai en peu aussi utiliser datetimepicker1 en ajoutent l'evenement AfterScroll a votre adotable comme suite

Code :

1
2
3
4
procedure TForm1.ADOTable1AfterScroll(DataSet: TDataSet);
begin
   datetimepicker1.date:=ADOTable1.FieldByName('monchamp1').AsDateTime;
end;

c'est a dire vous faite un rafrechissement votre datetimepicker a chaque deplacement du pointeur de la table

bon courage .

[medreg]

Envoyé par yayas

bonjour
je travaille avec Delphi7 / sql server2008 pour développer une application de gestion.
j'ai utilisé des Datetimepicker pour les champs date. pour insérer dans la base de donnees las dates, j'ai utilisé le code:

Code :

ca marche pas, ca donne l'erreur


j'attend votre aide. merci d'avance

voir aussi le composant raize componnent (RC5)
y compris DBdatetimepicker
bon chance

[MIWAN]

n'as tu pas par hasard déclaré le champs 'date' comme string ?
si non voir le fichier joint

[medreg]

Envoyé par MIWAN

n'as tu pas par hasard déclaré le champs 'date' comme string ?
si non voir le fichier joint

les deux codes sa marche bien

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
procedure TForm1.FormCreate(Sender: TObject);
begin
ADOQuery1.Active:=true;
ADOTable1.Active:=true;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
DataSource1.DataSet:=ADOQuery1;
adoquery1.Edit;
//adoquery1.Append;
adoquery1.fieldvalues['D_ate']:= datetimepicker1.date;
adoquery1.fieldvalues['Date2']:= datetimepicker2.date;
adoquery1.Post;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
DataSource1.DataSet:=ADOTable1;
ADOTable1.Edit;
ADOTable1.fieldvalues['D_ate']:= datetimepicker1.date;
ADOTable1.fieldvalues['Date2']:= datetimepicker2.date;
ADOTable1.Post;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
ADOQuery1.Active:=False;
ADOTable1.Active:=False;
end;

[yayas]

salut.
MERCI à tous pour votre aide. J'ai utilisé le ADOQuery et les DBEdit pour la date. ça marche tres bien. (je m'excuse pour le retard)
par contre j'ai un pb au niveau de mes statistiques: je n'arrive pas à formuler la requête permettant d'avoir le nombre de personnes (table de personne) global et selon des critères service, sexe , diplome, situation familiale...

mon code :
j'utilise une requête pour avoir le nombre d'hommes :

Code :

1
2
3
rqt.sql.clear;    
rqt.sql.add ( 'SELECT COUNT(*) AS montotal from personne WHERE Sexe=''Homme''');    
rqt.active;= true;

puis un dbedit qui a le datafield : montotal

en cliquant sur un button, ça marche.
ce que je veux c'est avoir toutes les stats en une seule interface et directement (pas trop de buttons).

merci

[tarekk73]

bon jour
pour une simple réponse
utiliser a chaque requette son propre adoquery et ecrire directement votre requette dans l'adoquery pas besoin de ça

Code :

1
2
3
rqt.sql.clear;    
rqt.sql.add ( 'SELECT COUNT(*) AS montotal from personne WHERE Sexe=''Homme''');    
rqt.active;= true;

vous ecrivez seulement
ça

Code :

'SELECT COUNT(*) AS montotal from personne WHERE Sexe='Homme'

dans la proprieté SQL de votre adoquery
et associer a chaque requette une dbedit
et noublie pas de metre la propriete active de chaque adoquery à true a chaque ouverture de votre fenétre onactivate pour le rafrechisement des donneés

bon courage

[yayas]

Bonjour Tarekk,
merci pour ta réponse. Est ce il ya la possibilité d'e ne pas utiliser autant d'adoquery que mes critères de sélection , seulement un adoquery et changer le SQL ou ...


Merci

[tarekk73]

bon jour

Est ce il ya la possibilité d'e ne pas utiliser autant d'adoquery que mes critères de sélection , seulement un adoquery et changer le SQL ou ...

oui mais utiliser autant de programmation je vous propose d'utilisez des 'edit' au lieux de dbedit et apres chaque requete affecter le resultat dans le caption de edit

Code :

etit1.caption := (le resultat sql)

aprés la conversation de type de donneé bien sure inttostr ....
je pense que la 1ere solution est plus pratique que celle ci .
bon courage.. yayas

[yayas]

Merci Tarek pour ta réponse.

je cherche aussi d'autres types de solutions?

j'attend votre aide .
Merci

[tourlourou]

Bonjour,

Pourquoi pas une boucle ?

Code :

1
2
3
4
5
6
7
for i:=0 to StringListMesRequetes.Count-1 do
begin
  rqt.sql.clear;    
  rqt.sql.add ( StringListMesRequetes[i] );    // ou  rqt.sql.Text := StringListMesRequetes[i] );
  rqt.active;= true;
  StringListMesRésultats.Add( DBEdit.Value {?? enfin, la chaîne contenant le champ résultat} );
end;

et chargement de la liste des requêtes à partir d'un fichier ou de chaînes en ressources ?

[yayas]

Merci tourlourou, mais j'ai pas vraiment compris comment faire avec cette boucle.
pouvez vous me donner quelques étapes. .
merci

[tourlourou]

Si j'ai bien compris, vous souhaitez obtenir plusieurs statistiques à patir de l'appui sur un minimum de boutons, chaque chiffre étant issu d'une requête SQL.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
var
  StringListMesRequetes, StringListMesRésultats: TStringList;
 
begin // FormCreate, par exemple (ne pas oublier de détruire les StringList au FormDestroy)
  StringListMesRésultats := TStringList.Create;
  StringListMesRequetes := TStringList.Create;
  // puis ajout des reqêtes une à une
  StringListMesRequetes.Add( 'SELECT COUNT(*) AS montotal from personne WHERE Sexe=''Homme''' );
  StringListMesRequetes.Add( 'SELECT COUNT(*) AS montotal from personne WHERE Sexe=''Femme''' );
  // etc.
  // ou à partir d'un fichier
  StringListMesRequetes.LoadFromFile('C:\MesRequetes.txt');
end;
 
// code OnClick du bouton "statistiques"
  StringListMesRésultats.Clear
  for i:=0 to StringListMesRequetes.Count-1 do
  begin
    rqt.sql.clear;    
    rqt.sql.add ( StringListMesRequetes[i] );    // ou  rqt.sql.Text := StringListMesRequetes[i] );
    rqt.active;= true;
    // ajout du résultat (champ MonTotal lié à un DBEdit) à une liste des statistiques, parallèle à celle des requêtes 
  StringListMesRésultats.Add( DBEdit.Text );
  end;

ensuite, à vous d'exploiter la liste des statistiques

[yayas]

Merci tourlourou; je vais l'essayer.
merci

[tarekk73]

bon jour
on peux aussi utiliser une seule requet selon des critères d'un champ

exp: sexe

Code :

1
2
3
SELECT sexe COUNT(*) 
FROM personne
GROUP BY  sexe

exp diplome

Code :

1
2
3
SELECT diplome, COUNT(*) 
FROM personne
GROUP BY  sexe

...
bon courage