message erreur dbgrid

Bonjour à tous
Je débute dans Delphi et je rencontre des difficultés
J'ai des valeurs dans un dbGrid
Je souhaite pouvoir sélectionner une ligne de ce DBGrig pour entrer les valeurs dans une autre fenêtre de mon application
J ai un message d'erreur "Impossible de convertir le variant de type (String) en type (Double)
J'ai cherché sans succès dans l'aide :-(

Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TFrmTableauIncident.DBGrid1CellClick(Column: TColumn); Begin if DBGrid1.SelectedRows.Count > 0 then begin FrmIncident.DateTimePicker1.date:= DBGrid1.Fields[0].Value; FrmIncident.DateTimePicker3.Time:= DBGrid1.Fields[1].Value; FrmIncident.CheckBoxEleve.checked := DBGrid1.Fields[3].Value; FrmIncident.CheckBoxMajeur.checked := DBGrid1.Fields[4].Value; FrmIncident.ComBoBoxSite.Text := DBGrid1.Fields[5].value; FrmIncident.ComBoBoxSite.Text := DBGrid1.Fields[6].value; FrmIncident.CheckBoxTousSites.checked := DBGrid1.Fields[6].Value; FrmIncident.ComboBoxService.text := DBGrid1.Fields[7].Value; FrmIncident.CheckBoxTousServices.checked := DBGrid1.Fields[8].Value; FrmIncident.showmodal; end; end;

---

Quelqu'un peut-il m'aider ? Un très grand merci par avance

Pièce jointe 616213Pièce jointe 616215Pièce jointe 616216

Vous n'avez pas un décalage des numéros ? il n'y a pas de [2] ?
Utilisez FieldByName et plutôt AsString, AsDateTime au lieu des variants.

Merci pour votre retour
Je teste demain et je reviens vers vous
Bonne soiree

Citation:

---

Envoyé par ShaiLeTroll

Vous n'avez pas un décalage des numéros ? il n'y a pas de [2] ?
Utilisez FieldByName et plutôt AsString, AsDateTime au lieu des variants.

---

Merci !

En effet, j avais un décalage de numéro J ai corrigé

J ai tenté de modifier mon cade mais sans succès J'ai des erreur "Identificateur non déclaré FieldByName ..."

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TFrmTableauIncident.BtnCloturerIncidentClick(Sender: TObject); Begin if DBGrid1.SelectedRows.Count > 0 then begin   FrmIncident.DateTimePicker3.Time:= DBGrid1.FieldByName[1].AsDateTime; FrmIncident.CheckBoxEleve.checked := DBGrid1.FieldByName[2].AsDateTime; FrmIncident.CheckBoxMajeur.checked := DBGrid1.FieldByName[3].AsString; FrmIncident.ComBoBoxSite.Text := DBGrid1.FieldByName[4].AsString; FrmIncident.CheckBoxTousSites.checked := DBGrid1.FieldByName[5].AsString; FrmIncident.ComboBoxService.text := DBGrid1.FieldByName[6].AsString; FrmIncident.CheckBoxTousServices.checked := DBGrid1.FieldByName[7].AsString; FrmIncident.ShowModal; end; end;

---

Bonjour,

Qu'il y ait des erreurs c'est logique un DBGrid n'a pas de FieldByName c'est son datasource associé qui en a.

Je suis assez rouillé avec VCL. mais je releve d'abord une chose qui me parait incorrecte

Code:

---

1 2 3 4

if DBGrid1.SelectedRows.Count > 0 then begin .... end;

---

Tester sur SelectedRows.Count implique généralement que une ou plusieurs ligne de la grille sont sélectionnées et donc on debrait avoir à l'intérieur un traitement de chaque ligne de la sélection du type

Code:

---

1 2 3

for i:=0 to DBGrid1.SelectedRows.Count-1 do begin // traitement end;

---

Si je comprend bien l'image numero 1 c'est plutôt l'enregistrement en cours qui est à cloturé (mettre les options de grille dgRawSelected et dgAlwaysShowSelection serait un plus permettant de bien montrer la ligne)
Dans ce cas il est plus simple d'utiliser directement les champs du dataset que de faire une assignation possible mais alambiquée

Attention ce qui suivra n'est pas forcément juste ne connaissant pas la structure de ClientDataset1, de plus je ne me souviens jamais si Fields commence à 0 ou 1 :oops:

Code:

---

1 2 3 4 5 6 7

FrmIncident.DateTimePicker3.Time:=ClientDataset1.Fields[1].AsDateTime; FrmIncident.CheckBoxEleve.checked := ClientDataset1.Fields[2].AsBoolean; FrmIncident.CheckBoxMajeur.checked := ClientDataset1.Fields[3].AsBoolean; FrmIncident.ComBoBoxSite.Text := ClientDataset1.Fields[4].AsString; FrmIncident.CheckBoxTousSites.checked := ClientDataset1.Fields[5].AsBoolean; FrmIncident.ComboBoxService.text := ClientDataset1.Fields[6].AsString; FrmIncident.CheckBoxTousServices.checked := ClientDataset1.Fields[7].AsBoolean;

---

De plus je suis plus partisan, pour des questions de maintenance logicielle, d'utiliser FieldByName car l'ordre des champs (trop ?) est facilement modifiable

Code:

---

FrmIncident.DateTimePicker3.Time:=ClientDataset1.FieldByName('nomdelacolonne').AsDateTime;

---

enfin les champs sont-ils des booleens ? pas sûr je lis true/false dans la grille (tiens, Carquefou, j'en suis pas loin)
donc pour les checkbox*

Code:

---

FrmIncident.CheckBoxEleve.checked := ClientDataset1.FieldbyName('nomcolonnesbool').AsString='true';

---

* les versions récentes permettent de transformer 'true'/'false' en boolean mais sans votre version j'écris un "traitement" sûr

Merci infiniment ! : ca fonctionne :-)

Je sélectionne une ligne dans mon "dbgrid" et toutes les valeurs se mettent dans mon "frmincident"

Par contre, les champs date et l heure ne prennent pas les valeurs du DBGrid
Pas de message mais rien ne se passe

Code:

---

1 2	FrmIncident.DateTimePicker1.Time:=ClientDataset1.Fields[0].AsDateTime; FrmIncident.DateTimePicker3.Time:=ClientDataset1.Fields[1].AsDateTime;

---

Version Delphi 10.4

En rouge, je vous mets sur la piste

Citation:

---

Envoyé par Comete2006

Code:

---

FrmIncident.DateTimePicker1.Time:=ClientDataset1.Fields[0].AsDateTime;

---

---

NB. je ne suis toujours pas très Fields[n]

comme a priori, toujours selon votre image le datetimepicker1 est pour la date

Code:

---

FrmIncident.DateTimePicker1.DateTime:=ClientDataset1.Fields[0].AsDateTime;

---

comme il semblerait que vos colonnes soit des strings ceci serait plus sûr

Code:

---

1 2	FrmIncident.DateTimePicker1.Date:=StrToDate(ClientDataset1.Fields[0].AsString); FrmIncident.DateTimePicker3.Time:=StrToTime(ClientDataset1.Fields[1].AsString);

---

Un SUPER grand merci pour votre aide : ca fonctionne

Je vous souhaite un excellent week-end :-)

