Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : exportation d'un document (fichier)vers word,excel,fichier texte [ Archives ASP & ASP.NET / Base de données ] (akouavi)

lundi 28 novembre 2005 à 13:15:10 | exportation d'un document (fichier)vers word,excel,fichier texte

akouavi

comment exporter un fichier (image ou non) qu'on a au prealable
inseré dans une base Access vers word, excel, fichier texte, ou nouvelle base de donnees en utilisant ASP,VBScript ou JScript?
Merci

mardi 29 novembre 2005 à 10:23:39 | Re : exportation d'un document (fichier)vers word,excel,fichier texte

DeathAngel

Salut akouavi,

J'ai fait ça dans avec des pdf stockés dans une base SQL server.
Mais je pense que le principe est le même (champ de type blob, ou Fichier je crois dans Acces )
Mon code est en ASP.Net, mais il est facilement convertible en VB. Par contre, je sais pas si c'est faisable en JS (peut-être via AJAX).

'================Code Principal ======================
'==========A mettre sur le clic d'un bouton par ex ============
Dim l_str_SQL As String
Dim l_byt_Pdf As Byte()
Dim l_str_Script As String
Dim l_str_Repertoire As String = "Mon repertoire"
Dim l_str_NomFichier As String
Dim fil_FichierPDF As System.IO.FileStream

l_str_SQL = "SELECT MonChamp Fichier "
l_str_SQL += "FROM MaTable "
l_str_SQL += "WHERE MesConditions"

'Attention, il faut être sûr que tu stockes tout le fichier dans ton champ (en-tête comprise)
l_byt_Pdf = SqlBlob2Buffer(l_str_SQL)

l_str_NomFichier = "MonFichier.MonExtension" 'On pourrai récupérer ce nom depuis la BD

fil_FichierPDF = File.Create(l_str_Repertoire & "\" & l_str_NomFichier)

With fil_FichierPDF
   .Write(l_byt_Pdf, 0, l_byt_Pdf.Length)
   .Close()
End With

'================Fin Code Principal ======================


'Fonction qui convertit un champ Blob en tableau de bits
Private
Function SqlBlob2Buffer(ByVal p_str_SQL As String) As Byte()
Dim PictureCol As Integer = 0 'Colonne dans laquelle on va lire les données
Dim cn As New SqlConnection("MaChaineDeConnexion")
Dim cmd As New SqlCommand(p_str_SQL, cn)
Dim dr As SqlDataReader = cmd.ExecuteReader()

   cn.Open()

   dr.Read()

   Dim b(dr.GetBytes(PictureCol, 0, Nothing, 0, Integer.MaxValue) - 1) As Byte

   dr.GetBytes(PictureCol, 0, b, 0, b.Length)

   dr.Close()

   cn.Close()

   Return b

End Function


Petite explication sur GetBytes :
Cette fonction lit les données sous forme de bits du datareader dans la colonne spécifiée (premier paramètre), les stocke dans le tableau de bits passé en paramètre, et renvoie le nombre de bits lus.
Dans le premier appel, on s'en sert pour savoir combien de bits il y a, sans stocker les données dans un buffer, et dans le second appel, on lit vraiment les données pour les stocker dans le buffer.
Consulte MSDN pour de plus amples infos ^o^

@peluche, et bon dév'

DA




Cette discussion est classé dans : fichier, texte, excel, word, exportation


Répondre à ce message

Sujets en rapport avec ce message

Pb de déclaration de variables [ par rodman ] Voici mon programme mais j'ai une erreur pour la déclaration de rs, l'erreur est ADODB Recordset errorOperation is not allowed when the object is clos Pb de déclaration de variables [ par rodman ] Voici mon programme mais j'ai une erreur pour la déclaration de rs, l'erreur est ADODB Recordset errorOperation is not allowed when the object is clos Exportation Excel et mise en page [ par peemawai ] Bonjour j'ai réussit à exporter des données d'un base de données SQL server dans un fichier Excel. Mainteant je voudrais récupérer ce fichier Excel et Exportation Base SQL en fichier Excel [ par Rolemo ] Bonjour,Voilà, je suis en train de dévelloper une application web commerciale de gestion de fichier, clients stock, fournisseur..... qui fonctionne à ouvrir fichier local [ par emericg ] J'ai un probleme qui me parrait hyper simple mais je ne trouve pas la solutionJe veux a partir d'un linkbutton (obligatoirement) ouvrir un fichier Exc Comment inserer du texte avant d'importer un Datagrid dans un fichier excel VB.net [ par schumileboss ] Salut,J'ai un DataGrid à exporter dans un fichier excel. Ca, j'arrive à le faire, ca fonctionne niquel. Seulement, je souhaite rajouter un titre et qu ouvrir fichier excel ou word [ par lijohann ] salutj' ai trouvé plein de sujet traitant du probleme mais aucun qui reponde à ma question:Je voudrais que le client puisse ouvrir un fichier word ou Probleme de traitement sur fichier [ par dardantfred ] Bonjour voila j'ai un petit souci pour faire un tratement sur un fichierJ'ai un fichier texte qui est structuré de cette facon :............<B Accents à l'écriture dans un fichier texte [ par gabiset ] Bonjour,Je dois écrire dans un fichier de log et dès que la phrase comporte des accents, mon fichier texte se retrouve avec des caractères bizarres à [1.1] Ouvrir un fichier texte d'un ftp [ par malhivertman1 ] Bonjour, Je cherche à ouvrir un fichier texte situé sur un ftp pour pouvoir faire un traitement dessus mais je n'y arrive pas, quelqu'un aurait-il la


Nos sponsors

Sondage...

CalendriCode

Décembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,312 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.