Lecture champ mémo GL_Text (GCM)
Modérateurs: Super-Apogea, Super Modérateur
2 messages
|Page 1 sur 1
Lecture champ mémo GL_Text (GCM)
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.
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
- Messages: 3
- Inscription: Jeu 1 Mar 2007 16:50
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.
Et la déclaration dans VB.Net 2005
Bonne soirée à vous.
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
- Messages: 3
- Inscription: Jeu 1 Mar 2007 16:50
2 messages
|Page 1 sur 1
Qui est en ligne
Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 1 invité