Commentaires de FENETRES sur sqlfr

51 commentaire(s) de FENETRES sur des sources sur sqlfr

Le : 07/01/2008 12:27:42
Source : MYSQL : CRÉATION D'UN GUID

Afin d'assurer une forte probabilité d'unicité, il me semble qu'un GUID est calculé d'après l'adresse MAC. Ce qui n'est visiblement pas le cas avec cette source !

Le : 28/12/2007 14:10:25
Source : SQL SERVER - PROCEDURE D'EDITION D'UN FICHIER PLAT (EXPORT CSV)

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

Le : 28/12/2007 09:46:45
Source : AJOUTER UN CHAMP À UNE TABLE

Source à classer dans la catégorie "SQL pour les nuls"

Le : 28/12/2007 09:34:49
Source : REQUETES DE DÉSACTIVATION ET DE RÉACTIVATIONS DES CONTRAINTES FOREIN KEY D'UNE BASE DE DONNÉES

Je trouve cette source très utile et je suis assez surpris par le faible nombre de connections !

Le : 26/12/2007 14:23:19
Source : SQL SERVER - PROCEDURE D'EDITION D'UN FICHIER PLAT (EXPORT CSV)

Naturellement, il n'est pas nécessaire dénumérer toutes les propriétés des deux principales méthodes appelées. On obtient donc, pour la macro précédente, la simplification suivante de l'écriture :

Sub DecodeOEM()
   Dim sNames() As String, i As Integer

   'Emplacement du répertoire à traiter
   ChangeFileOpenDirectory "\\srvinfo\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), Encoding:=850
      With ActiveDocument
         .SaveAs FileName:=sNames(i), Encoding:=1252
         .Close
      End With
   Next i
End Sub

Le : 26/12/2007 11:43:41
Source : SQL SERVER - PROCEDURE D'EDITION D'UN FICHIER PLAT (EXPORT CSV)

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

Le : 21/12/2007 17:34:22
Source : SQL SERVER - PROCEDURE D'EDITION D'UN FICHIER PLAT (EXPORT CSV)

Annule et remplace la macro du commentaire précédent.

Sub Decode()
   ' Convertir un fichier OEM en ANSI
   Call OpenFile("D:\Test", "Test.csv", 850)
   Call CloseFile("D:\Test", "Test.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 CloseFile(sPath As String, sFileName As String, iEncoding As Integer)
   'Enregistrer et fermer un fichier codé
   ChangeFileOpenDirectory sPath
   With ActiveDocument
      .SaveAs FileName:=sFileName, FileFormat:=wdFormatText, _
      LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", _
      ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, _
      SaveFormsData:=False, SaveAsAOCELetter:=False, Encoding:=iEncoding, InsertLineBreaks:=False, _
      AllowSubstitutions:=False, LineEnding:=wdCRLF
      .Close
   End With
End Sub

Le : 21/12/2007 16:49:25
Source : SQL SERVER - PROCEDURE D'EDITION D'UN FICHIER PLAT (EXPORT CSV)

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

Le : 18/12/2007 11:49:55
Source : SQL SERVER - PROCEDURE D'EDITION D'UN FICHIER PLAT (EXPORT CSV)

Le lien ci-dessous fournira de plus amples informations sur le codage OEM et ANSI à ceux qui le souhaitent.

http://fspsa.free.fr/ansi.htm

Le : 14/12/2007 10:15:19
Source : SQL SERVER - PROCEDURE D'EDITION D'UN FICHIER PLAT (EXPORT CSV)

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.