bonjour

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TFrmTableauIncident.DBGrid1CellClick(Column: TColumn); Begin if DBGrid1.SelectedRows.Count > 0 then begin FrmIncident.DateTimePicker1.date:= DBGrid1.Fields[0].Value; FrmIncident.DateTimePicker3.Time:= DBGrid1.Fields[1].Value; FrmIncident.CheckBoxEleve.checked := DBGrid1.Fields[3].Value; FrmIncident.CheckBoxMajeur.checked := DBGrid1.Fields[4].Value; FrmIncident.ComBoBoxSite.Text := DBGrid1.Fields[5].value; FrmIncident.ComBoBoxSite.Text := DBGrid1.Fields[6].value; FrmIncident.CheckBoxTousSites.checked := DBGrid1.Fields[6].Value; FrmIncident.ComboBoxService.text := DBGrid1.Fields[7].Value; FrmIncident.CheckBoxTousServices.checked := DBGrid1.Fields[8].Value; FrmIncident.showmodal; end; end;

---

pourquoi se casser la tête comme ça ? pourquoi ne pas utiliser des champs data: TDBEdit,TDBCheckbox,TDBDateTime,....:aie:

Merci d avoir pris le temps de me repondre. (Avec l aide de Sergio Master j y suis parvenue)
Bon week-end