Ecrire un RTF dans une base de données
cs_julien14
Messages postés
2
Date d'inscription
lundi 24 septembre 2007
Statut
Membre
Dernière intervention
21 novembre 2007
-
20 nov. 2007 à 15:25
cs_julien14 Messages postés 2 Date d'inscription lundi 24 septembre 2007 Statut Membre Dernière intervention 21 novembre 2007 - 21 nov. 2007 à 04:16
cs_julien14 Messages postés 2 Date d'inscription lundi 24 septembre 2007 Statut Membre Dernière intervention 21 novembre 2007 - 21 nov. 2007 à 04:16
A voir également:
- Ecrire un RTF dans une base de données
- Base de données javascript - Conseils pratiques -Javascript
- Récupérer données json (javascript) - Conseils pratiques -Javascript
- Nomenclature base de données - Conseils pratiques -PHP
- Connexion base de données - Conseils pratiques -PHP
- Enregistrer les données d'un formulaire dans une base mysql pdf ✓ - Forum PHP
2 réponses
cs_lerico
Messages postés
3
Date d'inscription
dimanche 30 septembre 2007
Statut
Membre
Dernière intervention
20 novembre 2007
20 nov. 2007 à 15:32
20 nov. 2007 à 15:32
Bonjour,
Je ne sais pas si cela peut aider mais ce programme permet d'importer un fichier rtf et le visualiser dans une variable.
Place le programme dans un module et créé une fonction pour l'utiliser :
champ = LoadRTFFile ("C:\Domcuments\fichier.rtf")
Après il te suffit de la placer dans ton champ :
<hr />
'---------------------------------------------------------------------------------------
' Charge le contenu d'un fichier dans une variable
'---------------------------------------------------------------------------------------
Public Function LoadRTFFile(pFile As String) As String
Dim lTexte As String
Dim lFile As Long
Dim lSize As Long
On Error GoTo gestion_erreurs
lFile = CreateFile(pFile, GENERIC_READ, FILE_SHARE_READ, ByVal 0&, OPEN_EXISTING, 0, 0)
lSize = GetFileSize(lFile, 0)
lTexte = space(lSize)
ReadFile lFile, ByVal lTexte, lSize, 0, ByVal 0&
gestion_erreurs:
CloseHandle lFile
LoadRTFFile = lTexte
End Function
<hr />
LeRico
Je ne sais pas si cela peut aider mais ce programme permet d'importer un fichier rtf et le visualiser dans une variable.
Place le programme dans un module et créé une fonction pour l'utiliser :
champ = LoadRTFFile ("C:\Domcuments\fichier.rtf")
Après il te suffit de la placer dans ton champ :
<hr />
'---------------------------------------------------------------------------------------
' Charge le contenu d'un fichier dans une variable
'---------------------------------------------------------------------------------------
Public Function LoadRTFFile(pFile As String) As String
Dim lTexte As String
Dim lFile As Long
Dim lSize As Long
On Error GoTo gestion_erreurs
lFile = CreateFile(pFile, GENERIC_READ, FILE_SHARE_READ, ByVal 0&, OPEN_EXISTING, 0, 0)
lSize = GetFileSize(lFile, 0)
lTexte = space(lSize)
ReadFile lFile, ByVal lTexte, lSize, 0, ByVal 0&
gestion_erreurs:
CloseHandle lFile
LoadRTFFile = lTexte
End Function
<hr />
LeRico
cs_julien14
Messages postés
2
Date d'inscription
lundi 24 septembre 2007
Statut
Membre
Dernière intervention
21 novembre 2007
21 nov. 2007 à 04:16
21 nov. 2007 à 04:16
Merci pour ton aide Lerico mais ton code ne correspond pas à ce que j'attends.
Par contre après plusieurs heure de recherche j'ai trouvé une solution pour mon problème en utilisant le adodb.stream.
ref au lien suivant:
http://support.microsoft.com/default.aspx/kb/258038/fr
l'exemple porte sur une base de données sqlserver et sur un fichier jpg mais il est similaire pour un un autre format.
problème résolu pour ma part
bon continuation
Par contre après plusieurs heure de recherche j'ai trouvé une solution pour mon problème en utilisant le adodb.stream.
ref au lien suivant:
http://support.microsoft.com/default.aspx/kb/258038/fr
l'exemple porte sur une base de données sqlserver et sur un fichier jpg mais il est similaire pour un un autre format.
problème résolu pour ma part
bon continuation