Bonjour,

J'aurais bien besoin d'aide sur ce problème.

[CODE]procedure Tgestionparis.dbChevauxDblClick(Sender: TObject);
var truc:integer;
begin
truc:=dm.DsParticiper.fieldbyname('idcheval').asinteger;
with dm.queryExe do
 begin
   sql.clear;
   sql.add('insert into tparier (idcheval) values (');
   sql.add(truc)+')';
   //  sql.add(quotedstr(inttostr(truc)))+')';
   ExecSQL;
   sql.text:= 'select * from tcourses';
   open;
 end;
end;[/CODE]J'ai donc tenté ça + la ligne qui est en commentaitre mais j'ai droit à: - Identificateur non déclaré: Fieldbyname
-Opérateur ou point virgule manquant sur la première ligne de code.
-Et type incompatible sur la ligne avec le quotedstr. (Le champ idcheval est un numérique)

Alors j'ai deux questions.
Ma méthode, chaud ou froid?
Et pourquoi ces problèmes?

Premièrement je ne comprends pas le problème avec fieldbyname et avec l'opérateur sur la première ligne.
Deuxièmement je ne comprend pas pourquoi les types sont incompatibles.

Merci de me répondre.

Bonjour,

Partant du principe que DsParticiper est un datasource, écris plutôt :
truc:=dm.DsParticiper.DataSet.fieldbyname('idcheval').asinteger;

Pour la requête :
   sql.clear;
   sql.add('insert into tparier (idcheval) values (');
   SQL.Add(IntToStr(truc)+')');
   ExecSQL;
   SQL.Clear;
   sql.text:= 'select * from tcourses';

En espérant que ça te dépannera

Simon

Ou plus simplement :

var truc : string;
begin
truc:=dm.DsParticiper.Dataset.fieldbyname('idcheval').AsString;
with dm.queryExe do
 begin
   sql.clear;
   sql.add('insert into tparier (idcheval) values (');
   sql.add(truc +')');

Simon

Merci pour ta réponse.
Pour le problème fieldbyname j'avais compris mon erreur.
Pour ce qui est du code en lui même la première solution me dit que la conversion de type variant est incorrecte et idem pour la deuxième solution. Le truc la dedans c'est que c'est vraiment un problème de conversion string/integer.

Bé c'est marrant mais j'ai aussi cette erreur de temps en temps (ouais, je suis pas le seul !)... A savoir un insert qui me plante sur les champ entier... Impossible de passer ma requête sauf par une sous requête. Est-ce un défaut paradox ?

Essaie :
   SQL.Clear;
   SQL.Add('Insert into tparier (idcheval)');
   SQL.Add('Select distinct idcheval');
   SQL.Add('From [ta table]');
   SQL.Add('Where idcheval = '+ truc);    // Avec truc : string

Ça devrait passer... mais je voudrais bien savoir s'il y a un moyen de contourner ce problème, parce que les sous requêtes, c'est pas toujours possible ou alors des fois c'est un peu lourd...

Simon

J'ai réussi à régler le problème.

with dm.queryExe do
  begin
   sql.clear;
   sql.add('insert into tparier (i idcheval) values (');
   sql.add(dm.tParticiper.fieldbyname('idcheval').asstring + ')');
   ExecSQL;
   sql.text:= 'select * from tcourses';
   open;
 end;

Merci de votre aide.