SQL SERVER - PROCEDURE D'EDITION D'UN FICHIER PLAT (EXPORT CSV)

Commentaire de FENETRES le 22/11/2007 17:42:12

Si l'exemple parait simple, sachez que grâce à cette solution, nous avons, en imbriquant des curseurs, construit une seule procédure d'export pour plus de 50 fichiers !

Commentaire de FENETRES le 26/11/2007 10:23:23

L'export SQL vers un fichier CSV n'est qu'un exemple parmi tant de possibilités qu'il est tout à fait regrettable à mon avis que les commandes DOS ne soient pas davantage utilisées dans les scripts SQL.
Sinon, pourquoi faire simple quand on peut faire compliqué ?

Commentaire de bir le 26/11/2007 11:30:15

bonjour, pas mal ton code , mais si tu pouvez donner un exemple avec une requête sql en paramètre ce serai mieux

Commentaire de dnt91 le 30/11/2007 15:21:46

Salut,

Tout d'abord merci pour ton commentaire et ta note pour mon article (http://www.sqlfr.com/tutoriaux/METHODES-TRANSFERT-DONNEES-AVEC-SQL-SERVER-2005_677.aspx).

Pour ma part, compte tenu de la puissance de la procédure étendue xp_cmdshell, j'évite d'activer cette fonctionnalité et donc d'utiliser la procédure étendue xp_cmdshell ! je le faisais beaucoup avant, notamment lorsque je développais des applications qui utilisaient des images; je créais des dossiers pour stocker mes images avec la procédure xp_cmdshell, ensuite j'y stockais mes images et je ne gardais que les chemins dans ma base de données pour optimiser la vitesse d'exécution des requetes sur mes images ! Cependant, avec cette procédure, on peut quasiment tout faire au niveau du système, et donc son utilisation n'est réservée qu'à des utilisateurs avertis ! Cependant, on est rarement tout seul à travailler sur un serveur, et on ne connait pas forcément le niveau des autres et donc ce qu'ils peuvent faire avec...

Quoi qu'il en soit, très bon article.

Pour me faire un peu de pub, je suis en train d'écire un nouvel article sur les différentes possiblités qui sont offertes aux développeurs de bases de données (Création de bases , de tables, de vues, de procédures stockées, de délcencheurs, de fonctions, de règles, de types alias, etc...), avis aux amateurs !

Commentaire de FENETRES le 06/12/2007 11:44:54

Contraint d'effectuer une migration de données vers une application antédiluvienne, j'ai imaginé cette solution simple et efficace. Compte tenu de l'intérêt actuelle des lecteurs (meilleur popularité du mois) il semblerait que l'objection sécuritaire de DNT91 ne soit pas vraiment un obstacle.

Commentaire de FENETRES le 14/12/2007 10:15:19

Incroyable... plus de 900 connexions en moins de quatre semaines et personne n'a relevé la complication que cette source peut poser.
Nos GM seraient devenus aussi distraits ? Pourtant cette difficulté est souvent évoquée dans les forums de discussion.
Je vous laisse le week-end pour identifier ce problème avant d'apporter une explication et une solution à celui-ci.

Commentaire de FENETRES le 21/12/2007 16:49:25

Pour ceux qui souhaitent automatiser la conversion sous Word (Macro) :
Sub Decode()
   ' Convertir un fichier OEM en ANSI
   Call OpenFile("D:\Test", "Test_OEM.csv", 850)
   Call SaveFile("D:\Test", "Test_ANSI.csv", 1252)
End Sub

Sub OpenFile(sPath As String, sFileName As String, iEncoding As Integer)
   'Ouvrir un fichier codé
   ChangeFileOpenDirectory sPath
   Documents.Open FileName:=sFileName, ConfirmConversions:=False, ReadOnly:=False, _
   AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
   Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
   Format:=wdOpenFormatAuto, XMLTransform:="", Encoding:=iEncoding
End Sub

Sub SaveFile(sPath As String, sFileName As String, iEncoding As Integer)
   'Fermer un fichier codé
   ChangeFileOpenDirectory sPath
   ActiveDocument.SaveAs FileName:=sFileName, FileFormat:=wdFormatText, _
   LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", _
   ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, _
   SaveFormsData:=False, SaveAsAOCELetter:=False, Encoding:=1252, InsertLineBreaks:=False, _
   AllowSubstitutions:=False, LineEnding:=wdCRLF
End Sub

Commentaire de FENETRES le 26/12/2007 11:43:41

Variante de la précédente macro à choisir si tous vos fichiers appartiennent au même répertoire.

Sub DecodeOEM()
   Dim sNames() As String, i As Integer
  
   'Emplacement du répertoire à traiter
   ChangeFileOpenDirectory "D:\Test"
   'Liste CSV des fichiers du réperoire spécifié
   sNames = Split("test.csv;test.txt", ";")
  
   For i = LBound(sNames) To UBound(sNames)
      Documents.Open FileName:=sNames(i), ConfirmConversions:=False, ReadOnly:=False, _
      AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
      Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
      Format:=wdOpenFormatAuto, XMLTransform:="", Encoding:=850
      With ActiveDocument
         .SaveAs FileName:=sNames(i), FileFormat:=wdFormatText, _
         LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", _
         ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, _
         SaveFormsData:=False, SaveAsAOCELetter:=False, Encoding:=1252, InsertLineBreaks:=False, _
         AllowSubstitutions:=False, LineEnding:=wdCRLF
         .Close
      End With
  
   Next i
  
End Sub

Commentaire de FENETRES le 28/12/2007 14:10:25

Conversion OEM-ANSI

Les férus de programmation trouveront les tables de conversion sur le site VB France à cette adresse :
http://www.vbfrance.com/codes/CONVERTION-TABLE-CARACTERES-EBCDIC-ASCII-OEM-ANSI_4998.aspx