Lecture champ mémo GL_Text (GCM)

Cette section est consacrée aux développements d'applications interfacées avec les logiciels Sage.

Modérateurs: Super-Apogea, Super Modérateur

Lecture champ mémo GL_Text (GCM)

de Kheops92 » Jeu 1 Mar 2007 17:49

Bonjour,

Je place le contexte:
Sage Gestion Commerciale V13 + OBDC v13 (mono poste) installé sur mon poste de developpement.

Langage utilisés : VB6 (sp6) ou VB.NET VS2005 (sp1)

Mon probleme est que je n'arrive pas à récupèrer l'intégralité du champ GL_Text de la table F_Glossaire.

D'après la Doc Sage (Strucfic.pdf) il s'agit d'un champ mémo (TEXT >255) dont la taille max = 1980.
Il y a aussi un autre champ GL_TextLg qui donne la taille réel du text contenu dedans GL_Text.

Mais voila a chaque fois sous VS2005 le champ est tronqué à 255 chars et sous VB6 ben la je n'obtiens rien du tout !

Est-ce que quelqu'un aurais un bout de source pour m'aider ?

Merci d'avance.
Posteur néophyte
Posteur néophyte
 
Messages: 3
Inscription: Jeu 1 Mar 2007 16:50

de Kheops92 » Jeu 1 Mar 2007 20:16

Je me réponds à moi meme.

J'ai réglé le probléme en développement une petite DLL en PureBasic qui lui ne me tronque pas les champs mémo ;-)

Je vous met le code PureBasic ci dessous.

Code: Tout sélectionner
  Global GL_Text$
 
  ProcedureDLL.s GetGLText(GL_No$)
 
    ; Open an ODBC database
    ;
    If InitDatabase() <> 0
         
      If OpenDatabase(0, "GestcomG_Bijou", "", "")
       
        Command$ ="SELECT GL_Text FROM F_Glossaire WHERE GL_No="+GL_No$
       
        If DatabaseQuery(0, Command$)
           
          While NextDatabaseRow(0)
            GL_Text$ = GetDatabaseString(0, 0)
          Wend
     
          CloseDatabase(0)
         
          ProcedureReturn GL_Text$
       
        EndIf
       
      EndIf
   
    EndIf
 
  EndProcedure


Et la déclaration dans VB.Net 2005

Code: Tout sélectionner
Private Declare Function GetGLText Lib "madll.dll" (ByVal GL_No As String) As String


Bonne soirée à vous.
Posteur néophyte
Posteur néophyte
 
Messages: 3
Inscription: Jeu 1 Mar 2007 16:50


Qui est en ligne
Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 1 invité