locs
Messages postés8Date d'inscriptionjeudi 24 juin 2004StatutMembreDernière intervention21 février 2007
-
24 juin 2004 à 16:52
locs
Messages postés8Date d'inscriptionjeudi 24 juin 2004StatutMembreDernière intervention21 février 2007
-
25 juin 2004 à 09:00
Bonjours g créer un type en public dans un module et je voudrais l'ecrire dans un fichier texte mais je n'y arrive pourriez vous m'aider ?
Voici le code mon type de données :
Code:
Public Type Reg_Gral
'
CAL As String * 25
GRAM As String * 15
...........
End Type
et voici mon code d'ecriture dans le fichier :
Code:
Private EnrFich, FicLog
Private Sub Exporter_Click()
Set EnrFich = CreateObject("Scripting.FileSystemObject")
Dim compteur As Integer
Dim nIndex As Integer
Dim nInd As Integer
Dim nbligne As Integer
Dim registre As Reg_Gral, n
Dim num As Integer
Set FicLog = EnrFich.GetFile(I_DatHost & "save.txt")
'Récupération du nombre d'enregistrement de la table netipap
SQLStm = "Select COUNT(*) as NBENREG From NETIPAP"
num = g_Con.gfAbrirSeleccion(nInd, SQLStm)
nbligne = g_Con.Fields(nInd, "NBENREG")
g_Con.CerrarSeleccion (nInd)
'Récupération des données de la table netipap
SQLStm = "SELECT * FROM NETIPAP "
num = g_Con.gfAbrirSeleccion(nIndex, SQLStm)
compteur = 1
g_Con.MoveFirst (nIndex)
Do While compteur <= nbligne
'renseignement des valeurs de l'objet
registre.CAL = g_Con.Fields(nIndex, "CAL")
registre.GRAM = g_Con.Fields(nIndex, "GRAM")
FicLogBis.WriteLine (registre)
compteur = compteur + 1
If compteur <= nbligne Then
g_Con.MoveNext (nIndex)
End If
Loop
g_Con.CerrarSeleccion (nIndex)
FicLog.Close
J'ai un message d'erreur qui me dit:
Code:
erreur de compilation :
Seuls les types définies par l''utilisateurs et qui sont définies dans les modules d'objets public peuvent etre convertie depuis ou vers un variant,ou passées a des liaisons tardive.
Si quelqu'un pouvait m'aider se serait sympa parce que la je bloque.