Visual basic et base de donnees
j'ai une base access ou j'ai un champ texte qui contient un document wordpad mais je n'ai pas le chemin du doc
quand je double clic dessus j'ai le texte qui apparait
dans mon prog vb j'ai mis mon composant ole sur ma form et le data le texte apparait bien dans ma fenêtre ole , seulement je recupere ce texte pour le mettre dans un fichier txt et quand je le recupere il me met des zeros, enfin des trucs illisibles !!!
quelqu'un aurait une solution ??
merci
quand je double clic dessus j'ai le texte qui apparait
dans mon prog vb j'ai mis mon composant ole sur ma form et le data le texte apparait bien dans ma fenêtre ole , seulement je recupere ce texte pour le mettre dans un fichier txt et quand je le recupere il me met des zeros, enfin des trucs illisibles !!!
quelqu'un aurait une solution ??
merci
1 réponse
-
Salut,
c'est difficile de t'aider comme cela. Si t'a base n'est pas trop grosse, (<1.5 MO une fois compacter, puis zippe), tu peux me l'envoyer, et j'essaie d evoir ce que je peux faire.
A+
-
désolé mais je ne peux te fournir ma base
j'essaye de te décrire un peu mieux
j'ai une base collegue.mdb
j'ai une table collegue qui a un identifiant nom prenom etc..
j'ai une table compte rendu où j'ai l'identifiantcollegue et un champ texte ou j'ai mon document wordpad
Quand je double clique sur le champ j'ai mon texte qui apparait
je dois exporter cette table compte rendu dans un txt ou je mets l'identifiant et le texte
voici mon code
Set db = Workspaces(0).OpenDatabase(App.Path & "/collegue.mdb", True, True)
strFichier = App.Path & "/courrier.txt"
Close #1: Open strFichier For Output As #1
While Not rs.EOF
SQL = "Select * from compterendu
Set rs = db.OpenRecordset(SQL)
rtf.Refresh
rtf.TextRTF = rs!compterendu
Print #1, Trim$(rs!ident)
Print #1, rtf.Text
rs.MoveNext
Wend
et je récupére le texte mais avec des carrés, des 0 etc..
je pense donc qu'il ya un lien ole entre access et wordpad mais comment avec vb le recupérer correctement ???
-
-
