Discussion :

[bernie.noel]

Bonjour,

je récupère des données d'une base de données via un objet COM dont je ne maîtrise pas le code. Cet objet me retourne un RecordSet ADO mais je souhaiterais modifier certains champs.

J'arrive parfaitement à me "balader" dans le Recordset, supprimer des enregistrements mais impossible de modifier un champ de l'enregistrement...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var
  RecordSetADO: OLEVariant;
begin
  [...]
  RecordSetADO.MoveFirst;
  while not RecordSetADO.Eof do
  begin
      RecordSetADO.Fields['Mon_champ'].Value := 'toto';
      RecordSetADO.MoveNext;
  end;
  [...]
end;

Mais lors de l'écriture de la valeur il plante et me dit : "Une opération en plusieurs étapes a généré des erreurs. Vérifiez chaque valeur d'état."

Pourtant ça a l'air de correspondre à la marche à suivre ...

Ai-je le droit d'écrire directement dans le champ? Si non comment dois-je procéder ?

Merci d'avance

[slimjoe]

Quelle version de Delphi 5 utilises-tu ? Je sais qu'à partir de la version 5.5 Delphi vient avec les composants ADO dans lesquels on peut trouver le TADODataSet. Ce dernier possède une propriété Recordset dans laquelle tu pourrais y mettre le recordset que tu veux manipuler. Ensuite, tu n'aurais qu'a jouer avec le ADODataSet de la même façon que les DataSet standards de Delphi (Edit, Post, First, Next, etc.)

Je n'ai pas testé toutefois mais j'ai déjà fait quelque chose de semblable par le passé.

Bon dev!

[bernie.noel]

Merci pour le conseil,

je n'y avais pas pensé. Mais j'ai un soucis. L'objet que je reçois de mon composant COM est un OLEVariant (normal). Comment puis-je caster cet OLEVariant pour le mettre dans mon RecordSet de mon DataSet ?

Sachant que cela ne fonctionne pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
var
   RecordSetADO: OLEVariant;
begin
    RecordSetADO := monObjetCom.Execute;


    DataSet.Recordset := _RecordSet(RecordSetADO);
OU
    DataSet.Recordset := (RecordSetADO as _RecordSet);

Merci

[slimjoe]

Sincèrement, je ne sais pas

Perso, vu qu'on a affaire à des variants, j'essayerais simplement :

Code :

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

DataSet.Recordset := RecordSetADO;

Mais je me trompe peut-être....

[bernie.noel]

Naturellement c'est la première chose que j'ai déjà essayé mais ce n'était pas concluant.

Tant pis je vais le reécrire à la volée... ce n'est pas propre mais je n'ai pas d'autres solutions.

Merci quand même