Discussion :

[innosang]

bonjour,
en fait avec une requete sql sur une base access je récupere une date que j'aimerais afficher mais le compilateur m'indique une "erreur de conversion variant". Est ce que la conversion de type olevariant au type string est possible ? si vous pouvez m'éclairer ce serait cool. merci

[Pascal Jankowski]

Donne la partie du code qui te pose problème.

Cordialement

[innosang]

querybis.sql.Text := 'select o.refoutil, t.notype, o.datesortie from outil o, typeoutil t where o.notype=t.notype and libelletype=''' + query.Recordset.Fields[0].value + ''' order by o.datesortie' ;
querybis.open ;
while (not querybis.recordset.EOF) do
begin
tree.items.AddChild(noeud , ' Reference ' + querybis.Recordset.Fields[0].value + ' Date de sortie : ' + querybis.recordset.Fields[2].Value) ;
querybis.recordset.movenext ;
end ;

[Pascal Jankowski]

Utilise les balises de code car c'est illisible.

et si tu essaies cela:

Code :

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

1
2
3
4
5
6
7
 
  querybis.open ;
    while (not querybis.recordset.EOF) do
    begin
      tree.items.AddChild(noeud , '     Reference ' +  querybis.Recordset.Fields[0].AsString + '  Date de sortie : ' + querybis.recordset.Fields[2].AsString) ;
      querybis.recordset.movenext ;
    end ;

Un question pourquoi utilises-tu les recordSet ??
Je te propose cela également (sans recordset)

Code :

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

1
2
3
4
5
6
7
 
  querybis.open ;
    while (not querybis.EOF) do
    begin
      tree.items.AddChild(noeud , '     Reference ' +  querybis.Fields[0].AsString + '  Date de sortie : ' + querybis.Fields[2].AsString) ;
      querybis.Next ;
    end ;

[innosang]

merci ça marche ... désolé pour la présentation

Bein en fait je ne connais pas le langage pascal donc j'ai repris ce que je connaissais de vb ...effectivement ça marche sans recordset. merci à toi encore.